Landon Curt Noll
d2a42f42e8
We we move 1988-2004 entries from all of a year's winning entries in a single directory to each winner being in their own sub-directory under the given year directory.
31 lines
439 B
Plaintext
31 lines
439 B
Plaintext
( compute factorial recursively )
|
|
( take x as input, return x! and x as output )
|
|
|
|
: fact-help
|
|
|
|
dup if
|
|
1 - ( leave x-1 on top )
|
|
fact-help ( leave x-1, [x-1]! )
|
|
1 + ( leave x, [x-1]!, x )
|
|
swap over swap ( leave [x-1]!, x, x )
|
|
* ( into x!, x )
|
|
swap ( into x, x! )
|
|
else
|
|
1 swap
|
|
then
|
|
;
|
|
|
|
: fact
|
|
|
|
fact-help
|
|
drop
|
|
|
|
;
|
|
|
|
: demo4
|
|
" 4 factorial is: " 4 fact . cr
|
|
" 6 factorial is: " 6 fact . cr
|
|
;
|
|
|
|
demo4
|