44 lines
875 B
Plaintext
44 lines
875 B
Plaintext
module TestPrim
|
|
|
|
|
|
-- we need to be able to declare a primitive type
|
|
-- distinct from inductive type. there are no constructors per-se but it is inhabited
|
|
|
|
ptype String
|
|
ptype Int
|
|
|
|
pfunc strlen : String -> Int := "(x) => x.length()"
|
|
|
|
-- why is there an eta in here?
|
|
foo : String -> Int
|
|
foo = \ x => strlen x
|
|
|
|
bar : String -> String -> Int
|
|
bar = \ x y => strlen x
|
|
|
|
pfunc append : String -> String -> String := "(a,b) => a + b"
|
|
|
|
blah : String
|
|
blah = append "hello" "world"
|
|
|
|
pfunc plus : Int -> Int -> Int := "(a,b) => a + b"
|
|
|
|
answer : Int
|
|
answer = plus 40 2
|
|
|
|
-- I'd like to define prim operators too
|
|
|
|
-- codegen test cases
|
|
-- works, but two looks like () => (eta1) => (eta0) => one(eta1, eta0)
|
|
pfunc one : Int -> Int -> Int := "(x,y) => x + y"
|
|
|
|
two : Int -> Int -> Int
|
|
two = one
|
|
|
|
three : Int -> Int -> Int
|
|
three = \ x => two x
|
|
|
|
four : Int -> Int -> Int
|
|
four = \x y => three x y
|
|
|