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

---
 challenge-153/james-smith/perl/ch-1.pl | 1 -
 challenge-153/james-smith/perl/ch-2.pl | 8 ++------
 2 files changed, 2 insertions(+), 7 deletions(-)

diff --git a/challenge-153/james-smith/perl/ch-1.pl b/challenge-153/james-smith/perl/ch-1.pl
index 31361e9a91..5f6777bb9b 100644
--- a/challenge-153/james-smith/perl/ch-1.pl
+++ b/challenge-153/james-smith/perl/ch-1.pl
@@ -1,7 +1,6 @@
 #!/usr/local/bin/perl
 
 use strict;
-
 use warnings;
 use feature qw(say);
 
diff --git a/challenge-153/james-smith/perl/ch-2.pl b/challenge-153/james-smith/perl/ch-2.pl
index bcb7a9ee5c..d6d22cedb6 100644
--- a/challenge-153/james-smith/perl/ch-2.pl
+++ b/challenge-153/james-smith/perl/ch-2.pl
@@ -10,16 +10,12 @@ use Data::Dumper qw(Dumper);
 
 my @FACT = (1);
 push @FACT, $_*$FACT[-1] foreach 1..9;
-my @TESTS = (
-  [ 145, 1 ],
-  [ 125, 0 ],
-);
 
+my @TESTS = ( [ 145, 1 ], [ 125, 0 ], );
 is( factorion($_->[0]), $_->[1] ) foreach @TESTS;
-
 done_testing();
 
-factorion($_) && say for 1..2_177_282;
+factorion($_) && say for 1 .. 2_177_282;
 
 sub factorion {
   my $t=0;
-- 
cgit