diff options
| author | Camil Staps | 2016-02-02 19:24:50 +0100 |
|---|---|---|
| committer | Camil Staps | 2016-02-02 19:24:50 +0100 |
| commit | a7d7542dc646a5fd124ef71e71ce260889f1701b (patch) | |
| tree | 04ed89503bbb3cc9933273a1326a53ca724c3492 /1415/files/practicum/Lambda.dcl | |
| parent | week6 camil: working positioning of lines by putting empties at left and righ... (diff) | |
Diffstat (limited to '1415/files/practicum/Lambda.dcl')
| -rw-r--r-- | 1415/files/practicum/Lambda.dcl | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/1415/files/practicum/Lambda.dcl b/1415/files/practicum/Lambda.dcl new file mode 100644 index 0000000..6ef7257 --- /dev/null +++ b/1415/files/practicum/Lambda.dcl @@ -0,0 +1,20 @@ +definition module Lambda
+
+import StdEnv
+
+:: Term = C Value // constante v (C v)
+ | X Index // variabele x_i (X i)
+ | (@.) infixl 7 Term Term // applicatie (t1 t2) (t1 @. t2)
+ | \. Index Term // abstractie (\x_i . t) (\. i t)
+:: Value :== Int // willekeurige integer waarde
+:: Index :== Int // index (gebruikelijk i >= 0)
+
+instance toString Term
+
+nf :: Term -> Bool
+vars :: Term -> [Index]
+(<:) infixl 6 :: Term (Index,Term) -> Term
+
+normal_order :: Term -> Term
+applicative_order :: Term -> Term
+herschrijf :: (Term -> Term) Term -> Term
|