Eratosthenovo síto: Porovnání verzí
Smazaný obsah Přidaný obsah
m robot přidal: pms:Siass d'Eratòstene |
Zdrojový kód v jazyce Haskell |
||
Řádek 220:
}
print "\n";
</source>
== Zdrojový kód v jazyce Haskell ==
<source lang="Haskell">
prvocisla n = sito [2..n]
where sito [] = []
sito (p:ms) = p:sito [m | m<-ms, m `mod` p /= 0]
</source>
|