From 3836d573217f7a7bad2090bfc01fe5e683709ea4 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 31 Aug 2012 15:10:48 -0700
Subject: [PATCH] math.functions: faster (integer) m^n.

---
 basis/math/functions/functions.factor | 19 ++++++++++++++++---
 1 file changed, 16 insertions(+), 3 deletions(-)

diff --git a/basis/math/functions/functions.factor b/basis/math/functions/functions.factor
index 264a15d7b0..5c3720c99c 100644
--- a/basis/math/functions/functions.factor
+++ b/basis/math/functions/functions.factor
@@ -25,12 +25,25 @@ M: real sqrt
 
 <PRIVATE
 
-GENERIC# ^n 1 ( z w -- z^w ) foldable
+: (^fixnum) ( z w -- z^w )
+    [ 1 ] 2dip
+    [ dup zero? ] [
+        dup odd? [
+            [ [ * ] keep ] [ 1 - ] bi*
+        ] when [ sq ] [ 2/ ] bi*
+    ] until 2drop ; inline
 
-: (^n) ( z w -- z^w )
+: (^bignum) ( z w -- z^w )
     make-bits 1 [ [ over * ] when [ sq ] dip ] reduce nip ; inline
 
-M: integer ^n
+: (^n) ( z w -- z^w )
+    dup fixnum? [ (^fixnum) ] [ (^bignum) ] if ; inline
+
+GENERIC# ^n 1 ( z w -- z^w ) foldable
+
+M: fixnum ^n (^n) ;
+
+M: bignum ^n
     [ factor-2s ] dip [ (^n) ] keep rot * shift ;
 
 M: ratio ^n