diff options
Diffstat (limited to 'examples/stdlib.stem')
| -rw-r--r-- | examples/stdlib.stem | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/examples/stdlib.stem b/examples/stdlib.stem index eca48c8..00a4f67 100644 --- a/examples/stdlib.stem +++ b/examples/stdlib.stem @@ -1,2 +1,11 @@ evalstr [ strquote eval ] func include [ fread evalstr ] func + +# Author of loop function: Andrei S +loop [ + swap dup 0 > [ + swap + dup eval + swap 1 - swap loop + ] [ dsc dsc ] if +] func |