1
0
forked from GitHub/gf-core

split the testsuite to different directories for compiler, runtime and libraries

This commit is contained in:
krasimir
2009-06-13 13:54:06 +00:00
parent c25d7be877
commit 9142fcff76
19 changed files with 5 additions and 5 deletions

View File

@@ -0,0 +1,34 @@
abstract Nat = {
cat Nat ;
data
Zero : Nat ;
Succ : Nat -> Nat ;
fun one : Nat ;
def one = Succ Zero ;
fun plus : Nat -> Nat -> Nat ;
def plus x Zero = x ;
def plus x (Succ y) = Succ (plus x y) ;
fun twice : Nat -> Nat ;
def twice x = plus x x ;
fun times : Nat -> Nat -> Nat ;
def times x Zero = Zero ;
def times x (Succ y) = plus (times x y) x ;
fun four : Nat ;
def four = twice (twice one) ;
fun exp : Nat -> Nat ;
def exp Zero = one ;
def exp (Succ x) = twice (exp x) ;
fun plus' : Nat -> Nat -> Nat ;
def plus' Zero = \y -> y ;
def plus' (Succ x) = \y -> Succ (plus x y) ;
}