Changeset 3567

Timestamp:

09/04/03 00:16:39 (20 years ago)

Author:

piso

Message:

SYS::GCD-2

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.367 2003-09-03 23:44:01 piso Exp $
+ * $Id: Primitives.java,v 1.368 2003-09-04 00:16:39 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -4815 +4815 @@
     }
 
+    // ### gcd-2
+    private static final Primitive2 GCD_2 =
+        new Primitive2("gcd-2", PACKAGE_SYS, false)
+    {
+        public LispObject execute(LispObject first, LispObject second)
+            throws LispError
+        {
+            BigInteger n1, n2;
+            if (first instanceof Fixnum)
+                n1 = BigInteger.valueOf(((Fixnum)first).getValue());
+            else if (first instanceof Bignum)
+                n1 = ((Bignum)first).getValue();
+            else
+                throw new TypeError(first, "integer");
+            if (second instanceof Fixnum)
+                n2 = BigInteger.valueOf(((Fixnum)second).getValue());
+            else if (second instanceof Bignum)
+                n2 = ((Bignum)second).getValue();
+            else
+                throw new TypeError(second, "integer");
+            return number(n1.gcd(n2));
+        }
+    };
+
     // ### hashcode-to-string
     private static final Primitive1 HASHCODE_TO_STRING =