From f2493cd5e01aaefc1ef7b1bf64e9ef6129ae5f8a Mon Sep 17 00:00:00 2001 From: Doomtrain14 Date: Mon, 19 Aug 2019 23:51:25 +0800 Subject: Create ch-1.pl Added perl5 solution for challenge #1 --- challenge-022/yet-ebreo/perl5/ch-1.pl | 7 +++++++ 1 file changed, 7 insertions(+) create mode 100644 challenge-022/yet-ebreo/perl5/ch-1.pl diff --git a/challenge-022/yet-ebreo/perl5/ch-1.pl b/challenge-022/yet-ebreo/perl5/ch-1.pl new file mode 100644 index 0000000000..b0a1bae4a4 --- /dev/null +++ b/challenge-022/yet-ebreo/perl5/ch-1.pl @@ -0,0 +1,7 @@ +# Write a script to print first 10 Sexy Prime Pairs. +# Sexy primes are prime numbers that differ from each other by 6. +# For example, the numbers 5 and 11 are both sexy primes, because 11 - 5 = 6. +# The term “sexy prime” is a pun stemming from the Latin word for six: sex. + +@_=grep{@_[ map $x*$_,//..@_/($x=$_) ] =0 if $_[$_] > 1}@_=0..54; +map { ($_[$_]-$_[$'] == 6) && print "$_[$'] $_[$_]\n" for $_+//..$#_ } 0..$#_; -- cgit