From f18aa90001a4e642af2eb49083f1145ae6b32f5d Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Mon, 21 Feb 2022 13:14:43 +0000
Subject: pushing changes

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

diff --git a/challenge-153/james-smith/perl/ch-2.pl b/challenge-153/james-smith/perl/ch-2.pl
index d6d22cedb6..335eba64fc 100644
--- a/challenge-153/james-smith/perl/ch-2.pl
+++ b/challenge-153/james-smith/perl/ch-2.pl
@@ -12,12 +12,12 @@ my @FACT = (1);
 push @FACT, $_*$FACT[-1] foreach 1..9;
 
 my @TESTS = ( [ 145, 1 ], [ 125, 0 ], );
-is( factorion($_->[0]), $_->[1] ) foreach @TESTS;
+is( is_factorion($_->[0]), $_->[1] ) foreach @TESTS;
 done_testing();
 
-factorion($_) && say for 1 .. 2_177_282;
+is_factorion($_) && say for 1 .. 2_177_282;
 
-sub factorion {
+sub is_factorion {
   my $t=0;
   $t+=$FACT[$_] for split //,$_[0];
   $t==$_[0];
-- 
cgit