diff options
| author | Brian Cully <bjc@spork.org> | 2025-08-25 13:35:12 -0400 |
|---|---|---|
| committer | Brian Cully <bjc@spork.org> | 2025-08-25 13:57:21 -0400 |
| commit | 37c0a0b5e4d3939656cac8d103b5a22963fbc9dd (patch) | |
| tree | 8843628b991ac39991d22f80df9aa1d2a22cffc4 /site/samples/slo-fac.fs | |
| parent | f2bcc1df6ef43a6021adfcd380fc899ca8e6533a (diff) | |
| download | automathon-37c0a0b5e4d3939656cac8d103b5a22963fbc9dd.tar.gz automathon-37c0a0b5e4d3939656cac8d103b5a22963fbc9dd.zip | |
load forth from server
Diffstat (limited to 'site/samples/slo-fac.fs')
| -rw-r--r-- | site/samples/slo-fac.fs | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/site/samples/slo-fac.fs b/site/samples/slo-fac.fs index 0ba50ca..1de4dc8 100644 --- a/site/samples/slo-fac.fs +++ b/site/samples/slo-fac.fs @@ -8,19 +8,19 @@ \ and be something nice to look at with blinken : count-to ( n -- n n-1 ... 1 ) - dup - 1 > if - dup 1 - count-to - then + dup + 1 > if + dup 1 - count-to + then ; : stack-mul ( n-x ... n x -- v ) - dup - 1 > if - rot rot * swap 1 - stack-mul - else - drop - then + dup + 1 > if + rot rot * swap 1 - stack-mul + else + drop + then ; 5 count-to |