From 0d29be3c9b1a5c01572f9ee22796c3dd45acd952 Mon Sep 17 00:00:00 2001
From: James Smith <js5@sanger.ac.uk>
Date: Mon, 5 Dec 2022 08:21:24 +0000
Subject: Update ch-2.pl

---
 challenge-194/james-smith/perl/ch-2.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/challenge-194/james-smith/perl/ch-2.pl b/challenge-194/james-smith/perl/ch-2.pl
index 167860f910..c99ad2db52 100644
--- a/challenge-194/james-smith/perl/ch-2.pl
+++ b/challenge-194/james-smith/perl/ch-2.pl
@@ -13,6 +13,6 @@ is( check( $_->[0] ), $_->[1] ) for @TESTS;
 done_testing();
 
 sub check {
-  my %sc; $sc{$_} ++ for split //,$_[0];
-  sub { @_>2 && $_[0]==$_[1]+1 && $_[-1]==$_[1] ? 1 : 0 }->(sort {$b<=>$a} values %sc);
+  my %f; $f{$_} ++ for split //, $_[0];
+  sub { @_>2 && $_[0]==$_[1]+1 && $_[-1]==$_[1] }->( sort {$b<=>$a} values %f ) || 0;
 }
-- 
cgit