Sieve of Eratosthenes as a Regexp
sub is_prime { ('1' x shift) !~ /^1?$|^(11+?)\1+$/) }
Leave a Reply
You must be logged in to post a comment.
:: {- insert a pretend Haskell type here -}
sub is_prime { ('1' x shift) !~ /^1?$|^(11+?)\1+$/) }
You must be logged in to post a comment.