Warning! It seems that you are using Dodona within another webpage, so not everything may work properly. Let your teacher know so that he can solve the problem by adjusting a setting in the learning environment. In the meantime, you can click this link to open Dodona in a new window.
CPS Fibonacci
Sign in to test your solution.
add :: Int -> Int -> Int
add x y = x + y
fibonacci :: Int -> Int
fibonacci 0 = 0
fibonacci 1 = 1
fibonacci n = add (fibonacci $ n - 1) (fibonacci $ n - 2)
add' :: Int -> Int -> ((Int -> r) -> r)
add' = undefined
decrement' :: Int -> ((Int -> r) -> r)
decrement' = undefined
fibonacci' :: Int -> ((Int -> r) -> r)
fibonacci' = undefined
You can submit as many times as you like. Only your latest submission will be taken into account.
Sign in to test your solution.