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.
Warning! The page was not fully loaded, probably because of a network issue. It could be that not all functionalities work as expected. Please try reloading the page.
CPS Exceptions
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