sora/epfl-archive
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Init

Browse Source
This commit is contained in:
choelzl
2022-04-07 18:33:05 +02:00
commit 091ba18f50
177 changed files with 4870 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
cs420-acc/l3-warmup/tests/prim-div.l3 Normal file
View File

@@ -0,0 +1,15 @@
;; In Emacs, open this file in -*- Scheme -*- mode
;; Test the @/ primitive
(@byte-write 73)
(@byte-write (@/ 65 1)) ;A
(@byte-write (@/ 132 2)) ;B
(@byte-write (@/ -201 -3)) ;C
(@byte-write (if (@= (@/ 15 4) 3) 68 63)) ;D
(@byte-write (if (@= (@/ 15 -4) -3) 69 63)) ;E
(@byte-write (if (@= (@/ -15 4) -3) 70 63)) ;F
(@byte-write (if (@= (@/ -15 -4) 3) 71 63)) ;G
(@byte-write (if (@= (@/ -1073741824 -1) -1073741824) 72 63)) ;H
(@byte-write (if (@= (@/ 1073741823 1073741823) 1) 73 63)) ;I