diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-03-30 01:57:59 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-03-30 01:57:59 +0100 |
| commit | b91fc213eff95b63bf8200e4a1fba9694f048927 (patch) | |
| tree | d6d91a5a08ed0a230802f0ff9f006a63c77fb49b | |
| parent | ed1eadae3a6d15c84cee4387a795a074ed2a1108 (diff) | |
| parent | 35507a71342c0e6d248f7108ecb83302ff64f832 (diff) | |
| download | perlweeklychallenge-club-b91fc213eff95b63bf8200e4a1fba9694f048927.tar.gz perlweeklychallenge-club-b91fc213eff95b63bf8200e4a1fba9694f048927.tar.bz2 perlweeklychallenge-club-b91fc213eff95b63bf8200e4a1fba9694f048927.zip | |
Merge pull request #3794 from fluca1978/pwc106
Pwc106
| -rw-r--r-- | challenge-106/luca-ferrari/blog-1.txt | 1 | ||||
| -rw-r--r-- | challenge-106/luca-ferrari/blog-2.txt | 1 | ||||
| -rw-r--r-- | challenge-106/luca-ferrari/raku/ch-1.p6 | 5 | ||||
| -rw-r--r-- | challenge-106/luca-ferrari/raku/ch-2.p6 | 8 |
4 files changed, 15 insertions, 0 deletions
diff --git a/challenge-106/luca-ferrari/blog-1.txt b/challenge-106/luca-ferrari/blog-1.txt new file mode 100644 index 0000000000..09af89a356 --- /dev/null +++ b/challenge-106/luca-ferrari/blog-1.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2021/03/29/PerlWeeklyChallenge106.html#task1 diff --git a/challenge-106/luca-ferrari/blog-2.txt b/challenge-106/luca-ferrari/blog-2.txt new file mode 100644 index 0000000000..f8112edc5f --- /dev/null +++ b/challenge-106/luca-ferrari/blog-2.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2021/03/29/PerlWeeklyChallenge106.html#task2 diff --git a/challenge-106/luca-ferrari/raku/ch-1.p6 b/challenge-106/luca-ferrari/raku/ch-1.p6 new file mode 100644 index 0000000000..44ffdaec89 --- /dev/null +++ b/challenge-106/luca-ferrari/raku/ch-1.p6 @@ -0,0 +1,5 @@ +#!raku + +sub MAIN( *@N where { @N.elems == @N.grep( * ~~ Int ).elems } ) { + @N.sort.rotor( 2 => -1 ).map( { $_[ 1 ] - $_[ 0 ] } ).max.say; +} diff --git a/challenge-106/luca-ferrari/raku/ch-2.p6 b/challenge-106/luca-ferrari/raku/ch-2.p6 new file mode 100644 index 0000000000..47253ada3c --- /dev/null +++ b/challenge-106/luca-ferrari/raku/ch-2.p6 @@ -0,0 +1,8 @@ +#!raku + +sub MAIN( Int $D, Int $N where { $N != 0 } ) { + my @values = ( $D / $N ).base-repeating( 10 ); + + @values[ 0 ].say and exit if ( ! @values[ 1 ] ); + '%s(%s)'.sprintf( @values ).say; +} |