You must complete this assignment with Team 3.
In this assignment, you will work with a typed language that includes numbers, booleans, conditionals, functions, and numeric lists. The concrete syntax for the language is given by the following BNF grammars:
<expr> ::= <num>
| true
| false
| {+ <expr> <expr>}
| {- <expr> <expr>}
| {* <expr> <expr>}
| {iszero <expr>}
| {bif <expr> <expr> <expr>}
| <id>
| {with {<id> <expr>} <expr>}
| {fun {<id> : <type>} : <type> <expr>}
| {<expr> <expr>}
| nempty
| {ncons <expr> <expr>}
| {nempty? <expr>}
| {nfirst <expr>}
| {nrest <expr>}
<type> ::= number
| boolean
| nlist
| (<type> -> <type>)
In the surface syntax for types, base types are represented by
symbols, and the arrow type by a Scheme list of three elements: the
type of the argument, the symbol ->, and the type of the
result.
You have not implemented some of these constructs yet, but they should be familiar:
iszero consumes a number, and returns true if
it is 0, false otherwise
bif ("boolean if") must
evaluate to true or false
ncons consumes a number and a numeric list, and produces a
numeric list
Your type checker must be written in the PLAI language. We
provide a template
to help you get started. The template has define-type
definitions for the abstract syntax of the language and its types. You
should not change these definitions.
Define the function parse, which consumes the concrete
representation of a program, and returns its abstract syntax tree. To be
precise,
parse :: S-exp -> ExprYou may assume that s-expression provided to parse conforms to the grammar.
Write down type judgments for the five numeric list constructs:
nempty, ncons, nempty?,
nfirst, and nrest. Include them as judgments.pdf in your folder.
Implement the function type-of, which consumes the
abstract representation of a program (i.e. the result of parse) If
the program has no type errors, type-of returns the type of the
program, using the names of the types given in the grammar above. To be
precise,
type-of :: Expr -> TypeHowever, if the program does have a type error,
type-of invokes error with an
appropriate error message. For example:
(type-of (parse '{+ 1 2}))
should produce (t-num), while:
(type-of (parse '{3 4}))
should call error with some string, e.g. "Number is not a function".