aboutsummaryrefslogtreecommitdiff
path: root/buzzard/demo5.th
diff options
context:
space:
mode:
Diffstat (limited to 'buzzard/demo5.th')
-rw-r--r--buzzard/demo5.th27
1 files changed, 0 insertions, 27 deletions
diff --git a/buzzard/demo5.th b/buzzard/demo5.th
deleted file mode 100644
index d16ca1e..0000000
--- a/buzzard/demo5.th
+++ /dev/null
@@ -1,27 +0,0 @@
-( recursive factorial. given x on top, followed by )
-( an "accumulator" containing the product except for x! )
-
-: fact-help2
-
- dup if
- swap over swap
- *
- swap 1 -
- fact-help2
- then
-;
-
-: fact
-
- 1 swap
- fact-help2
- drop
-;
-
-: demo5
-
- " The factorial of 3 is: " 3 fact . cr
- " The factorial of 5 is: " 5 fact . cr
-;
-
-demo5