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/prim-xor.l3
+++ b/cs420-acc/l3-warmup/tests/prim-xor.l3
@@ -0,0 +1,13 @@
+;; In Emacs, open this file in -*- Scheme -*- mode
+
+;; Test the @xor primitive
+
+(@byte-write 70)
+
+(@byte-write (@xor 0 65))                        ;A
+(@byte-write (@xor 66 0))                        ;B
+(@byte-write (@xor 66 1))                        ;C
+(@byte-write (@xor -1 -69))                      ;D
+(@byte-write (if (@= (@xor 2018 2018) 0) 69 63)) ;E
+(@byte-write (@xor 207 137))                     ;F
+