tests for andmap ormap running

js-assembler/runtime-src/baselib-primitives.js

@@ -1232,6 +1232,8 @@
         });
 
 
+
+
     installPrimitiveProcedure(
 	'number?',
 	1,
@@ -1259,6 +1261,23 @@
 	    return isRational(MACHINE.env[MACHINE.env.length - 1]);
 	});
 
+    installPrimitiveProcedure(
+        'even?',
+        1,
+        function(MACHINE) {
+            var n = checkInteger(MACHINE, 'even?', 0);
+            return baselib.numbers.equals(0, baselib.numbers.modulo(n, 2))
+        });
+
+    installPrimitiveProcedure(
+        'odd?',
+        1,
+        function(MACHINE) {
+            var n = checkInteger(MACHINE, 'odd?', 0);
+            return baselib.numbers.equals(1, baselib.numbers.modulo(n, 2))
+        });
+
+
 
 
 

lang/kernel.rkt

@@ -302,9 +302,9 @@ integer?
 exact?
 exact-nonnegative-integer?
 ;;  inexact?
-;;  odd?
+odd?
-;;  even?
+even?
-  zero?
+zero?
 ;;  positive?
 ;;  negative?
 ;;  box?

tests/more-tests/lists.expected

@@ -7,3 +7,15 @@ true
 hello
 ()
 world
+true
+true
+false
+false
+false
+false
+true
+false
+true
+false
+false
+true

tests/more-tests/lists.rkt

@@ -10,3 +10,17 @@
 (first '(hello))
 (rest '(hello))
 (second '(hello world))
+
+(andmap even? '(2 4 6 8))
+(andmap even? '())
+(andmap even? '(2 4 5 8))
+(andmap even? '(5))
+(andmap even? '(1 3 5 7))
+(andmap even? '(1 3 8 7))
+
+(ormap even? '(2 4 6 8))
+(ormap even? '())
+(ormap even? '(2 4 5 8))
+(ormap even? '(5))
+(ormap even? '(1 3 5 7))
+(ormap even? '(1 3 8 7))