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/expr-rec.l3
+++ b/cs420-acc/l3-warmup/tests/expr-rec.l3
@@ -0,0 +1,10 @@
+;; In Emacs, open this file in -*- Scheme -*- mode
+
+;; Test the "rec" expression
+
+(@byte-write 65)
+
+(rec loop ((i 0) (j 65))
+     (if (@= j 0)
+         (@byte-write i)
+         (loop (@+ i 1) (@- j 1))))