forth.rb - 兼雑記

http://haskell.g.hatena.ne.jp/mr_konn/20060919/1158656918 Haskell 製の FORTH に非常に大人気ない対抗をしてみました。 @v={ '+'=>proc{@s<<@s.pop+@s.pop}, '-'=>proc{@s<<-@s.pop+@s.pop}, '*'=>proc{@s<<@s.pop*@s.pop}, '/'=>proc{d=@s.pop;@s<<@s.pop/d}, '.'=>proc{p @s}, '@'=>proc{raise if !n=@v[@s.pop];@s<<n}, '!'=>proc{raise if !@v[k=@s.pop];@v[k]=@s.pop}, 'drop'=>proc{@s.pop}, 'swap'=>proc{@s[-2,2]=[@s[-1],@s[-2]]}, 'dup'=>

[Wacky]

Haskell 製の FORTH に非常に大人気ない対抗をしてみました。