Merge pull request #9 from trapd00r/master

add challenge-02

2 files changed, 26 insertions, 0 deletions

diff --git a/challenge-002/magnus-woldrich/perl5/ch-2.pl b/challenge-002/magnus-woldrich/perl5/ch-2.pl
new file mode 100644
index 0000000000..68440ccbdf
--- /dev/null
+++ b/challenge-002/magnus-woldrich/perl5/ch-2.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+# vim: ft=perl:fdm=marker:fmr=#<,#>:fen:et:sw=2:
+use strict;
+use warnings FATAL => 'all';
+
+
+print for map { sprintf "%d\n", $_ } @ARGV ? @ARGV : (@ARGV = readline);
+
+__END__
+
+$ printf "%02d\n%04d\n%042d\n" 1 2 3 | perl challenge-02.pl
+1
+2
+3
diff --git a/challenge-002/magnus-woldrich/perl6/ch-2.p6 b/challenge-002/magnus-woldrich/perl6/ch-2.p6
new file mode 100644
index 0000000000..0682e85732
--- /dev/null
+++ b/challenge-002/magnus-woldrich/perl6/ch-2.p6
@@ -0,0 +1,12 @@
+#!/bin/perl6
+# my first ever perl6 script
+# 10/10 would do again
+
+if @*ARGS {
+  for @*ARGS -> $arg {
+    printf "%d\n", $arg;
+  }
+}
+else {
+  printf "%d\n", $_ for lines();
+}