module CasesAndRecursionAssignment where

import Question
import Cases
import Recursion

main = run $ askQ theTitle $ wrapper casesAndRecursion

theTitle = "Cases and recursion"

casesAndRecursion = do
  h1 $ text theTitle

  p <#>Today you'll work with cases and recursion. Try to follow the
       method for defining functions proposed in the lecture.</#>

  p <#><em><b>Note that some of the answers include
       follow-up questions and/or useful information, so you should
       always read the answers.</b></em></#>

  cases

  recursion

  h2 $ text "Already done?"

  p <#>Have you already finished? Remember to take the diagnostic
       test. If you want to, you can also have a look at the first
       assessed assignment, Black Jack.</#>

  hr empty

  credits

credits = do

  address
    <#>This page is written by <a
       href="http://www.cs.chalmers.se/~nad/">Nils Anders
       Danielsson</a>.</#>