diff options
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 |