forthで九九
概要
forthで九九、やってみた。
フロー制御
if else then
: test -1 if ." ng" else ." ok" then ;
do loop
: test 10 1 do i . loop ;
begin until
: test -1 begin ." ok" until ;
サンプルコード
: kuku 10 1 do 10 1 do i j * . loop cr loop ; ok
実行結果
kuku 1 2 3 4 5 6 7 8 9
2 4 6 8 10 12 14 16 18
3 6 9 12 15 18 21 24 27
4 8 12 16 20 24 28 32 36
5 10 15 20 25 30 35 40 45
6 12 18 24 30 36 42 48 54
7 14 21 28 35 42 49 56 63
8 16 24 32 40 48 56 64 72
9 18 27 36 45 54 63 72 81
ok
: test -1 if ." ng" else ." ok" then ;
: test 10 1 do i . loop ;
: test -1 begin ." ok" until ;
: kuku 10 1 do 10 1 do i j * . loop cr loop ; ok
実行結果
kuku 1 2 3 4 5 6 7 8 9
2 4 6 8 10 12 14 16 18
3 6 9 12 15 18 21 24 27
4 8 12 16 20 24 28 32 36
5 10 15 20 25 30 35 40 45
6 12 18 24 30 36 42 48 54
7 14 21 28 35 42 49 56 63
8 16 24 32 40 48 56 64 72
9 18 27 36 45 54 63 72 81
ok
kuku 1 2 3 4 5 6 7 8 9
2 4 6 8 10 12 14 16 18
3 6 9 12 15 18 21 24 27
4 8 12 16 20 24 28 32 36
5 10 15 20 25 30 35 40 45
6 12 18 24 30 36 42 48 54
7 14 21 28 35 42 49 56 63
8 16 24 32 40 48 56 64 72
9 18 27 36 45 54 63 72 81
ok
以上。
Author And Source
この問題について(forthで九九), 我々は、より多くの情報をここで見つけました https://qiita.com/ohisama@github/items/b0071172d11894fc2683著者帰属：元の著者の情報は、元のURLに含まれています。著作権は原作者に属する。
Content is automatically searched and collected through network algorithms . If there is a violation . Please contact us . We will adjust (correct author information ,or delete content ) as soon as possible .