forthでfizzbuzz
概要
forthでfizzbuzzやってみた。
forthの定義済みワード
| . | スタックトップを取り出し表示 |
| emit | スタックトップを取り出し文字表示 |
| .s | デバッグプリント |
| cr | 改行表示 |
| space | 空白表示 |
| + | スタックトップと２番の加算 |
| - | スタックトップと２番の減算 |
| * | スタックトップと２番の乗算 |
| / | スタックトップと２番の除算 |
| mod | スタックトップと２番の剰余 |
| = | スタックトップと２番の同値 |
| < | スタックトップと２番より小さい |
| > | スタックトップと２番より大きい |
| max | スタックトップと２番の最大 |
| min | スタックトップと２番の最小 |
| dup | スタックトップの複製 |
| swap | スタックトップと2番の交換 |
| drop | スタックトップの除去 |
| over | スタックの２番目の複製 |
| rot | スタックの上位３つを回転し，３番目をトップへ |
| and | スタックトップと２番のBit AND |
| or | スタックトップと２番のBit OR |
| invert | スタックトップと２番のBit 反転 |
| random | 乱数（スタックトップ） |
サンプルコード
: fizzbuzz 100 1 do i 3 mod 0 = i 5 mod 0 = or if i 3 mod 0 = if ." fizz" then i 5 mod 0 = if ." buzz" then else i . then cr loop ;
成果物
: fizzbuzz 100 1 do i 3 mod 0 = i 5 mod 0 = or if i 3 mod 0 = if ." fizz" then i 5 mod 0 = if ." buzz" then else i . then cr loop ;
以上。
Author And Source
この問題について(forthでfizzbuzz), 我々は、より多くの情報をここで見つけました https://qiita.com/ohisama@github/items/f30e187c7b4e12dc262b著者帰属：元の著者の情報は、元の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 .