Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: fibonacci regex

by TedYoung (Deacon)
on Jan 25, 2005 at 15:39 UTC ( [id://424900] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    sub isPrime {
      ('1' x $_[0]) !~ /^(11+)\1+$/;
    }