Implement SQRT function

diff --git a/src/compiler/compiler.lisp b/src/compiler/compiler.lisp
index e3bac18..25ad560 100644 (file)
--- a/src/compiler/compiler.lisp
+++ b/src/compiler/compiler.lisp
@@ -1018,6 +1018,9 @@
 (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|)))
 

diff --git a/src/numbers.lisp b/src/numbers.lisp
index f5dee9a..a386972 100644 (file)
--- a/src/numbers.lisp
+++ b/src/numbers.lisp
@@ -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)