mirror of
https://github.com/antirez/aocla
synced 2024-12-27 09:58:32 +01:00
10 lines
164 B
Text
10 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
|