Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
11 lines (8 sloc) 244 Bytes
use v6;
my $pretty = ">> " ~ (". " x 20) ~ " <<" ;
for ^10
{
my $format = $pretty.trans( ['>>', '<<', '.']
=> ['%2d','%-2d','%s'] );
say sprintf $format, 1..22;
}