2007-02-26


Обнаружил на Википедии скрипт-однострочник для печати простых чисел:

perl -wle '(1 x $_) !~ /^(11+)\1+$/ && print while ++ $_'

Абалдеть :)

Комментариев нет: