前回のをforthで書いてみる。 : M 10 mod ; : N 10000 1001 ?DO i M i 10 / M i 100 / M i 1000 / M + + + i over BEGIN /mod swap dup 0= WHILE drop 2dup = if i . endif over REPEAT 2drop drop LOOP ; N Ideone.com - LfN1Y2 - Online Forth Interpreter…

twitterで@nfunatoさんからメンション。anarchy golfというプログラムの記述量をいかに少なくするかを競うゲームで、fizzbuzzをforthで書くやつについて。私が以前投稿してたコードはこれ。 : m mod 0= ; : z 1 DO i 5 m i 3 m 2dup or 0= if i 1 .r then if…

ふと思い立ってawkでforth書けないかなとやってみた。ただしリターンスタックは現在使っておらず逆ポーランド電卓レベル。ワードも今は定義するだけ。 gawk4.0.0が必要。split関数で4番目の引数(セパレータの格納)を使っているため。 パラメータスタックを毎…

forth http://ideone.com/nA0ek awk http://ideone.com/FtNI0 awkのone liner http://ideone.com/pEYDSideone.comおもしろい。