add pow, work on sets

Cargo.toml

@@ -8,7 +8,7 @@ crate-type = ["cdylib", "rlib"]
 
 [dependencies]
 chumsky = "0.10.1"
-imbl = "3.0.0"
+imbl = "5.0.0"
 num-derive = "0.4.2"
 num-traits = "0.2.19"
 regex = "1.11.1"
@@ -19,3 +19,4 @@ serde_json = "1.0"
 console_error_panic_hook = "0.1.7"
 struct_scalpel = "0.1.1"
 serde-wasm-bindgen = "0.6.5"
+ordered-float = "5.0.0"

pkg/rudus.d.ts

@@ -14,8 +14,8 @@ export interface InitOutput {
   readonly __wbindgen_malloc: (a: number, b: number) => number;
   readonly __wbindgen_realloc: (a: number, b: number, c: number, d: number) => number;
   readonly __wbindgen_export_6: WebAssembly.Table;
-  readonly closure353_externref_shim: (a: number, b: number, c: any) => void;
-  readonly closure376_externref_shim: (a: number, b: number, c: any, d: any) => void;
+  readonly closure354_externref_shim: (a: number, b: number, c: any) => void;
+  readonly closure377_externref_shim: (a: number, b: number, c: any, d: any) => void;
   readonly __wbindgen_start: () => void;
 }
 

pkg/rudus.js

@@ -240,13 +240,13 @@ function _assertNum(n) {
 function __wbg_adapter_20(arg0, arg1, arg2) {
     _assertNum(arg0);
     _assertNum(arg1);
-    wasm.closure353_externref_shim(arg0, arg1, arg2);
+    wasm.closure354_externref_shim(arg0, arg1, arg2);
 }
 
 function __wbg_adapter_46(arg0, arg1, arg2, arg3) {
     _assertNum(arg0);
     _assertNum(arg1);
-    wasm.closure376_externref_shim(arg0, arg1, arg2, arg3);
+    wasm.closure377_externref_shim(arg0, arg1, arg2, arg3);
 }
 
 async function __wbg_load(module, imports) {
@@ -403,8 +403,8 @@ function __wbg_get_imports() {
         _assertBoolean(ret);
         return ret;
     };
-    imports.wbg.__wbindgen_closure_wrapper8075 = function() { return logError(function (arg0, arg1, arg2) {
-        const ret = makeMutClosure(arg0, arg1, 354, __wbg_adapter_20);
+    imports.wbg.__wbindgen_closure_wrapper8124 = function() { return logError(function (arg0, arg1, arg2) {
+        const ret = makeMutClosure(arg0, arg1, 355, __wbg_adapter_20);
         return ret;
     }, arguments) };
     imports.wbg.__wbindgen_debug_string = function(arg0, arg1) {

pkg/rudus_bg.wasm.d.ts

@@ -9,6 +9,6 @@ export const __wbindgen_free: (a: number, b: number, c: number) => void;
 export const __wbindgen_malloc: (a: number, b: number) => number;
 export const __wbindgen_realloc: (a: number, b: number, c: number, d: number) => number;
 export const __wbindgen_export_6: WebAssembly.Table;
-export const closure353_externref_shim: (a: number, b: number, c: any) => void;
-export const closure376_externref_shim: (a: number, b: number, c: any, d: any) => void;
+export const closure354_externref_shim: (a: number, b: number, c: any) => void;
+export const closure377_externref_shim: (a: number, b: number, c: any, d: any) => void;
 export const __wbindgen_start: () => void;

src/base.rs

@@ -179,6 +179,13 @@ pub fn mult(x: &Value, y: &Value) -> Value {
     }
 }
 
+pub fn pow(x: &Value, y: &Value) -> Value {
+    match (x, y) {
+        (Value::Number(x), Value::Number(y)) => Value::Number(x.powf(*y)),
+        _ => unreachable!("internal ludus error: pow expects numbers"),
+    }
+}
+
 pub fn dissoc(dict: &Value, key: &Value) -> Value {
     match (dict, key) {
         (Value::Dict(dict), Value::Keyword(key)) => {
@@ -669,6 +676,7 @@ pub fn make_base() -> Value {
             Value::BaseFn(Box::new(BaseFn::Unary("number", number))),
         ),
         ("pi", Value::Number(std::f64::consts::PI)),
+        ("pow", Value::BaseFn(Box::new(BaseFn::Binary("pow", pow)))),
         (
             "print!",
             Value::BaseFn(Box::new(BaseFn::Unary("print!", print))),