From 788b186829df344234ac64d33625b8d5f8861bf7 Mon Sep 17 00:00:00 2001 From: Adam Russell Date: Fri, 7 Jun 2024 23:21:59 -0400 Subject: deleted files --- challenge-259/adam-russell/.gitignore | 3 --- challenge-259/adam-russell/twc.pdf | Bin 67950 -> 0 bytes 2 files changed, 3 deletions(-) delete mode 100644 challenge-259/adam-russell/.gitignore delete mode 100644 challenge-259/adam-russell/twc.pdf 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 deleted file mode 100644 index 181cc3d3fa..0000000000 Binary files a/challenge-259/adam-russell/twc.pdf and /dev/null differ -- cgit From a85bcb5a66c271414049c25be6e5254bac28d6f6 Mon Sep 17 00:00:00 2001 From: Adam Russell Date: Sat, 8 Jun 2024 00:16:32 -0400 Subject: initial commit --- challenge-272/adam-russell/blog.txt | 1 + challenge-272/adam-russell/perl/ch-1.pl | 25 +++++++++++++++++++++++++ challenge-272/adam-russell/perl/ch-2.pl | 26 ++++++++++++++++++++++++++ 3 files changed, 52 insertions(+) create mode 100644 challenge-272/adam-russell/blog.txt create mode 100644 challenge-272/adam-russell/perl/ch-1.pl create mode 100644 challenge-272/adam-russell/perl/ch-2.pl 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/; +} + -- cgit