a more idiomatic line

2 files changed, 2 insertions, 24 deletions

diff --git a/challenge-155/cheok-yin-fung/perl/ch-1.pl b/challenge-155/cheok-yin-fung/perl/ch-1.pl
index 78f277d10d..c37e1dc1e3 100644
--- a/challenge-155/cheok-yin-fung/perl/ch-1.pl
+++ b/challenge-155/cheok-yin-fung/perl/ch-1.pl
@@ -53,9 +53,7 @@ sub iter_prime {
 
 
 sub iter_primorial {
-    while (scalar @ch_primes <= scalar @primorials) {
-        iter_prime();
-    }
+    iter_prime() while scalar @ch_primes <= scalar @primorials;
     push @primorials, 
-        $primorials[-1]*$ch_primes[ scalar @primorials ];
+      $primorials[-1]*$ch_primes[ scalar @primorials ];
 }
diff --git a/challenge-155/cheok-yin-fung/perl/temp.pl b/challenge-155/cheok-yin-fung/perl/temp.pl
deleted file mode 100644
index b17b36f174..0000000000
--- a/challenge-155/cheok-yin-fung/perl/temp.pl
+++ /dev/null
@@ -1,20 +0,0 @@
-sub pisano_period {
-    my ($N, $t, $rec, $seq) = @_;
-    die "(Some of) Parameters are too large.\n"
-        if $N**$t + $t - 1 > 8_000_000;
-
-    my $ori_seqstate = [map {$_ % $N} @$seq];
-    my $new_seqstate = [@$ori_seqstate];
-    my $count = 0;
-    do { 
-        my $new_val = sum map {$rec->[$_]*$new->[$_]} (0..$t-1);
-        $new_val = $new_val % $N;
-        push @{$seq}, $new_val;
-        shift @{$new_seqstate};
-        push @{$new_seqstate}, $new_val;
-        $count++;
-        die "Patterns not found\n" if $count > $N**$t + $t;
-    } while (!cmp_num_arr($new_seqstate, $ori_seqstate));
-
-    return [@$seq[0..$count-1]];
-}