CS代考计算机代写 flex {-# OPTIONS_GHC -fwarn-incomplete-patterns #-}

{-# OPTIONS_GHC -fwarn-incomplete-patterns #-}
{-# OPTIONS_GHC -fwarn-incomplete-uni-patterns #-}
{-# LANGUAGE FlexibleInstances #-}

module Assignment06 where

import Control.Applicative(liftA, liftA2, liftA3)

import ContextFree

import qualified Memoization as M

data Tree nt t = Leaf nt t | NonLeaf nt (Tree nt t) (Tree nt t) deriving Show

tree1 :: Tree Cat String
tree1 = NonLeaf VP (NonLeaf VP (Leaf V “watches”) (Leaf NP “spies”))
(NonLeaf PP (Leaf P “with”) (Leaf NP “telescopes”))

tree2 :: Tree Cat String
tree2 = NonLeaf VP (Leaf V “watches”)
(NonLeaf NP (Leaf NP “spies”) (NonLeaf PP (Leaf P “with”) (Leaf NP “telescopes”)))

——————————————————————
——————————————————————
— IMPORTANT: Please do not change anything above here.
— Write all your code below this line.