Ага ...
Было мне, значить, скучно в пятницу и задумал я подлое. Задумал я угробить сервер. Ну, не совсем угробить, а подсунуть ему пакость, чтобы вспотел гаденыш малость.
Решил я таки праймы заставить его генерировать, думаю, интересно, на сколько хватит моего маленького засранца.
Кому интерсны такого вида извращения вот такой засранец:
2 X Quad Core Xeon E5620 2.4, 6 Gb RAM.
Прайм-генератор я вот такой черканул:
main = mapM_ print [x | x <- [2..], isPrime x]
where isPrime n = [x | x <- [1..n], n `mod` x == 0] == [1, n]
Вот, ну, в общем, плюет значить праймы на экран до бесконечности. Думаю, когда он здыхать начнет. Оставил я его за этой работой в пятницу в 18:30 - все мелькало, естественно, очень быстро перед глазами. Вернулся в понедельник: этот гад уже на 8567747 и даже не вспотел Растояние между "плевками" примерно пол секунды .. всего то ... Вот такой вот фан. Оставить на недельку что ли?
Было мне, значить, скучно в пятницу и задумал я подлое. Задумал я угробить сервер. Ну, не совсем угробить, а подсунуть ему пакость, чтобы вспотел гаденыш малость.
Решил я таки праймы заставить его генерировать, думаю, интересно, на сколько хватит моего маленького засранца.
Кому интерсны такого вида извращения вот такой засранец:
2 X Quad Core Xeon E5620 2.4, 6 Gb RAM.
Прайм-генератор я вот такой черканул:
main = mapM_ print [x | x <- [2..], isPrime x]
where isPrime n = [x | x <- [1..n], n `mod` x == 0] == [1, n]
Вот, ну, в общем, плюет значить праймы на экран до бесконечности. Думаю, когда он здыхать начнет. Оставил я его за этой работой в пятницу в 18:30 - все мелькало, естественно, очень быстро перед глазами. Вернулся в понедельник: этот гад уже на 8567747 и даже не вспотел Растояние между "плевками" примерно пол секунды .. всего то ... Вот такой вот фан. Оставить на недельку что ли?
Comment