blob: 32f1eabbdd0742ef3b86abf959fd3b9b90ca4edf (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
: fact_rec
dup 1 != if
dup rot * swap 1 - fact_rec
then
;
: fact ( recursive factorial function )
1 swap fact_rec pop
;
: main
1 begin
dup ": strcat 15 fact spacecat notify
1 + dup 1000 > until
;
|