From 4308b9990ff28be99d2adae35ed556e512162c0a Mon Sep 17 00:00:00 2001
From: James Smith <js5@sanger.ac.uk>
Date: Sat, 20 May 2023 05:55:19 +0100
Subject: Create ch-2.pl

---
 challenge-217/james-smith/perl/ch-2.pl | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 challenge-217/james-smith/perl/ch-2.pl

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 },
+});
+
-- 
cgit