Gianluca Casati fibo

🎼

Working from anywhere

🇮🇹 mathematician, working in IT since 2005. ❤ coding, 🎶 guitar and percussions.

fibo / gist:1203756

Created September 8, 2011 16:00 — forked from osfameron/gist:1203752

Crivello Haskell

	import Data.List
	import Debug.Trace
	-- primes = 2 : 3 : zipWith getPrime primes (tail primes)

	checkZeros :: [Int] -> Bool
	checkZeros ms = any isZero ms
	where isZero 0 = True
	isZero _ = False

	calculateMods :: Int -> [Int] -> [Int]