even faster with a tweak to logic

1 files changed, 6 insertions, 4 deletions

diff --git a/challenge-113/james-smith/perl/ch-1.pl b/challenge-113/james-smith/perl/ch-1.pl
index 7a46da9b55..efb023fcf0 100644
--- a/challenge-113/james-smith/perl/ch-1.pl
+++ b/challenge-113/james-smith/perl/ch-1.pl
@@ -5,17 +5,19 @@ use strict;
 use warnings;
 use feature qw(say);
 use Test::More;
-use Benchmark qw(cmpthese);
+use Benchmark qw(timethis);
 
 my @ex = ( [25,8,0], [25,7,0], [24,7,1], [24,0,0], [10,0,1], [28,8,1], [26,8,1], [16,8,0], [441,9,1], [431,9,0] );
 
 is( represent( $_->[0], $_->[1]), $_->[2] ) foreach @ex;
 
 done_testing();
-
+say '';
+timethis( 1_000_000, sub { represent($_->[0],$_->[1]) for @ex } );
+say '';
 sub represent {
   my($t,$n,$d) = (0,@_);
-  1+($t+=$_*10+$d) && $n>=$t && ($n%10 == $t%10) && return 1 for 0..9;
-  return 0;
+  $n>=($t+=$_*10+$d) && ($n%10 == $t%10) && return 1 for 0..9;
+  0;
 }