diff options
25 files changed, 811 insertions, 535 deletions
diff --git a/challenge-001/andrezgz/README b/challenge-001/andrezgz/README new file mode 100644 index 0000000000..f4fd0da88e --- /dev/null +++ b/challenge-001/andrezgz/README @@ -0,0 +1 @@ +Solution by Andrezgz diff --git a/challenge-001/andrezgz/perl5/ch-1.pl b/challenge-001/andrezgz/perl5/ch-1.pl new file mode 100644 index 0000000000..c39458af73 --- /dev/null +++ b/challenge-001/andrezgz/perl5/ch-1.pl @@ -0,0 +1,14 @@ +#!/usr/bin/perl + +# https://perlweeklychallenge.org/blog/a-new-week-a-new-challenge/ +# Challenge #1 +# Write a script to replace the character ‘e’ with ‘E’ in the string ‘Perl Weekly Challenge’. +# Also print the number of times the character ‘e’ found in the string. + +use strict; + +my $str = 'Perl Weekly Challenge'; + +my $c = ($str =~ tr/e/E/); + +print $str . ' had ' . $c . ' e\'s that were replaced by E\'s'; diff --git a/challenge-001/andrezgz/perl5/ch-2.sh b/challenge-001/andrezgz/perl5/ch-2.sh new file mode 100644 index 0000000000..e3471a0222 --- /dev/null +++ b/challenge-001/andrezgz/perl5/ch-2.sh @@ -0,0 +1,47 @@ +# https://perlweeklychallenge.org/blog/a-new-week-a-new-challenge/ +# Challenge #2 +# Write a one-liner to solve the FizzBuzz problem and print the numbers 1 through 20. +# However, any number divisible by 3 should be replaced by the word ‘fizz’ and any divisible by 5 +# by the word ‘buzz’. Those numbers that are both divisible by 3 and 5 become ‘fizzbuzz’. + + +perl -e ' + map { + print ( + (!($_ % 15) + ? "fizzbuzz" + : !($_ % 3) + ? "fizz" + : !($_ % 5) + ? "buzz" + : $_) + . "\n" + ) + } (1..20) +' + +perl -e ' + map { + print ( + (!($_ % 15) + ? "fizzbuzz" : "" + .!($_ % 3) + ? "fizz" : "" + .!($_ % 5) + ? "buzz" : "" + . $_) + . $/ + ) + } (1..20) +' + + +perl -e ' + print join $/, map { + my $d = $_; + $_ = "fizz" unless ($d % 3); + $_ = "buzz" unless ($d % 5); + $_ = "fizzbuzz" unless ($d % 15); + $_ + } (1..20) +' diff --git a/challenge-001/james-smith/perl6/ch-1.sh b/challenge-001/james-smith/perl6/ch-1.sh new file mode 100644 index 0000000000..97acafca4b --- /dev/null +++ b/challenge-001/james-smith/perl6/ch-1.sh @@ -0,0 +1 @@ +perl6 -e 'say Int( (my $s = "Perl Weekly Challenge" ) ~~ tr/e/E/); say $s;' diff --git a/challenge-001/james-smith/perl6/ch-2.sh b/challenge-001/james-smith/perl6/ch-2.sh new file mode 100644 index 0000000000..0ca8913e1f --- /dev/null +++ b/challenge-001/james-smith/perl6/ch-2.sh @@ -0,0 +1 @@ +perl6 -e 'say (($_%3??""!!"Fizz") ~ ($_%5??""!!"Buzz")||$_) for 1..20;' diff --git a/challenge-002/andrezgz/README b/challenge-002/andrezgz/README new file mode 100644 index 0000000000..f4fd0da88e --- /dev/null +++ b/challenge-002/andrezgz/README @@ -0,0 +1 @@ +Solution by Andrezgz diff --git a/challenge-002/andrezgz/perl5/ch-1.pl b/challenge-002/andrezgz/perl5/ch-1.pl new file mode 100644 index 0000000000..36addeca96 --- /dev/null +++ b/challenge-002/andrezgz/perl5/ch-1.pl @@ -0,0 +1,41 @@ +#!/usr/bin/perl + +# https://perlweeklychallenge.org/blog/perl-weekly-challenge-002/ +# Challenge #1 +# Write a script or one-liner to remove leading zeros from positive numbers. + +# Wikipedia - https://en.wikipedia.org/wiki/Leading_zero +# A leading zero is any 0 digit that comes before the first nonzero digit +# in a number string in positional notation. +# When leading zeros occupy the most significant digits of an integer, +# they could be left blank or omitted for the same numeric value. +# Therefore, the usual decimal notation of integers does not use leading zeros +# except for the zero itself, which would be denoted as an empty string otherwise. + +# Non-numeric data +# 0a -> 0a +# a -> a + +# Non-positive numbers +# 0 -> 0 +# 0. -> 0. +# 0.0 -> 0.0 +# 00 -> 00 +# 00. -> 00. +# 00.0 -> 00.0 +# -01 -> -01 +# -01. -> -01. +# -01.0 -> -01.0 + +# Leading zeros on positive numbers +# 01 -> 1 +# 01. -> 1. +# 01.0 -> 1.0 +# 010.0 -> 10.0 + +use strict; + +my $number = @ARGV[0]; + +$number =~ s/^0+([1-9][0-9]*(:?[.,]\d*)?)$/$1/; +print $number; diff --git a/challenge-002/andrezgz/perl5/ch-2.pl b/challenge-002/andrezgz/perl5/ch-2.pl new file mode 100644 index 0000000000..0f005d4553 --- /dev/null +++ b/challenge-002/andrezgz/perl5/ch-2.pl @@ -0,0 +1,52 @@ +#!/usr/bin/perl + +# https://perlweeklychallenge.org/blog/perl-weekly-challenge-002/ +# Challenge #2 +# Write a script that can convert integers to and from a base35 representation, +# using the characters 0-9 and A-Y. Dave Jacoby came up with nice description about base35, +# in case you needed some background. +# https://gist.github.com/jacoby/764bb4e8a5d3a819b5fbfa497fcb3454 + +#Usage +# ch-2.pl --to-base35 <base-10-number> +# ch-2.pl --from-base35 <base-35-number> + +use strict; + +my @base = (0..9,'A' .. 'Y'); + +print to_base35($ARGV[1]) if ($ARGV[0] eq '--to-base35'); +print from_base35($ARGV[1]) if ($ARGV[0] eq '--from-base35'); + + +sub to_base35 { + my ($i) = @_; + + return 0 if ($i == 0); + + my $sign = ($i =~ s/-//) ? '-' : ''; + + my $result; + + while ($i > 0) { + $result .= $base[$i % @base]; + $i = int($i / @base); + } + return $sign . reverse $result; +} + +sub from_base35 { + my ($t) = @_; + $t = reverse $t; + + my $sign = ($t =~ s/-//) ? '-' : ''; + + my $result = 0; + + for my $i (0..length($t)-1){ + my $c = substr($t, $i, 1); + my ($index) = grep { $base[$_] eq $c } (0 .. @base-1); + $result += $index * ( @base ** $i ); + } + return $sign . $result; +} diff --git a/challenge-002/james-smith/README b/challenge-002/james-smith/README deleted file mode 100644 index 573d9eb02a..0000000000 --- a/challenge-002/james-smith/README +++ /dev/null @@ -1 +0,0 @@ -Solution by James Smith diff --git a/challenge-002/james-smith/README.md b/challenge-002/james-smith/README.md new file mode 100644 index 0000000000..7ccf2dd6d9 --- /dev/null +++ b/challenge-002/james-smith/README.md @@ -0,0 +1,20 @@ +Solution by James Smith + +## Perl6 solution - currying + +Just learning Perl 6 - so thought I'd look at some of the functionality. +This challenge just asked for the use of **currying** as base conversion (at least <= 36 is similar for all bases....) + +> **Currying** is a technique to reduce the number of argument of a function by creating a wrapper function that substitutes some predefined values of the original function. + +In this case we construct a function which convert functions which convert from decimal to an arbitrary base (<=36) and visa versa. In the code these are `to_base` and `from_base`. Which take two numbers the base (or radix) and the number/string to convert. To *golf* this challenge the code is written recursively. + +To create the specific base35 functions (`to_35` and `fr_35`) we use `assuming` to curry these functions to the ones we want.... + +I've also included an arbitrary base conversion function which again can use currying (twice) to generate a specific converter - here I've created a `hx2b35` function. + +### Notes + +To be honest this is not the most efficient way of completing this challenge the performance of the curried functions is not that good in comparison to a hard coded version of to_base/from_base... + + diff --git a/challenge-002/james-smith/perl5/ch-2.pl b/challenge-002/james-smith/perl5/ch-2.pl index e807b1731a..a7922d205f 100644 --- a/challenge-002/james-smith/perl5/ch-2.pl +++ b/challenge-002/james-smith/perl5/ch-2.pl @@ -1,13 +1,11 @@ use strict; +use v5.26; -sub base35 { - my $o = ''; - for( shift; $_; ) { - $_ = ( $_ - (my $t = $_%35) )/ 35; - $o .= chr $t+($t<10?48:55); - } - return scalar reverse $o; -} +sub r35 {$_[0]?r35(substr $_[0],0,-1)*35+z(substr $_[0],-1):0} +sub b35 {$_[0]?b35(int$_[0]/35).x($_[0]%35):''} +sub x {chr$_[0]+($_[0]<10?48:55)} +sub z {(ord$_[0])-($_[0]=~/\d/?48:55)} -print $_,"\t", base35( $_ ),"\n" foreach @ARGV; +say b35 $_ for @ARGV; +say r35 b35 $_ for @ARGV; diff --git a/challenge-002/james-smith/perl6/ch-2.p6 b/challenge-002/james-smith/perl6/ch-2.p6 index 80d37995c2..9b9308b025 100644 --- a/challenge-002/james-smith/perl6/ch-2.p6 +++ b/challenge-002/james-smith/perl6/ch-2.p6 @@ -1,3 +1,12 @@ sub mp($n) {chr $n+($n < 10??48!!55)} -sub b35($n) {$n??b35(floor $n/35)~mp($n%35)!!''} -say b35 $_ for @*ARGS; +sub mb($n) {(ord $n)-($n ~~ /\d/ ?? 48 !! 55)} +sub to_base($r,$n){$n??to_base($r,floor $n/$r)~mp($n%$r)!!''} +sub from_base($r,$n){$n??from_base($r,substr $n,0,*-1)*$r+mb(substr $n,*-1)!!0} +sub convert($from,$to,$n){to_base($to,from_base($from,$n))} +my &to_35 = &to_base.assuming(35); +my &fr_35 = &from_base.assuming(35); +my &hx2b35 = &convert.assuming(16).assuming(35); + +say to_35 $_ for @*ARGS; +say fr_35 to_35 $_ for @*ARGS; +say hx2b35 $_.fmt('%X') for @*ARGS; diff --git a/challenge-002/ohmycloud/README b/challenge-002/ohmycloud/README new file mode 100644 index 0000000000..e993fafea7 --- /dev/null +++ b/challenge-002/ohmycloud/README @@ -0,0 +1 @@ +Solution by Ohmycloud diff --git a/challenge-002/ohmycloud/perl6/ch-1.p6 b/challenge-002/ohmycloud/perl6/ch-1.p6 new file mode 100644 index 0000000000..6cd4ddd03c --- /dev/null +++ b/challenge-002/ohmycloud/perl6/ch-1.p6 @@ -0,0 +1,3 @@ +for <00040 03.5 00.002 .02 .3 0.03> -> $n { + say ($n ~~ /^ 0* %% <?> /).postmatch; +} diff --git a/challenge-002/ohmycloud/perl6/ch-2.p6 b/challenge-002/ohmycloud/perl6/ch-2.p6 new file mode 100644 index 0000000000..fb61967308 --- /dev/null +++ b/challenge-002/ohmycloud/perl6/ch-2.p6 @@ -0,0 +1,13 @@ +# convert from base35 to base10 +sub decimal-to-base35(Str $n) { + :35($n.Str) +} + +say decimal-to-base35("OOM"); + +# convert from base10 to base35 +sub base35-to-decimal(Int $n) { + $n.base(35) +} + +say base35-to-decimal(30262);
\ No newline at end of file diff --git a/challenge-002/ozzy/README b/challenge-002/ozzy/README index 40d33b4f43..44e39371ef 100644 --- a/challenge-002/ozzy/README +++ b/challenge-002/ozzy/README @@ -1,36 +1 @@ Solution by Ozzy - ------------- -Challenge 1: ------------- -The simplest solution I could think of was conversion of a numeric (integer) string through -the use of the built-in Int method: - - my $a = "004" # Example string representing positive integer with leading zeros - my $b = $a.Int # Convert string to Int using built-in method Int, and so strip zeros - say $b # Print the Int; OUTPUT: 4 - -In a Perl6/Bash one-liner, this would look something like this: - - perl6 -pe '$_=.Int' <<< 004 - -but this, in itself, isn't very practical since Bash can do it with even less fuzz: - - a="004" - echo ${a##+(0)} - ------------- -Challenge 2: ------------- -The obvious way to go is probably the use of Perl6' .base and .parse-base methods: - -loop { - - my Str $a = prompt("\nPlease, give me a decimal (base-10) number : "); - say("$a in decimal notation is { $a.Int.base(35) } in base-35 notation."); - - $a = prompt("\nNow give me a base-35 number [A-Y0-9]: "); - say("$a in base-35 notation is { $a.parse-base(35) } in base-10 notation.") - -} - diff --git a/challenge-002/ozzy/perl6/ch-1.p6 b/challenge-002/ozzy/perl6/ch-1.p6 new file mode 100644 index 0000000000..cd98d990b9 --- /dev/null +++ b/challenge-002/ozzy/perl6/ch-1.p6 @@ -0,0 +1,16 @@ +#!/usr/bin/env perl6 +# The simplest solution I could think of was conversion of a numeric (integer) string through +# the use of the built-in Int method. Provide a commandline argument like "004", and the script +# will output: 4. +# +# In a Perl6/Bash one-liner, this would look something like this: +# perl6 -pe '$_=.Int' <<< "004" +# but this, in itself, isn't very practical since Bash can do it with even less fuzz: +# a="004" +# echo ${a##+(0)} + +sub MAIN (Str $numeric_string) { + + say $numeric_string.Int; +} + diff --git a/challenge-002/ozzy/perl6/ch-2.p6 b/challenge-002/ozzy/perl6/ch-2.p6 new file mode 100644 index 0000000000..bda3f4c372 --- /dev/null +++ b/challenge-002/ozzy/perl6/ch-2.p6 @@ -0,0 +1,12 @@ +#!/usr/bin/env perl6 +# The obvious way to go is probably the use of Perl6' .base and .parse-base methods: + +loop { + + my Str $a = prompt("\nPlease, give me a decimal (base-10) number : "); + say("$a in decimal notation is { $a.Int.base(35) } in base-35 notation."); + + $a = prompt("\nNow give me a base-35 number [A-Y0-9]: "); + say("$a in base-35 notation is { $a.parse-base(35) } in base-10 notation.") + + } diff --git a/stats/pwc-challenge-001.json b/stats/pwc-challenge-001.json index 79ab5ce073..115d42a9f4 100644 --- a/stats/pwc-challenge-001.json +++ b/stats/pwc-challenge-001.json @@ -1,32 +1,32 @@ { "subtitle" : { - "text" : "[Champions: 51] Last updated at 2019-04-03 20:00:16 GMT" + "text" : "[Champions: 51] Last updated at 2019-04-04 10:10:08 GMT" + }, + "tooltip" : { + "followPointer" : 1, + "pointerFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>", + "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>" }, "title" : { "text" : "Perl Weekly Challenge - CURRENT" }, - "legend" : { - "enabled" : 0 - }, - "yAxis" : { - "title" : { - "text" : "Total Solutions" - } - }, "plotOptions" : { "series" : { - "borderWidth" : 0, "dataLabels" : { "format" : "{point.y}", "enabled" : 1 - } + }, + "borderWidth" : 0 } }, + "xAxis" : { + "type" : "category" + }, "drilldown" : { "series" : [ { - "name" : "Adam Russell", "id" : "Adam Russell", + "name" : "Adam Russell", "data" : [ [ "Perl 5", @@ -36,63 +36,63 @@ }, { "id" : "Alex Daniel", + "name" : "Alex Daniel", "data" : [ [ "Perl 6", 2 ] - ], - "name" : "Alex Daniel" + ] }, { "name" : "Antonio Gamiz", + "id" : "Antonio Gamiz", "data" : [ [ "Perl 6", 2 ] - ], - "id" : "Antonio Gamiz" + ] }, { - "name" : "Arpad Toth", - "id" : "Arpad Toth", "data" : [ [ "Perl 5", 2 ] - ] + ], + "name" : "Arpad Toth", + "id" : "Arpad Toth" }, { - "name" : "Athanasius", "data" : [ [ "Perl 5", 2 ] ], - "id" : "Athanasius" + "id" : "Athanasius", + "name" : "Athanasius" }, { + "id" : "Bob Kleemann", + "name" : "Bob Kleemann", "data" : [ [ "Perl 5", 2 ] - ], - "id" : "Bob Kleemann", - "name" : "Bob Kleemann" + ] }, { - "name" : "Daniel Mantovani", - "id" : "Daniel Mantovani", "data" : [ [ "Perl 5", 1 ] - ] + ], + "name" : "Daniel Mantovani", + "id" : "Daniel Mantovani" }, { "data" : [ @@ -105,64 +105,64 @@ "name" : "Dave Cross" }, { + "name" : "Dave Jacoby", + "id" : "Dave Jacoby", "data" : [ [ "Perl 5", 1 ] - ], - "id" : "Dave Jacoby", - "name" : "Dave Jacoby" + ] }, { "name" : "David Kayal", + "id" : "David Kayal", "data" : [ [ "Perl 5", 2 ] - ], - "id" : "David Kayal" + ] }, { - "id" : "Doug Schrag", "data" : [ [ "Perl 6", 2 ] ], - "name" : "Doug Schrag" + "name" : "Doug Schrag", + "id" : "Doug Schrag" }, { - "name" : "Duncan C. White", - "id" : "Duncan C. White", "data" : [ [ "Perl 5", 2 ] - ] + ], + "name" : "Duncan C. White", + "id" : "Duncan C. White" }, { "name" : "Eddy HS", + "id" : "Eddy HS", "data" : [ [ "Perl 5", 2 ] - ], - "id" : "Eddy HS" + ] }, { "name" : "Finley", + "id" : "Finley", "data" : [ [ "Perl 6", 2 ] - ], - "id" : "Finley" + ] }, { "data" : [ @@ -171,17 +171,17 @@ 1 ] ], - "id" : "Fred Zinn", - "name" : "Fred Zinn" + "name" : "Fred Zinn", + "id" : "Fred Zinn" }, { - "id" : "Freddie B", "data" : [ [ "Perl 5", 2 ] ], + "id" : "Freddie B", "name" : "Freddie B" }, { @@ -196,6 +196,7 @@ }, { "name" : "Jaldhar H. Vyas", + "id" : "Jaldhar H. Vyas", "data" : [ [ "Perl 5", @@ -205,32 +206,35 @@ "Perl 6", 2 ] - ], - "id" : "Jaldhar H. Vyas" + ] }, { "name" : "Dr James A. Smith", + "id" : "Dr James A. Smith", "data" : [ [ "Perl 5", 2 + ], + [ + "Perl 6", + 2 ] - ], - "id" : "Dr James A. Smith" + ] }, { - "name" : "Jeff", "data" : [ [ "Perl 5", 2 ] ], + "name" : "Jeff", "id" : "Jeff" }, { - "name" : "Jeremy Carman", "id" : "Jeremy Carman", + "name" : "Jeremy Carman", "data" : [ [ "Perl 5", @@ -263,7 +267,6 @@ ] }, { - "id" : "Jo Christian Oterhals", "data" : [ [ "Perl 5", @@ -274,7 +277,8 @@ 2 ] ], - "name" : "Jo Christian Oterhals" + "name" : "Jo Christian Oterhals", + "id" : "Jo Christian Oterhals" }, { "data" : [ @@ -292,23 +296,23 @@ }, { "id" : "John Barrett", + "name" : "John Barrett", "data" : [ [ "Perl 5", 1 ] - ], - "name" : "John Barrett" + ] }, { "id" : "Juan Caballero", + "name" : "Juan Caballero", "data" : [ [ "Perl 5", 2 ] - ], - "name" : "Juan Caballero" + ] }, { "data" : [ @@ -317,22 +321,22 @@ 2 ] ], - "id" : "Khalid", - "name" : "Khalid" + "name" : "Khalid", + "id" : "Khalid" }, { - "id" : "Kian-Meng Ang", "data" : [ [ "Perl 5", 2 ] ], - "name" : "Kian-Meng Ang" + "name" : "Kian-Meng Ang", + "id" : "Kian-Meng Ang" }, { - "name" : "Kivanc Yazan", "id" : "Kivanc Yazan", + "name" : "Kivanc Yazan", "data" : [ [ "Perl 5", @@ -369,24 +373,24 @@ "name" : "Laurent Rosenfeld" }, { + "name" : "Mark Senn", "id" : "Mark Senn", "data" : [ [ "Perl 6", 2 ] - ], - "name" : "Mark Senn" + ] }, { + "id" : "Martin Mugeni", + "name" : "Martin Mugeni", "data" : [ [ "Perl 6", 2 ] - ], - "id" : "Martin Mugeni", - "name" : "Martin Mugeni" + ] }, { "data" : [ @@ -399,8 +403,8 @@ "name" : "Neil Bowers" }, { - "name" : "Nick Logan", "id" : "Nick Logan", + "name" : "Nick Logan", "data" : [ [ "Perl 5", @@ -413,44 +417,44 @@ ] }, { - "name" : "Oleskii Tsvitenov", "data" : [ [ "Perl 5", 2 ] ], - "id" : "Oleskii Tsvitenov" + "id" : "Oleskii Tsvitenov", + "name" : "Oleskii Tsvitenov" }, { - "id" : "Ozzy", "data" : [ [ "Perl 6", 2 ] ], + "id" : "Ozzy", "name" : "Ozzy" }, { - "name" : "Pavel Jurca", "data" : [ [ "Perl 5", 2 ] ], - "id" : "Pavel Jurca" + "id" : "Pavel Jurca", + "name" : "Pavel Jurca" }, { "name" : "Pete Houston", + "id" : "Pete Houston", "data" : [ [ "Perl 5", 2 ] - ], - "id" : "Pete Houston" + ] }, { "data" : [ @@ -459,32 +463,30 @@ 2 ] ], - "id" : "Philippe Bruhat", - "name" : "Philippe Bruhat" + "name" : "Philippe Bruhat", + "id" : "Philippe Bruhat" }, { "id" : "Prajith P", + "name" : "Prajith P", "data" : [ [ "Perl 5", 1 ] - ], - "name" : "Prajith P" + ] }, { + "name" : "Sean Meininger", "id" : "Sean Meininger", "data" : [ [ "Perl 6", 2 ] - ], - "name" : "Sean Meininger" + ] }, { - "name" : "Simon Proctor", - "id" : "Simon Proctor", "data" : [ [ "Perl 5", @@ -494,20 +496,21 @@ "Perl 6", 2 ] - ] + ], + "id" : "Simon Proctor", + "name" : "Simon Proctor" }, { "name" : "Simon Reinhardt", + "id" : "Simon Reinhardt", "data" : [ [ "Perl 5", 2 ] - ], - "id" : "Simon Reinhardt" + ] }, { - "id" : "Steve Rogerson", "data" : [ [ "Perl 5", @@ -518,27 +521,28 @@ 2 ] ], - "name" : "Steve Rogerson" + "name" : "Steve Rogerson", + "id" : "Steve Rogerson" }, { - "id" : "Steven Wilson", "data" : [ [ "Perl 5", 2 ] ], - "name" : "Steven Wilson" + "name" : "Steven Wilson", + "id" : "Steven Wilson" }, { "id" : "Tiago Stock", + "name" : "Tiago Stock", "data" : [ [ "Perl 5", 1 ] - ], - "name" : "Tiago Stock" + ] }, { "name" : "Tore Andersson", @@ -561,55 +565,53 @@ ] }, { - "name" : "William Gilmore", - "id" : "William Gilmore", "data" : [ [ "Perl 5", 1 ] - ] + ], + "name" : "William Gilmore", + "id" : "William Gilmore" } ] }, - "tooltip" : { - "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>", - "followPointer" : 1, - "pointerFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b>< |