Init

2022-04-07 18:33:05 +02:00
commit 091ba18f50
177 changed files with 4870 additions and 0 deletions
--- a/cs420-acc/l3-warmup/tests/stmt-defrec.l3
+++ b/cs420-acc/l3-warmup/tests/stmt-defrec.l3
@@ -0,0 +1,14 @@
+;; In Emacs, open this file in -*- Scheme -*- mode
+
+;; Test the "defrec" statement
+
+(@byte-write 67)
+
+(defrec succ (fun (x) (@+ x 1)))
+(@byte-write (succ 64))
+
+(defrec fact (fun (x) (if (@= x 0) 1 (@* x (fact (@- x 1))))))
+(@byte-write (@- (fact 5) 54))
+
+(defrec fact (fun (x) (@+ x 2)))
+(@byte-write (fact 65))