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 | |
| parent | 00579203e0cb10b2be793c4f215716554e58690e (diff) | |
| download | automathon-1c81d26b706abb43ba71eb36cdb622dae03e95cd.tar.gz automathon-1c81d26b706abb43ba71eb36cdb622dae03e95cd.zip | |
add sample code in site
| -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 |