Hatékony prímszámgenerálás és -tesztelés Haskellben

A kódot frissítettem. Most még egyszerűbb, és hozzáadtam néhány sort kommentet.


-- Összes prímszám listája
primes = 2 : filter prime [3,5..]

-- x prím-e?
prime x = check primes x

-- (p:ps) prímszámok listája növekvő sorrendben
-- x      tetszőleges szám
-- eredmény: x prím-e?
check (p:ps) x
    | p*p <= x  = (x `mod` p /= 0) && check ps x
    | otherwise = True

Hozzászólások