From c8d7559adb41795dc2bbe52f4acae77113a3f34b Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Sun, 13 Jul 2014 21:27:23 -0700 Subject: 23 - more comparison ops --- mu.arc.t | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) (limited to 'mu.arc.t') diff --git a/mu.arc.t b/mu.arc.t index dc4abf0f..4108e893 100644 --- a/mu.arc.t +++ b/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 -- cgit 1.4.1-2-gfad0