swiftNavigation.hs

--ghc 7.10
f :: Integer -> Integer
f 0 = 1
f 1 = 1
f n = f (n-1) + f (n-2)


--I just google searched this. 
isPrime :: Integer->Bool
isPrime x = null [y | y<-[2..floor (sqrt (fromIntegral x))], x `mod` y == 0]

result :: Integer -> String 
result n | (n `mod` 15 == 0) = "FizzBuzz"
         | (n `mod` 5 == 0) = "Fizz"
         | (n `mod` 3 == 0) =  "Buzz"
         | (isPrime (n) == True) = "BuzzFizz"
         | otherwise = show n
         
         
main = print $ result (f 100) --NUMBER HERE INSTEAD OF THE "100"