Forth の大して最悪でもない Hello world
http://blog.cnu.jp/2009/07/08/hello-world-2/、“最悪のHello World”を Squeak Smalltalk で - Smalltalkのtは小文字です、「最悪なHello World」に挑戦2 - 'T - cadr group、「最悪なHello World」に挑戦 - 'T - cadr group など各所で話題の最悪な Hello world に Forth で挑戦してみました。
: \ ; : 2 r> dup >r >r ; : ll 2 'l emit ; : o 'o emit ; : , ." , w" ; : o o , o ; : ! ." rld!" ; : He .( He) ; \ He ll o !
Gforth と bigFORTH では動きましたが、pForth では動きませんでした。
追記:ちょっとだけ酷くしました。
: \ ; : 2 r> dup >r >r ; : ll 2 'l emit ; : o 'o emit ; : , ." , w" ; : o o , o ; : ! 235 base ! 768632359 . ; : He .( He) ; \ He ll o !
追記:もうちょっと
: \ ; : 2 r> dup >r >r ; : ll 2 'l emit ; : o 'o emit ; : , ." , w" ; : o o , o ; : ! 1010085946919. base ! . ; : He .( He) ; \ He ll o !