Solution to w19 ch2 in p6

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;
+		}
+	}
+}