iskm/learnxinyminutes-docs
1
0
Fork 0
mirror of https://github.com/adambard/learnxinyminutes-docs.git synced 2024-12-23 17:41:41 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Illustrate parameters via loops.

Browse Source
This commit is contained in:
HorseMD 2014-11-14 00:14:38 +00:00
parent 601f06e72d
commit f1688b8000
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
forth.html.markdown
View File

@ -108,12 +108,12 @@ myloop
\ We can get the value of the index as we loop with `i`: \ We can get the value of the index as we loop with `i`:
: one-to-12 ( -- ) 12 0 do i . loop ; \ ok : one-to-12 ( -- ) 12 0 do i . loop ; \ ok
one-to-12 \ 0 1 2 3 4 5 6 7 8 9 10 11 12 ok one-to-12 \ 0 1 2 3 4 5 6 7 8 9 10 11 12 ok
: squares ( -- ) 10 0 do i dup * . loop ; \ ok : squares ( -- ) 0 do i dup * . loop ; \ ok
squares \ 0 1 4 9 16 25 36 49 64 81 ok 10 squares \ 0 1 4 9 16 25 36 49 64 81 ok
\ Change the "step" with `+loop`: \ Change the "step" with `+loop`:
: threes ( -- ) 15 0 do i . 3 +loop ; \ ok : threes ( -- ) do i . 3 +loop ; \ ok
threes \ 0 3 6 9 12 ok 15 0 threes \ 0 3 6 9 12 ok
\ Finally, while loops with `begin` <stuff to do> <flag> `unil`: \ Finally, while loops with `begin` <stuff to do> <flag> `unil`:
: death ( -- ) begin ." Are we there yet?" 0 until ; \ ok : death ( -- ) begin ." Are we there yet?" 0 until ; \ ok