From ecc350ca5c2eb50be8309c5f14f8bf0d87db9a02 Mon Sep 17 00:00:00 2001 From: Moon Flower Date: Mon, 12 Oct 2026 08:46:23 +0330 Subject: a --- docs/history/07-zygote/code/examples/fact.s | 3 +++ 1 file changed, 3 insertions(+) create mode 100644 docs/history/07-zygote/code/examples/fact.s (limited to 'docs/history/07-zygote/code/examples/fact.s') diff --git a/docs/history/07-zygote/code/examples/fact.s b/docs/history/07-zygote/code/examples/fact.s new file mode 100644 index 0000000..21f6e32 --- /dev/null +++ b/docs/history/07-zygote/code/examples/fact.s @@ -0,0 +1,3 @@ +10 fa c pb c 10 . q +:fa 0 $ 2 < fb z _ 1 r :fb 0 $ 1 - fa c * r +:pb 0 $ 1 > 0 $ p1 z pb c pd j :p1 _ :pd 1 & 48 + . r -- cgit v1.2.3