diff options
| author | Mohammad Sajid Anwar <Mohammad.Anwar@yahoo.com> | 2024-06-08 13:36:18 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2024-06-08 13:36:18 +0100 |
| commit | 551bfbbdae65eea1b691a2749695dec2ad72206c (patch) | |
| tree | 5ddfb1b840fa214449ee6f54486fd4882cd2ca25 | |
| parent | 418143a204c87cc63469ed4d609b9a026ea8191e (diff) | |
| parent | a85bcb5a66c271414049c25be6e5254bac28d6f6 (diff) | |
| download | perlweeklychallenge-club-551bfbbdae65eea1b691a2749695dec2ad72206c.tar.gz perlweeklychallenge-club-551bfbbdae65eea1b691a2749695dec2ad72206c.tar.bz2 perlweeklychallenge-club-551bfbbdae65eea1b691a2749695dec2ad72206c.zip | |
Merge pull request #10224 from adamcrussell/challenge-272
Challenge 272
| -rw-r--r-- | challenge-259/adam-russell/.gitignore | 3 | ||||
| -rw-r--r-- | challenge-259/adam-russell/twc.pdf | bin | 67950 -> 0 bytes | |||
| -rw-r--r-- | challenge-272/adam-russell/blog.txt | 1 | ||||
| -rw-r--r-- | challenge-272/adam-russell/perl/ch-1.pl | 25 | ||||
| -rw-r--r-- | challenge-272/adam-russell/perl/ch-2.pl | 26 |
5 files changed, 52 insertions, 3 deletions
diff --git a/challenge-259/adam-russell/.gitignore b/challenge-259/adam-russell/.gitignore deleted file mode 100644 index d4e9a94d5e..0000000000 --- a/challenge-259/adam-russell/.gitignore +++ /dev/null @@ -1,3 +0,0 @@ -*.bbprojectd -.RData -.Rhistory diff --git a/challenge-259/adam-russell/twc.pdf b/challenge-259/adam-russell/twc.pdf Binary files differdeleted file mode 100644 index 181cc3d3fa..0000000000 --- a/challenge-259/adam-russell/twc.pdf +++ /dev/null diff --git a/challenge-272/adam-russell/blog.txt b/challenge-272/adam-russell/blog.txt new file mode 100644 index 0000000000..a791044ed5 --- /dev/null +++ b/challenge-272/adam-russell/blog.txt @@ -0,0 +1 @@ +http://www.rabbitfarm.com/cgi-bin/blosxom/perl/2024/06/08 diff --git a/challenge-272/adam-russell/perl/ch-1.pl b/challenge-272/adam-russell/perl/ch-1.pl new file mode 100644 index 0000000000..3564f846ea --- /dev/null +++ b/challenge-272/adam-russell/perl/ch-1.pl @@ -0,0 +1,25 @@ + + +use v5.38; + + +sub defang{ + my($c, $defanged) = @_; + $defanged = [] if !$defanged; + return $defanged if @{$c} == 0; + my $x = shift @{$c}; + if($x eq q/./){ + push @{$defanged}, q/[.]/; + } + else{ + push @{$defanged}, $x; + } + defang($c, $defanged); +} + + +MAIN:{ + say join(q//, @{defang([split //, q/1.1.1.1/])}); + say join(q//, @{defang([split //, q/255.101.1.0/])}); +} + diff --git a/challenge-272/adam-russell/perl/ch-2.pl b/challenge-272/adam-russell/perl/ch-2.pl new file mode 100644 index 0000000000..bbdb2ea352 --- /dev/null +++ b/challenge-272/adam-russell/perl/ch-2.pl @@ -0,0 +1,26 @@ + + +use v5.38; + + +sub string_score{ + my($s) = shift; + my $score = 0; + my @s = map {ord $_} split //, $s; + { + my $x = shift @s; + my $y = shift @s; + $score += abs($x - $y) if $x && $y; + unshift @s, $y; + redo if @s > 1; + } + return $score; +} + + +MAIN:{ + say string_score q/hello/; + say string_score q/perl/; + say string_score q/raku/; +} + |