Create ch-2.pl

1 files changed, 32 insertions, 0 deletions

diff --git a/challenge-217/james-smith/perl/ch-2.pl b/challenge-217/james-smith/perl/ch-2.pl
new file mode 100644
index 0000000000..6bda9dd725
--- /dev/null
+++ b/challenge-217/james-smith/perl/ch-2.pl
@@ -0,0 +1,32 @@
+#!/usr/local/bin/perl
+
+use strict;
+use warnings;
+use feature qw(say);
+use Test::More;
+use Benchmark qw(cmpthese);
+use Data::Dumper qw(Dumper);
+
+my @TESTS = (
+ [ [1,23],231],
+ [ [10,3,2],3210],
+ [ [31,2,4,10] ,431210],
+ [ [5,11,4,1,2], 542111],
+ [ [1,10],110 ],
+ [ [1,10,110,9,90,900],'990900111010' ],
+ [ [900,1,9,10,90,110],'990900111010' ],
+);
+
+
+sub max_number      { join '', sort { $b.$a cmp $a.$b } @_ }
+sub max_number_n    { join '', sort { $b.$a <=> $a.$b } @_ }
+
+is( max_number( @{$_->[0]} )       , $_->[1] ) for @TESTS;
+is( max_number_n( @{$_->[0]} )       , $_->[1] ) for @TESTS;
+done_testing();
+
+cmpthese( 5_000_000, {
+  'cmp' => sub { max_number(    @{$_->[0]} ) for @TESTS },
+  '<=>' => sub { max_number_n(  @{$_->[0]} ) for @TESTS },
+});
+