akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

12 - more arithmetic ops

This commit is contained in:
Kartik K. Agaram 2014-07-11 21:04:38 -07:00
parent f4bc8c3148
commit 6264ac68cf
2 changed files with 58 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
mu.arc
View File

@ -29,6 +29,20 @@
add
(= (memory* oarg.0.1)
(+ (memory* arg.0.1) (memory* arg.1.1)))
sub
(= (memory* oarg.0.1)
(- (memory* arg.0.1) (memory* arg.1.1)))
mul
(= (memory* oarg.0.1)
(* (memory* arg.0.1) (memory* arg.1.1)))
div
(= (memory* oarg.0.1)
(/ (real (memory* arg.0.1)) (memory* arg.1.1)))
idiv
(= (memory* oarg.0.1)
(trunc:/ (memory* arg.0.1) (memory* arg.1.1))
(memory* oarg.1.1)
(mod (memory* arg.0.1) (memory* arg.1.1)))
read
(= (memory* oarg.0.1)
; hardcoded channel for now

44
mu.arc.t
View File

@ -95,3 +95,47 @@
; add-fn's temporaries
4 1 5 3 6 4))
(prn "F - parameterized compound fn with multiple return values"))
(clear)
(add-fns
'((main
((integer 1) <- loadi 1)
((integer 2) <- loadi 3)
((integer 3) <- sub (integer 1) (integer 2)))))
(run function*!main)
;? (prn memory*)
(if (~iso memory* (obj 1 1 2 3 3 -2))
(prn "F - sub works"))
(clear)
(add-fns
'((main
((integer 1) <- loadi 2)
((integer 2) <- loadi 3)
((integer 3) <- mul (integer 1) (integer 2)))))
(run function*!main)
;? (prn memory*)
(if (~iso memory* (obj 1 2 2 3 3 6))
(prn "F - mul works"))
(clear)
(add-fns
'((main
((integer 1) <- loadi 8)
((integer 2) <- loadi 3)
((integer 3) <- div (integer 1) (integer 2)))))
(run function*!main)
;? (prn memory*)
(if (~iso memory* (obj 1 8 2 3 3 (/ real.8 3)))
(prn "F - div works"))
(clear)
(add-fns
'((main
((integer 1) <- loadi 8)
((integer 2) <- loadi 3)
((integer 3) (integer 4) <- idiv (integer 1) (integer 2)))))
(run function*!main)
;? (prn memory*)
(if (~iso memory* (obj 1 8 2 3 3 2 4 2))
(prn "F - idiv works"))