mirror of
https://github.com/antirez/aocla
synced 2024-12-28 09:58:08 +01:00
11 lines
164 B
Text
11 lines
164 B
Text
|
// For loop implemented with recursion
|
||
|
|
|
||
|
|
[(x y f)
|
||
|
|
[$x $y <] [
|
||
|
|
$x $f eval
|
||
|
|
$x 1 + $y $f count
|
||
|
|
] if
|
||
|
|
] 'count def
|
||
|
|
|
||
|
|
0 15 [print "\n" print] count
|