demo5.th

来自「1984-1993模糊 C 源代码竞赛.zip 非常的好,不过这是DOS格式,」· TH 代码 · 共 28 行

( 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