{- CSci 450/503, Fall 2018
   Homework #4:  Exam DSL Project Code Skeleton

-}

module ExamDSL where

-- instructor used these in his solution
import Data.List ( delete, intercalate, intersect )

import SimpleHTML (
      HTML, ListType(..), LangType(..),
      to_html, to_body, to_heading, to_list, to_li
    )

type Tag      = String
type QText    = String
data Question = Ask [Tag] QText [Choice] deriving Show

type AText    = String
data Choice   = Answer AText Bool deriving (Eq, Show)

type Title    = String
data Exam     = Quiz Title [Question] deriving Show

-- Exercise Set A

-- #A1
-- correctChoice :: Choice -> Bool

-- #A2
-- lenQuestion :: Question -> Int

-- #A3
-- validQuestion :: Question -> Bool

-- #A4
-- hasTag :: Question -> Tag -> Bool

-- #A5
-- eqBag :: Eq a => [a] -> [a] -> Bool

-- #A6
-- instance Eq Question where

-- #A7
-- selectByTags :: [Tag] -> Exam -> Exam

-- #A8
-- validExam :: Exam -> Bool 

-- #A9

-- Exercise Set B
-- makeKey :: Exam -> [(Int,Char)]

-- might be useful
newline :: String
newline = "\n"

-- might be useful
block :: HTML -> HTML
block str = newline ++ str ++ newline

choice2html :: Choice -> HTML
choice2html (Answer text _) = to_li text

-- #B1
-- question2html :: Question -> HTML

-- #B2
-- exam2html :: Exam -> HTML

-- Test data given in description
q0 = Ask ["curriculum"]
         "Which one of the following is a required course?"
         [ Answer "CSci 323" False, 
           Answer "CSci 450" True, 
           Answer "CSci 525" False ]
  
e0 = Quiz "Curriclum Test" [
         Ask ["curriculum"]
             "Which one of the following courses is required?"
             [ Answer "CSci 323" False, 
               Answer "CSci 450" True, 
               Answer "CSci 525" False ],
         Ask ["language","course"]
             "What one of the following is used in CSci 450?"
             [ Answer "Lua" False,
               Answer "Elm" False,
               Answer "Haskell" True ]
         ]