implement Int.base

rakudo · May 7, 2011 · 705435e · 705435e
1 parent 6ae3c92
commit 705435e
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 0 deletions.
diff --git a/src/core/Int.pm b/src/core/Int.pm
@@ -33,6 +33,20 @@ augment class Int does Real {
     method gcd(Int $x: Int $y) {
         pir::gcd__iii($x, $y);
     }
+
+    method base(Cool $base as Int) {
+        fail("base must be between 2 and 36, got $base") unless 2 <= $base <= 36;
+        my @conversion = 0..9, 'A' .. 'Z';
+        my @res;
+        my $n = self.abs;
+        repeat {
+            push @res, @conversion[$n % $base];
+            $n div= $base;
+        } while $n > 0;
+        push @res, '-' if self < 0;
+        join '', @res.reverse;
+
+    }
 }
 
 multi sub infix:<cmp>(Int $a, Int $b) {

diff --git a/t/spectest.data b/t/spectest.data
@@ -558,6 +558,7 @@ S32-list/roll.t
 S32-list/sort.t
 S32-list/uniq.t
 S32-num/abs.t
+S32-num/base.t
 S32-num/complex.t
 S32-num/cool-num.t
 S32-num/exp.t