Implement SQRT function
authorDavid Vázquez <davazp@gmail.com>
Mon, 24 Feb 2014 00:05:11 +0000 (01:05 +0100)
committerDavid Vázquez <davazp@gmail.com>
Mon, 24 Feb 2014 00:05:11 +0000 (01:05 +0100)
src/compiler/compiler.lisp
src/numbers.lisp

index e3bac18..25ad560 100644 (file)
 (define-builtin expt (x y)
   `(method-call |Math| "pow" ,x ,y))
 
 (define-builtin expt (x y)
   `(method-call |Math| "pow" ,x ,y))
 
+(define-builtin sqrt (x)
+  `(method-call |Math| "sqrt" ,x))
+
 (define-builtin float-to-string (x)
   `(call |make_lisp_string| (method-call ,x |toString|)))
 
 (define-builtin float-to-string (x)
   `(call |make_lisp_string| (method-call ,x |toString|)))
 
index f5dee9a..a386972 100644 (file)
@@ -94,6 +94,8 @@
 (defun expt (base power) (expt base              power))
 (defun exp  (power)      (expt 2.718281828459045 power))
 
 (defun expt (base power) (expt base              power))
 (defun exp  (power)      (expt 2.718281828459045 power))
 
+(defun sqrt (x) (sqrt x))
+
 (defun gcd-2 (a b)
   (if (zerop b)
       (abs a)
 (defun gcd-2 (a b)
   (if (zerop b)
       (abs a)