http://www.perlmonks.org?node_id=510925


in reply to Simple primality testing

My favourite way to test primality is:

sub is_prime { ('1' x shift) !~ /^(11+)\1+$/ }

:-)

Ted Young

($$<<$$=>$$<=>$$<=$$>>$$) always returns 1. :-)