perl -l012e '{s&$&1&&&!/^(11+)(\1)+$/&&print length;redo}'
...lavoro a quattro mani mio e del nostro disoccupato preferito, er Della.Piccola curiosita`: 113, 911 (equivalente americano del 113) ed 883 sono numeri primi.
Iscriviti a:
Commenti sul post (Atom)
Ma belin Della, invece di pensare a queste cose, vieni a lavorare a Village! C'e' un posto tronfio che ti aspetta ^^
RispondiEliminaMa belin Della, invece di pensare a queste cose, vieni a lavorare a Village! C'e' un posto tronfio che ti aspetta ^^
RispondiEliminaIl geniale parto della mente del Della: il generatore di numeri primi a propulsione umana.
RispondiEliminaperl -lne '$_=(1x$.);/^(11+)(\1)+$/ and print $.'</dev/random
Il codice originale l'ho perso, questa e` una reimplementazione ed il suo probabilmente era piu` 1_337.
"a propulsione umana" implica che per vederlo funzionare (se non avete un generatore hw di numeri casuali supportato) dovete "remare" col mouse o la tastiera ("man 4 random" per capire il perche`) ovviamente (beh, e` implicato il della, mi pareva ovvio) si suppone di avere un sistema *nix/linux a fare da sostrato.
RispondiElimina