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

23 - more comparison ops

This commit is contained in:
Kartik K. Agaram 2014-07-13 21:27:23 -07:00
parent 96ebe1423b
commit c8d7559adb
2 changed files with 45 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
mu.arc
View File

@ -75,6 +75,18 @@
neq
(= (memory* oarg.0.1)
(~iso (memory* arg.0.1) (memory* arg.1.1)))
lt
(= (memory* oarg.0.1)
(< (memory* arg.0.1) (memory* arg.1.1)))
gt
(= (memory* oarg.0.1)
(> (memory* arg.0.1) (memory* arg.1.1)))
le
(= (memory* oarg.0.1)
(<= (memory* arg.0.1) (memory* arg.1.1)))
ge
(= (memory* oarg.0.1)
(>= (memory* arg.0.1) (memory* arg.1.1)))
arg
(let idx (if arg
arg.0

33
mu.arc.t
View File

@ -173,6 +173,39 @@
(if (~iso memory* (obj 1 t 2 nil 3 nil))
(prn "F - and works"))
(clear)
(add-fns
'((main
((boolean 1) <- loadi 4)
((boolean 2) <- loadi 4)
((boolean 3) <- le (boolean 1) (boolean 2)))))
(run function*!main)
;? (prn memory*)
(if (~iso memory* (obj 1 4 2 4 3 t))
(prn "F - le works"))
(clear)
(add-fns
'((main
((boolean 1) <- loadi 4)
((boolean 2) <- loadi 3)
((boolean 3) <- le (boolean 1) (boolean 2)))))
(run function*!main)
;? (prn memory*)
(if (~iso memory* (obj 1 4 2 3 3 nil))
(prn "F - le works - 2"))
(clear)
(add-fns
'((main
((boolean 1) <- loadi 4)
((boolean 2) <- loadi 5)
((boolean 3) <- le (boolean 1) (boolean 2)))))
(run function*!main)
;? (prn memory*)
(if (~iso memory* (obj 1 4 2 5 3 t))
(prn "F - le works - 3"))
(clear)
(add-fns
'((main