もう３０年近く前、学生の頃、コンピューター言語でFORTHという言語を使っていました。卒業してからは、まったく、プログラムを組むこともなくいたのですが、最近、rubyとC言語を勉強しだしたのをきっかけに、少しばかり、FORTHも勉強してみようかと思った次第です。
ラズベリーパイを買った都合上、C言語はおさえておきたく、FORTHはついでのような感じになりますが、ボケ防止も含めて、一から勉強するかなと思っています。
FORTHについては、こちら
FIG http://www.forth.org/
ようこそ！日本ＦＯＲＴＨ研究会へ http://www.sofel.co.jp/forth/forth.html
ついでということで
: fac2 ( n --- ) 1 + 1 1 rot swap do i * loop ;
: fac3 ( n --- ) dup 0 > if fac2 else ." 計算不能" then ;
\ nCm=n!/{(n-m)!m!}
: combi ( n m --- ) swap dup fac3 rot rot swap dup rot swap - fac3 swap fac3 * / . ;
『標準FORTH』の２章にあった例題 組み合わせを求める の回答です。巻末の用意された解答を見ておりませんので、適切の解答はもっとすっきりしたプログラムになっているだろうなと思います。
forthはスタック言語とも呼ばれておりまして、変数よりもスタックを利用することが多いのです、もちろん、普通に変数も利用できます。
