瀏覽代碼

Ajout cbrt

Arthur Brandao 6 年之前
父節點
當前提交
bd55cd4560
共有 1 個文件被更改,包括 6 次插入0 次删除
  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;