demo5.th

1984-1993模糊 C 源代码竞赛.zip 非常的好,不过这是DOS格式,要用UE去打开.

( recursive factorial.  given x on top, followed by )
( an "accumulator" containing the product except for x! )

: fact-help2

  dup if
    swap over swap
    *
    swap 1 -
    fact-help2
  then
;

: fact

  1 swap
  fact-help2
  drop
;

: demo5

  " The factorial of 3 is: " 3 fact . cr
  " The factorial of 5 is: " 5 fact . cr
;

demo5