FrodoZet

Beigetreten 17. Oktober 2015
Kategorie NOC hinzugefügt
Keine Bearbeitungszusammenfassung
(Kategorie NOC hinzugefügt)
Zeile 5: Zeile 5:
   primes = sieve [2..] where
   primes = sieve [2..] where
       sieve (a:xs) = a:sieve [n | n <- xs, n ‘mod‘ a /= 0]
       sieve (a:xs) = a:sieve [n | n <- xs, n ‘mod‘ a /= 0]
[[Kategorie:Network Operation Center]]
326

Bearbeitungen