diff options
| -rw-r--r-- | challenge-155/cheok-yin-fung/perl/ch-1.pl | 6 | ||||
| -rw-r--r-- | challenge-155/cheok-yin-fung/perl/temp.pl | 20 |
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]]; -} |