From fbd6d572b00b556a79743154886d3719e3816cb5 Mon Sep 17 00:00:00 2001 From: Magnus Woldrich Date: Tue, 2 Apr 2019 08:27:22 +0200 Subject: add challenge-02 --- challenge-002/magnus-woldrich/perl5/challenge-02.pl | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 challenge-002/magnus-woldrich/perl5/challenge-02.pl diff --git a/challenge-002/magnus-woldrich/perl5/challenge-02.pl b/challenge-002/magnus-woldrich/perl5/challenge-02.pl new file mode 100644 index 0000000000..68440ccbdf --- /dev/null +++ b/challenge-002/magnus-woldrich/perl5/challenge-02.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 -- cgit From 606855b5dacc00b2eb4e630f38484a1d8ddacf4b Mon Sep 17 00:00:00 2001 From: Magnus Woldrich Date: Tue, 2 Apr 2019 08:30:35 +0200 Subject: fix filename to follow naming convention --- challenge-002/magnus-woldrich/perl5/ch-2.pl | 14 ++++++++++++++ challenge-002/magnus-woldrich/perl5/challenge-02.pl | 14 -------------- 2 files changed, 14 insertions(+), 14 deletions(-) create mode 100644 challenge-002/magnus-woldrich/perl5/ch-2.pl delete mode 100644 challenge-002/magnus-woldrich/perl5/challenge-02.pl 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/perl5/challenge-02.pl b/challenge-002/magnus-woldrich/perl5/challenge-02.pl deleted file mode 100644 index 68440ccbdf..0000000000 --- a/challenge-002/magnus-woldrich/perl5/challenge-02.pl +++ /dev/null @@ -1,14 +0,0 @@ -#!/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 -- cgit From 536145b289b04b68218cef58a9158e7942988ecc Mon Sep 17 00:00:00 2001 From: Magnus Woldrich Date: Tue, 2 Apr 2019 10:55:09 +0200 Subject: add ch-2.p6 --- challenge-002/magnus-woldrich/perl6/ch-2.p6 | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 challenge-002/magnus-woldrich/perl6/ch-2.p6 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(); +} -- cgit