Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- f :: Int -> Int
- f 1 = 1
- f n = f(n-1) + 2 * q(n-1)
- q :: Int -> Int
- q 1 = 1
- q n = -2 * f(n-1) + q(n-1)
- main = do
- print f(5) + q(5)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement