On 8/11/06, Steinar H. Gunderson <[EMAIL PROTECTED]> wrote: > > I hereby present my own program: > > === cut here === > #! /bin/sh > echo "Not prime" > === cut here === > > I like this one (blamed on Abigail):
=== cut here === #!/your/perl/here print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/ === cut here === but it's not nearly as fast as yours... _______________________________________________ Prime mailing list [email protected] http://hogranch.com/mailman/listinfo/prime
