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/library/functions.l3
+++ b/cs420-acc/l3-warmup/library/functions.l3
@@ -0,0 +1,11 @@
+;; In Emacs, open this file in -*- Scheme -*- mode.
+
+;; Functions
+
+(def function?
+     (fun (o)
+          (and (@block? o) (@= 202 (@block-tag o)))))
+
+(def function-compose
+     (fun (f g)
+          (fun (x) (f (g x)))))