diff options
| author | Marvin Borner | 2023-11-06 18:52:17 +0100 |
|---|---|---|
| committer | Marvin Borner | 2023-11-06 18:52:17 +0100 |
| commit | 27f0cbf21e01448245d54f7818582c741d8cdafa (patch) | |
| tree | bbef2451cc5e6354281bb26a3e8724f83515e6f5 /src/Binary.hs | |
| parent | 1f7231153c172500f1073ddb22ec911379f83a07 (diff) | |
Minor general additions
Diffstat (limited to 'src/Binary.hs')
| -rw-r--r-- | src/Binary.hs | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/src/Binary.hs b/src/Binary.hs index 3f77d4a..acf20d4 100644 --- a/src/Binary.hs +++ b/src/Binary.hs @@ -61,8 +61,6 @@ fromJot = worker . reverse k = Function $ NormalFunction "k" worker ('0' : xs) = Application (Application (worker xs) s) k worker ('1' : xs) = Application s (Application k (worker xs)) - -- worker ('1' : xs) = Abstraction - -- (Abstraction (Application (worker xs) (Application (Bruijn 1) (Bruijn 0)))) worker _ = Abstraction (Bruijn 0) |