From 1c81d26b706abb43ba71eb36cdb622dae03e95cd Mon Sep 17 00:00:00 2001 From: Brian Cully Date: Mon, 25 Aug 2025 12:06:51 -0400 Subject: add sample code in site --- site/samples/fac.fs | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 site/samples/fac.fs (limited to 'site/samples') 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 -- cgit v1.3