Документ взят из кэша поисковой машины. Адрес оригинального документа : http://uneex.lorien.cs.msu.su/static/AltDocs_informatika2/Book2/ch_09_model/02_programming/02_declarative/primes.hs
Дата изменения: Sat Sep 6 12:08:10 2008
Дата индексирования: Fri Jan 16 23:19:44 2009
Кодировка:

Поисковые слова: integral
-- primes :: Integral a => [a]
primes = map head (iterate sieve [2..])
sieve (p:xs) = [ x | x<-xs, x `rem` p /= 0 ]