eq? and neq? bugfix; add pow

package.json

@@ -1,6 +1,6 @@
 {
   "name": "@ludus/ludus-js-pure",
-  "version": "0.1.38",
+  "version": "0.1.39",
   "description": "A Ludus interpreter in a pure JS function.",
   "type": "module",
   "main": "build/ludus.mjs",

prelude.ld

@@ -81,7 +81,7 @@ fn eq? {
 	(x, y) -> base :eq? (x, y)
 	(x, y, ...zs) -> if eq? (x, y)
 		then loop (y, zs) with {
-			(a, []) -> eq? (a, x)
+			(a, [b]) -> if eq? (a, x) then eq? (a, b) else false
 			(a, [b, ...cs]) -> if eq? (a, x)
 				then recur (b, cs)
 				else false
@@ -123,18 +123,15 @@ fn not {
 	(_) -> false
 }
 
-fn neq? {
+ fn neq? {
 	"Returns true if none of the arguments have the same value."
 	(x) -> false
 	(x, y) -> not (eq? (x, y))
-	(x, y, ...zs) -> if eq? (x, y)
+	(x, y, ...zs) -> {
-		then false
+		let z_set = set(zs)
-		else loop (y, zs) with {
+		let xyz_set = ${x, y, ...z_set}
-			(a, []) -> neq? (a, x)
+    eq? (count (xyz_set), add(2, count (zs)))
-			(a, [b, ...cs]) -> if neq? (a, x)
+	}
-				then recur (b, cs)
-				else false
-		}
 }
 
 & tuples: not a lot you can do with them functionally
@@ -507,6 +504,11 @@ fn mult {
 	((x, y), scalar as :number) -> mult (scalar, (x, y))
 }
 
+fn pow {
+	"Raises a number to the power of another number."
+	(x as :number, y as :number) -> base :pow (x, y)
+}
+
 fn div {
 	"Divides numbers. Panics on division by zero."
 	(x as :number) -> x

src/base.janet

@@ -286,6 +286,7 @@
   "div" /
   "doc" doc
   "downcase" string/ascii-lower
+  "e" math/e
   "eq?" deep=
   "first" first
   "floor" math/floor
@@ -302,6 +303,7 @@
   "nth" ludus/get
   "or" ludus/or
   "pi" math/pi
+  "pow" math/pow
   "print!" print!
   "prn" prn
   "push" array/push
@@ -334,4 +336,3 @@
     (set (b (keyword k)) v))
   b))
 
-(to_number "     123  a  ")