23 - more comparison ops
This commit is contained in:
parent
96ebe1423b
commit
c8d7559adb
12
mu.arc
12
mu.arc
|
@ -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
33
mu.arc.t
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue