קוד: |
primes = 2 : [x | x <- [3,5..], isprime x]
isprime x = all (\p -> x `mod` p > 0) (factorsToTry x) where factorsToTry x = takeWhile (\p -> p*p <= x) primes |
Anonymous : |
עזוב אותך ממחשבים ורקורסיות, לך תאבד את הבתולים, זה הדבר הכי חשוב
בתנאי כמובן שאתה מעל גיל 14. |
Anonymous : |
עזוב אותך ממחשבים ורקורסיות, לך תאבד את הבתולים, זה הדבר הכי חשוב
בתנאי כמובן שאתה מעל גיל 14. |
Anonymous : | ||
גיל 14?! מה נסגר?! |
Anonymous : | ||
גיל 14?! מה נסגר?! |