Categorie
Entropie

Come buttare una mattinata

…oscurando e scorciando quando piu` possibile uno script perl che usa una geniale regex per identificare i numeri primi e stamparli, ad esempio:

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.

4 risposte su “Come buttare una mattinata”

Il geniale parto della mente del Della: il generatore di numeri primi a propulsione umana.

perl -lne ‘$_=(1x$.);/^(11+)(1)+$/ and print $.’

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.

Lascia un commento

Il tuo indirizzo email non sarĂ  pubblicato. I campi obbligatori sono contrassegnati *

Questo sito usa Akismet per ridurre lo spam. Scopri come i tuoi dati vengono elaborati.