Eratosthenovo síto: Porovnání verzí
Smazaný obsah Přidaný obsah
Bez shrnutí editace |
|||
Řádek 228:
where sito [] = []
sito (p:ms) = p:sito [m | m<-ms, m `mod` p /= 0]
</source>
== Zdrojový kód v jazyce Scala ==
<source lang="scala">
def EratosthenovoSito(max: Int): List[Int] = {
val min = 2
def jeDelitelne(a: Int, b: Int) = a % b == 0
def sito(cisla: List[Int], prvocisla: List[Int]): List[Int] = cisla match {
case cislo :: zbytek => sito(zbytek filterNot { jeDelitelne(_,cislo) },cislo :: prvocisla)
case Nil => prvocisla.reverse
}
sito((min to max).toList, List[Int]())
}
</source>
| |||