Create new 'branch' for part 6 of compiler series
This commit is contained in:
2
06/examples/bad1.txt
Normal file
2
06/examples/bad1.txt
Normal file
@@ -0,0 +1,2 @@
|
||||
data Bool = { True, False }
|
||||
defn main = { 3 + True }
|
||||
1
06/examples/bad2.txt
Normal file
1
06/examples/bad2.txt
Normal file
@@ -0,0 +1 @@
|
||||
defn main = { 1 2 3 4 5 }
|
||||
8
06/examples/bad3.txt
Normal file
8
06/examples/bad3.txt
Normal file
@@ -0,0 +1,8 @@
|
||||
data List = { Nil, Cons Int List }
|
||||
|
||||
defn head l = {
|
||||
case l of {
|
||||
Nil -> { 0 }
|
||||
Cons x y z -> { x }
|
||||
}
|
||||
}
|
||||
2
06/examples/works1.txt
Normal file
2
06/examples/works1.txt
Normal file
@@ -0,0 +1,2 @@
|
||||
defn main = { plus 320 6 }
|
||||
defn plus x y = { x + y }
|
||||
3
06/examples/works2.txt
Normal file
3
06/examples/works2.txt
Normal file
@@ -0,0 +1,3 @@
|
||||
defn add x y = { x + y }
|
||||
defn double x = { add x x }
|
||||
defn main = { double 163 }
|
||||
7
06/examples/works3.txt
Normal file
7
06/examples/works3.txt
Normal file
@@ -0,0 +1,7 @@
|
||||
data List = { Nil, Cons Int List }
|
||||
defn length l = {
|
||||
case l of {
|
||||
Nil -> { 0 }
|
||||
Cons x xs -> { 1 + length xs }
|
||||
}
|
||||
}
|
||||
Reference in New Issue
Block a user