Test .trans and sprintf.

perl6 · Nov 9, 2010 · 0b7573c · 0b7573c
1 parent 5ef402e
commit 0b7573c
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/trans-sprintf.pl b/trans-sprintf.pl
@@ -0,0 +1,10 @@
+use v6;
+
+my $pretty = ">> " ~ (". " x 20) ~ " <<" ;
+
+for ^10
+{
+    my $format = $pretty.trans( ['>>',   '<<', '.']
+                             => ['%2d','%-2d','%s'] );
+    say sprintf $format, 1..22;    
+}