这是用forth实现的斐波那契数Fibonacci第40项数为:
: fib 38 0 DO 2DUP + ROT DROP LOOP ;
1 1 fib . cr
显示结果:102334155
两行代码完成!通过同其他编程语言实现的fib计算法相比较,可见forth语言的特别之处。
一、算术运算表示
forth算术运算采用逆波兰方式,即2+5 要表示成2 5 +。
这样可以将数据以先进后出去送到栈中,栈中次序为2和5 ,5在栈顶,运算后2和5都使用消耗完毕,此时栈顶留有数字7.
栈顶显示用“ ."来操作。
不仅是算术符号,对其他forth单词也是如此,如设置一个名为plus的单词:
: plus + ;
然后在forth环境下运行:5 2 plus 结果就为7。
类似+的算术运算符,还有+ - * / mod。