Arthur Brandao 6 anni fa
parent
commit
2d0e39a989
2 ha cambiato i file con 3 aggiunte e 0 eliminazioni
  1. 1 0
      src/migl/lisp/LispEval.java
  2. 2 0
      src/migl/lisp/operator/MathOperator.java

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

@@ -33,6 +33,7 @@ public class LispEval {
 		operators.put("cbrt", new MathOperator());
 		operators.put("ceil", new MathOperator());
 		operators.put("floor", new MathOperator());
+		operators.put("log10", new MathOperator());
 		operators.put("quote", (op, lisp) -> {
 			if(lisp.size() != 1) {
 				throw new LispError(LispError.ERR_NUM_ARG);

+ 2 - 0
src/migl/lisp/operator/MathOperator.java

@@ -20,6 +20,8 @@ public class MathOperator implements LispOperator {
 				return LispElement.generate(Math.ceil(elt.toNumber()));
 			case "floor":
 				return LispElement.generate(Math.floor(elt.toNumber()));
+			case "log10":
+				return LispElement.generate(Math.log10(elt.toNumber()));
 			default:
 				throw new LispError(operator + LispError.ERR_UNKNOW);
 		}