diff options
Diffstat (limited to 'site/samples')
| -rw-r--r-- | site/samples/fac.fs | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/site/samples/fac.fs b/site/samples/fac.fs new file mode 100644 index 0000000..c17968b --- /dev/null +++ b/site/samples/fac.fs @@ -0,0 +1,12 @@ +: fac ( n -- n ) + dup ( n n ) + 1 > if ( n flag ) + dup ( n n ) + 1 - ( n n-1 ) + fac ( n fac-n ) + * ( n ) + then ( n ) +; + +5 fac +drop |