2009年2月17日 星期二

第一隻 Rebol 程式

[ Code ]

i: 0
loop 10 [ starstr: ""
for count 0 i 1 [ starstr: join starstr "*" ]
print starstr
i: i+1 ]

[ Result ]

*
**
***
****
*****
******
*******
********
*********
**********