diff options
| -rw-r--r-- | challenge-269/bob-lied/blog.txt | 1 | ||||
| -rw-r--r-- | challenge-269/bob-lied/perl/ch-2.pl | 3 |
2 files changed, 3 insertions, 1 deletions
diff --git a/challenge-269/bob-lied/blog.txt b/challenge-269/bob-lied/blog.txt new file mode 100644 index 0000000000..19c83abd6f --- /dev/null +++ b/challenge-269/bob-lied/blog.txt @@ -0,0 +1 @@ +https://dev.to/boblied/pwc-269-two-of-us-distributing-elements-54m diff --git a/challenge-269/bob-lied/perl/ch-2.pl b/challenge-269/bob-lied/perl/ch-2.pl index 6c99b8625c..4947e3f515 100644 --- a/challenge-269/bob-lied/perl/ch-2.pl +++ b/challenge-269/bob-lied/perl/ch-2.pl @@ -60,9 +60,10 @@ my $DoTest = 0; GetOptions("test" => \$DoTest, "verbose" => \$Verbose); exit(!runTest()) if $DoTest; +say "(", join(", ", distElem(@ARGV)->@*), ")"; + sub distElem(@ints) { - #return [] if $#ints < 1; my @arr = ( [ (shift @ints) // () ], [ (shift @ints) // () ] ); push @{$arr[ ( $arr[0][-1] <= $arr[1][-1] ) ]}, $_ for @ints; |