diff options
| -rw-r--r-- | challenge-305/japhy/perl/ch-1.pl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/challenge-305/japhy/perl/ch-1.pl b/challenge-305/japhy/perl/ch-1.pl new file mode 100644 index 0000000000..0865bc5419 --- /dev/null +++ b/challenge-305/japhy/perl/ch-1.pl @@ -0,0 +1,14 @@ +#!/usr/bin/perl -l + +print join ", " => binprime(1, 0, 1); +print join ", " => binprime(1, 1, 0); +print join ", " => binprime(1, 1, 1, 1, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1); + +sub binprime { + my $n = 0; + map { + $n += $_[$_]; + $n <<= 1; + !((1 x ($n>>1)) =~ /^.$|^(..+)\1+$/); + } (0 .. $#_); +} |