add multiply to tests

Author: Johan Wiltink

tests/multiply/solution.txt

@@ -0,0 +1 @@
+multiply = \ m n . n (m s ) z

tests/multiply/test.js

@@ -0,0 +1,22 @@
+const {assert} = require("chai");
+
+const LC = require("../../src/lambda-calculus.js");
+LC.config.purity = "LetRec";
+LC.config.numEncoding = "Church";
+LC.config.verbosity = "Concise";
+
+const {multiply} = LC.compile();
+
+describe("Multiply",function(){
+  it("example tests",()=>{
+    assert.equal( multiply(7)(7), 49 );
+    assert.equal( multiply(11)(11), 121 );
+  });
+  it("random tests",()=>{
+    const rnd = (m,n=0) => Math.random() * (n-m) + m | 0 ;
+    for ( let i=1; i<=100; i++ ) {
+      const m = rnd(i), n = rnd(i);
+      assert.equal( multiply(m)(n), m*n );
+    }
+  });
+});

tests/run-tests.js

@@ -10,6 +10,7 @@ const examples = [ "basics-binary-scott"
                  , "is-prime"
                  , "is-prime-scott"
                  , "prime-sieve"
+                 , "multiply"
                  ];
 
 try {