diff options
| author | Dave Jacoby <jacoby.david@gmail.com> | 2023-12-19 13:19:24 -0500 |
|---|---|---|
| committer | Dave Jacoby <jacoby.david@gmail.com> | 2023-12-19 13:19:24 -0500 |
| commit | 9136e8b2874d9ca612bf21c5dd1a2bb23135b00b (patch) | |
| tree | 2f45512a839d5c337407640f7b81c9318dfbb923 /challenge-248 | |
| parent | 09865411858cb259b6c509deae5de4bb589a5ade (diff) | |
| download | perlweeklychallenge-club-9136e8b2874d9ca612bf21c5dd1a2bb23135b00b.tar.gz perlweeklychallenge-club-9136e8b2874d9ca612bf21c5dd1a2bb23135b00b.tar.bz2 perlweeklychallenge-club-9136e8b2874d9ca612bf21c5dd1a2bb23135b00b.zip | |
blogged 248
Diffstat (limited to 'challenge-248')
| -rw-r--r-- | challenge-248/dave-jacoby/blog.txt | 1 | ||||
| -rw-r--r-- | challenge-248/dave-jacoby/perl/ch-1.pl | 15 |
2 files changed, 1 insertions, 15 deletions
diff --git a/challenge-248/dave-jacoby/blog.txt b/challenge-248/dave-jacoby/blog.txt new file mode 100644 index 0000000000..fa7d7dd4cf --- /dev/null +++ b/challenge-248/dave-jacoby/blog.txt @@ -0,0 +1 @@ +https://jacoby.github.io/2023/12/19/tumbling-down-the-rabbit-hole-weekly-challenge-248.html diff --git a/challenge-248/dave-jacoby/perl/ch-1.pl b/challenge-248/dave-jacoby/perl/ch-1.pl index ebadc812d8..9bc88c0a8e 100644 --- a/challenge-248/dave-jacoby/perl/ch-1.pl +++ b/challenge-248/dave-jacoby/perl/ch-1.pl @@ -17,21 +17,6 @@ for my $example (@examples) { my @output = shortest_distance($example); my $output = join ',', @output; - # my $input = join ",\n\t", map { qq{"$_"} } # quote surname - # map { $_->[0] } # remove surname element - # sort { $a->[1] cmp $b->[1] } # sort on surname - # map { [ $_, ( reverse split /\s/, $_ )[0] ] - # } # start schartzian transform on surname - # sort { $a cmp $b } $example->@*; # sort alphabetically for consistency - # my $output = join "\n\t", - # map { qq{$_ -> $output{$_}} } # combine santa and giftee - # map { $_->[0] } # remove surname element - # sort { $a->[1] cmp $b->[1] } # sort on surname - # map { - # [ $_, ( reverse split /\s/, $_ )[0] ] - # } # start schartzian transform on surname - # sort { $a cmp $b } keys %output; # sort alphabetically for consistency - say <<~"END"; Input: \$str = "$example->{str}", \$char = "$example->{char}" Output: ($output) |