[bcn-pm] Expressió Regular per saber si un nº és primer

[Francesc Guasch]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/' [number]

http://montreal.pm.org/tech/neil_kandalgaonkar.shtml
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.1 (GNU/Linux)
Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org

iD8DBQFD/wByVfvsWQAffzIRAvsDAKDSJG9e6mMRgtOGSo4TDXzKKyA1xQCeK8Jh
k1W2unRH8EDl4wlc5c7ssmk=
=EWkm
-----END PGP SIGNATURE-----