28 lines
416 B
Text
28 lines
416 B
Text
{def loops_for
|
|
{lambda {:i :n}
|
|
{if {>= :i :n}
|
|
then (end of loop)
|
|
else {br}{S.map {lambda {} *} {S.serie 0 :i}}
|
|
{loops_for {+ :i 1} :n}}}}
|
|
-> loops_for
|
|
|
|
{loops_for 0 5}
|
|
->
|
|
*
|
|
* *
|
|
* * *
|
|
* * * *
|
|
* * * * * (end of loop)
|
|
|
|
a simpler way, using {S.map function {S.serie start end [step]}
|
|
|
|
{S.map {lambda {:i} {br}
|
|
{S.map {lambda {:i} *}
|
|
{S.serie 1 :i}}}
|
|
{S.serie 1 5}}
|
|
->
|
|
*
|
|
* *
|
|
* * *
|
|
* * * *
|
|
* * * * *
|