Bladeren bron

Ajout ceil

Arthur Brandao 6 jaren geleden
bovenliggende
commit
93823ccb4d
1 gewijzigde bestanden met toevoegingen van 6 en 0 verwijderingen
  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;