diff options
| -rwxr-xr-x | challenge-019/ruben-westerberg/perl6/ch-2.p6 | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/challenge-019/ruben-westerberg/perl6/ch-2.p6 b/challenge-019/ruben-westerberg/perl6/ch-2.p6 new file mode 100755 index 0000000000..c24ead4e88 --- /dev/null +++ b/challenge-019/ruben-westerberg/perl6/ch-2.p6 @@ -0,0 +1,19 @@ +#!/usr/bin/env perl6 +sub MAIN(:$col=80) { + my @words=$*IN.lines.split(" ",:v); + while @words { + state $rem=$col; + my $w=@words[0]; + if $w.chars <= $rem { + print $w; + $rem-=$w.chars; + @words.shift; + } + + else { + print "\n"; + @words.shift if @words[0] eq " "; + $rem=$col; + } + } +} |