diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-02-15 19:21:35 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-02-15 19:21:35 +0000 |
| commit | 253e0a6f1d94941d1ae7ea1b93b9c644e246bcaf (patch) | |
| tree | 312f3b24dcf4281fb4231d496ac389802825e249 | |
| parent | 07a76c847e14d0051e6c6ee30fc54ee8a12ee41f (diff) | |
| parent | 5ea7836872862df13a2698f2578d2ec064e3d18b (diff) | |
| download | perlweeklychallenge-club-253e0a6f1d94941d1ae7ea1b93b9c644e246bcaf.tar.gz perlweeklychallenge-club-253e0a6f1d94941d1ae7ea1b93b9c644e246bcaf.tar.bz2 perlweeklychallenge-club-253e0a6f1d94941d1ae7ea1b93b9c644e246bcaf.zip | |
Merge pull request #3531 from fluca1978/pwc100
Pwc100
| -rw-r--r-- | challenge-100/luca-ferrari/blog-1.txt | 1 | ||||
| -rw-r--r-- | challenge-100/luca-ferrari/blog-2.txt | 1 | ||||
| -rw-r--r-- | challenge-100/luca-ferrari/raku/ch-1.p6 | 18 | ||||
| -rw-r--r-- | challenge-100/luca-ferrari/raku/ch-2.p6 | 8 |
4 files changed, 28 insertions, 0 deletions
diff --git a/challenge-100/luca-ferrari/blog-1.txt b/challenge-100/luca-ferrari/blog-1.txt new file mode 100644 index 0000000000..7eff243022 --- /dev/null +++ b/challenge-100/luca-ferrari/blog-1.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2021/02/15/PerlWeeklyChallenge100.html#task1 diff --git a/challenge-100/luca-ferrari/blog-2.txt b/challenge-100/luca-ferrari/blog-2.txt new file mode 100644 index 0000000000..b42c970435 --- /dev/null +++ b/challenge-100/luca-ferrari/blog-2.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2021/02/15/PerlWeeklyChallenge100.html#task2 diff --git a/challenge-100/luca-ferrari/raku/ch-1.p6 b/challenge-100/luca-ferrari/raku/ch-1.p6 new file mode 100644 index 0000000000..dedf5ffcbe --- /dev/null +++ b/challenge-100/luca-ferrari/raku/ch-1.p6 @@ -0,0 +1,18 @@ +#!raku + + +sub MAIN( Str $when, Str $phase? = '' ) { + if $when ~ $phase ~~ / $<hour>=\d+ ':' $<minute>=\d+ $<phase>=( 'am'|'pm' )? / { + my $hour = $<hour>.Int; + my $am = "%s".sprintf( $<phase> && $<phase>.Str ?? $<phase>.Str.lc !! '' ); + + given $am { + when 'am' { $hour += $hour > 12 ?? -12 !! 0; $am = ''; } + when 'pm' { $hour += $hour < 12 ?? 12 !! 0; $am = ''; } + default { $am = $hour < 13 ?? 'am' !! 'pm'; + $hour += $hour < 13 ?? 0 !! -12; } + } + + say "%02d:%02d %s".sprintf( $hour , $<minute>, $am ).trim; + } +} diff --git a/challenge-100/luca-ferrari/raku/ch-2.p6 b/challenge-100/luca-ferrari/raku/ch-2.p6 new file mode 100644 index 0000000000..824b058e50 --- /dev/null +++ b/challenge-100/luca-ferrari/raku/ch-2.p6 @@ -0,0 +1,8 @@ +#!raku + +sub MAIN() { + my @triangle = [ [1], [2,4], [6,4,9], [5,1,7,2] ]; +# @triangle = [ [3], [3,1], [5,2,3], [4,3,1,3] ]; + my $sum += .min for @triangle; + say $sum; +} |