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

Xavier Noria fxnahashref.com
Div Feb 24 05:02:52 PST 2006


On Feb 24, 2006, at 13:47, Francesc Guasch wrote:

> -----BEGIN PGP SIGNED MESSAGE-----
> Hash: SHA1
>
> perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+ 
> $/' [number]

Gairebe, l'autentica es

     % perl -wle 'print "prime" if ("1" x shift) !~ /^(11+)\1+$/' 13
     prime

que es la correcte doncs l'1 no es considerat primer en matematiques.

Veieu com esta trencat una colla d'1s en parts iguals de tamany mes  
gran o igual que 2 i menor estricte que shift? La solucio es facil un  
cop la veus, pero al meu entendre el que es genial es pensar-hi.

-- fxn



Més informació de la llista de correu Barcelona-pm