Changeset 3559

Timestamp:

09/02/03 18:29:02 (20 years ago)

Author:

piso

Message:

SQRT

File:

• trunk/j/src/org/armedbear/lisp/Primitives.java (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/Primitives.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Primitives.java,v 1.365 2003-09-02 17:40:29 piso Exp $
+ * $Id: Primitives.java,v 1.366 2003-09-02 18:29:02 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -4788 +4788 @@
     };
 
+    // ### sqrt
+    private static final Primitive1 SQRT =
+        new Primitive1("sqrt") {
+        public LispObject execute(LispObject arg) throws LispError
+        {
+            if (arg instanceof Complex)
+                throw new LispError("SQRT not implemented for complex numbers");
+            if (arg.minusp())
+                return Complex.getInstance(new LispFloat(0),
+                                           sqrt(Fixnum.ZERO.subtract(arg)));
+            return sqrt(arg);
+        }
+    };
+
+    private static final LispFloat sqrt(LispObject obj) throws TypeError
+    {
+        if (obj instanceof Fixnum)
+            return new LispFloat((float)Math.sqrt(((Fixnum)obj).getValue()));
+        if (obj instanceof Bignum)
+            return new LispFloat((float)Math.sqrt(((Bignum)obj).floatValue()));
+        if (obj instanceof Ratio)
+            return new LispFloat((float)Math.sqrt(((Ratio)obj).floatValue()));
+        if (obj instanceof LispFloat)
+            return new LispFloat((float)Math.sqrt(((LispFloat)obj).getValue()));
+        throw new TypeError(obj, "number");
+    }
+
     // ### hashcode-to-string
     private static final Primitive1 HASHCODE_TO_STRING =