Arthur Brandao 6 lat temu
rodzic
commit
bd55cd4560
1 zmienionych plików z 6 dodań i 0 usunięć
  1. 6 0
      src/migl/lisp/LispEval.java

+ 6 - 0
src/migl/lisp/LispEval.java

@@ -149,6 +149,12 @@ public class LispEval {
 			}
 			return LispElement.generate(Math.abs(le.toNumber()));
 		});
+		operators.put("cbrt", (op, lisp) -> {
+			if(lisp.size() != 1) {
+				throw new LispError(LispError.ERR_NUM_ARG);
+			}
+			return LispElement.generate(Math.cbrt(LispElement.getElement(lisp.car()).toNumber()));
+		});
 	}
 
 	private Object lispElt = null;