diff options
| -rw-r--r-- | site/index.html | 14 | ||||
| -rw-r--r-- | site/samples/fac.fs | 12 |
2 files changed, 21 insertions, 5 deletions
diff --git a/site/index.html b/site/index.html index 8551d3a..6583568 100644 --- a/site/index.html +++ b/site/index.html @@ -13,11 +13,15 @@ <button id='compile'>compile</button> <br> <div id='src' contenteditable='plaintext-only'>: fac ( n -- n ) - dup - 1 > if - dup 1 - fac * - then - ; + dup ( n n ) + 1 > if ( n flag ) + dup ( n n ) + 1 - ( n n-1 ) + fac ( n fac-n ) + * ( n ) + then ( n ) +; + 5 fac drop</div> </div> 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 |