GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Update LambdaCalculus.md

Browse Source
This commit is contained in:
Krasimir Angelov
2021-11-03 16:31:28 +01:00
committed by GitHub
parent eb3baa5c43
commit d44ae435c7
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
doc/hackers-guide/LambdaCalculus.md
View File

@@ -27,14 +27,14 @@ data Value
``` ```
```Haskell ```Haskell
eval env (Vr x) vs = apply (lookup x env) vs eval env (Vr x) vs = apply (lookup x env) vs
eval env (Cn c) vs = VApp c vs eval env (Cn c) vs = VApp c vs
eval env (App t1 t2) vs = eval env t1 (eval env t2 : vs) eval env (App t1 t2) vs = eval env t1 (eval env t2 : vs)
eval env (Abs b x t) [] = return (VClosure env (Abs b x t)) eval env (Abs x t) [] = return (VClosure env (Abs b x t))
eval env (Abs b x t) (v:vs) = eval ((x,v):env) t vs eval env (Abs x t) (v:vs) = eval ((x,v):env) t vs
apply (VApp c vs0) vs = VApp c (vs0++vs) apply (VApp c vs0) vs = VApp c (vs0++vs)
apply (VClosure env (Abs b x t)) (v:vs) = eval ((x,v):env) t vs apply (VClosure env (Abs x t)) (v:vs) = eval ((x,v):env) t vs
``` ```
# Variants # Variants