…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.
Ma belin Della, invece di pensare a queste cose, vieni a lavorare a Village! C’e’ un posto tronfio che ti aspetta ^^
Ma belin Della, invece di pensare a queste cose, vieni a lavorare a Village! C’e’ un posto tronfio che ti aspetta ^^
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.