diff options
| author | Jeffrey Pinyan <90431423+jeffrey-pinyan-cleandns@users.noreply.github.com> | 2025-01-23 19:44:14 -0500 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-01-23 19:44:14 -0500 |
| commit | 4a58f88115629d4258a1c885db87bbaf28af4db8 (patch) | |
| tree | 2f179604947ae8afdee9f58c03bf2c64c3d18472 | |
| parent | 4065dedf701acbefb5b352adabefcd1c04b71257 (diff) | |
| download | perlweeklychallenge-club-4a58f88115629d4258a1c885db87bbaf28af4db8.tar.gz perlweeklychallenge-club-4a58f88115629d4258a1c885db87bbaf28af4db8.tar.bz2 perlweeklychallenge-club-4a58f88115629d4258a1c885db87bbaf28af4db8.zip | |
perl 305.1
| -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 .. $#_); +} |