From 2b3ad64a77cef506b5151e8f18eae77fd051b605 Mon Sep 17 00:00:00 2001 From: Marvin Borner Date: Fri, 31 May 2024 20:25:55 +0200 Subject: Switch to normal order (and more) --- samples/factorial.gpn | 2 ++ 1 file changed, 2 insertions(+) create mode 100644 samples/factorial.gpn (limited to 'samples/factorial.gpn') diff --git a/samples/factorial.gpn b/samples/factorial.gpn new file mode 100644 index 0000000..46201e4 --- /dev/null +++ b/samples/factorial.gpn @@ -0,0 +1,2 @@ +FAC = (Y \f.\n.(((ZERO n) 1) ((MUL n) (f (PRED n))))) +MAIN = (FAC 3) -- cgit v1.2.3