Naive implementation of Str.tc and tc(Str)

Waiting for RaNIW to implement nqp::tc as an exercise
rakudo · Aug 26, 2013 · fe289bf · fe289bf
1 parent efc4efd
commit fe289bf
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/core/Str.pm b/src/core/Str.pm
@@ -991,6 +991,10 @@ my class Str does Stringy { # declared in BOOTSTRAP
         nqp::p6box_i(nqp::chars(nqp::unbox_s(self)))
     }
 
+    method tc(Str:D:) returns Str:D {
+        my $u := nqp::unbox_s(self);
+        nqp::p6box_s(nqp::tclc(nqp::substr($u,0,1)) ~ nqp::substr($u,1));
+    }
     method tclc(Str:D:) returns Str:D {
         nqp::p6box_s(nqp::tclc(nqp::unbox_s(self)))
     }
@@ -1153,6 +1157,10 @@ sub substr-rw($s is rw, $from = 0, $chars = $s.chars - $from) {
     );
 }
 
+multi sub tc(Str:D $s) returns Str:D {
+    my $u := nqp::unbox_s($s);
+    nqp::p6box_s(nqp::tclc(nqp::substr($u,0,1)) ~ nqp::substr($u,1));
+}
 multi sub tclc(Str:D $s) returns Str:D {
     nqp::p6box_s(nqp::tclc(nqp::unbox_s($s)));
 }