From 37c0a0b5e4d3939656cac8d103b5a22963fbc9dd Mon Sep 17 00:00:00 2001 From: Brian Cully Date: Mon, 25 Aug 2025 13:35:12 -0400 Subject: load forth from server --- site/samples/slo-fac.fs | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'site/samples/slo-fac.fs') 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 -- cgit v1.3