mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-14 07:19:31 -06:00
30 lines
941 B
Plaintext
30 lines
941 B
Plaintext
i testsuite/runtime/eval/Test.gf
|
|
|
|
pt -compute \x -> x 1 : (Int->Int)->Int
|
|
pt -compute (? : Int -> Int) 1
|
|
pt -compute (\x -> x 1 : (Int->Int)->Int) ?
|
|
pt -compute f 1 2
|
|
pt -compute \x -> x : Nat -> Nat
|
|
pt -compute ? : String
|
|
pt -compute f
|
|
pt -compute (\x -> x 2 : (Int->Int)->Int) (f 1)
|
|
pt -compute g 1
|
|
pt -compute g 0
|
|
pt -compute \x -> g x : Int -> Int
|
|
pt -compute g ?
|
|
pt -compute (\x -> x 5 : (Int->Int)->Int) (g2 1)
|
|
pt -compute (\x -> x 3 : (Int->Int)->Int) (\x -> x)
|
|
pt -compute g0
|
|
pt -compute (\x -> x 32 : (Int -> Int -> Int) -> Int -> Int) (\x -> f x : Int -> Int -> Int)
|
|
pt -compute g0 23
|
|
pt -compute const 3.14 "pi"
|
|
pt -compute dec (succ (succ zero))
|
|
pt -compute dec (succ ?)
|
|
pt -compute \x -> dec x : Nat -> Nat
|
|
pt -compute dec ?
|
|
pt -compute (\f -> f 0 : (Int -> Int) -> Int) (g3 ?)
|
|
pt -compute g (g2 ? 0)
|
|
pt -compute plus (succ zero) (succ zero)
|
|
pt -compute dec2 0 (succ zero)
|
|
pt -compute dec2 0 err
|
|
pt -compute plus err (succ zero) |