diff options
| author | Brian Cully <bjc@spork.org> | 2025-08-25 12:06:51 -0400 |
|---|---|---|
| committer | Brian Cully <bjc@spork.org> | 2025-08-25 12:07:52 -0400 |
| commit | 1c81d26b706abb43ba71eb36cdb622dae03e95cd (patch) | |
| tree | 3478a6da414075c675d36aa8cdf361896c6defd9 /site/samples/fac.fs | |
| parent | 00579203e0cb10b2be793c4f215716554e58690e (diff) | |
| download | automathon-1c81d26b706abb43ba71eb36cdb622dae03e95cd.tar.gz automathon-1c81d26b706abb43ba71eb36cdb622dae03e95cd.zip | |
add sample code in site
Diffstat (limited to 'site/samples/fac.fs')
| -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 |