[Fun With Perl] A prime example

[Eric Raible <raible@nextest.com>]

Can anyone do this in fewer characters?

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

- Eric


==== Want to unsubscribe from this list? (Don't you love us anymore?)
==== Well, if you insist... Send mail with body "unsubscribe" to
==== fwp-request@technofile.org