Browse Source

Ajout ceil

Arthur Brandao 6 years ago
parent
commit
93823ccb4d
1 changed files with 6 additions and 0 deletions
  1. 6 0
      src/migl/lisp/LispEval.java

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

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