diff options
Diffstat (limited to 'examples/gfcc/even.c')
| -rw-r--r-- | examples/gfcc/even.c | 72 |
1 files changed, 72 insertions, 0 deletions
diff --git a/examples/gfcc/even.c b/examples/gfcc/even.c new file mode 100644 index 000000000..bb88e32bd --- /dev/null +++ b/examples/gfcc/even.c @@ -0,0 +1,72 @@ + Funct + (ConsTyp + TInt + NilTyp + ) + TInt + (BodyCons + TInt + NilTyp + (\x -> BodyNil + (IfElse + (ELtI + (EVar + TInt + x + ) + (EInt + 0 + ) + ) + (Block + (Return + TInt + (ESubI + (EInt + 0 + ) + (EVar + TInt + x + ) + ) + ) + End + ) + (Return + TInt + (EVar + TInt + x + ) + ) + End + ) + ) + ) + (\abs -> Funct + NilTyp + TInt + (BodyNil + (Decl + TInt + (\i -> Assign + TInt + i + (EApp + (ConsTyp + TInt + NilTyp + ) + TInt + abs + (ConsExp ? ? (EInt 16) NilExp) + ) + End + ) + ) + ) + (\main -> Empty + ) + ) + |