File tree Expand file tree Collapse file tree 3 files changed +15
-12
lines changed Expand file tree Collapse file tree 3 files changed +15
-12
lines changed Original file line number Diff line number Diff line change 1
1
[package ]
2
2
name = " lambda_mountain"
3
- version = " 1.11.72 "
3
+ version = " 1.11.73 "
4
4
authors = [" Andrew <andrew@subarctic.org>" ]
5
5
license = " MIT"
6
6
description = " Lambda Mountain"
Original file line number Diff line number Diff line change @@ -20,12 +20,10 @@ print := λ(: x S). (: (tail(
20
20
(if (==( (.0 x) 1u64 )) (tail(
21
21
(let c SNil)
22
22
(print '\[_s)
23
- (print( (as (.1 (as x SCons)) U64) ))
24
- (mov( (.1 (as x SCons)) 0u64 c ))
23
+ (mov( (.2 (as x SCons)) 0u64 c ))
25
24
(print c)
26
25
(print '\s_s)
27
- (print( (as (.2 (as x SCons)) U64) ))
28
- (mov( (.2 (as x SCons)) 0u64 c ))
26
+ (mov( (.1 (as x SCons)) 0u64 c ))
29
27
(print c)
30
28
(print '\]_s)
31
29
()
Original file line number Diff line number Diff line change @@ -8,11 +8,16 @@ echo := λ(: x U64). (: (
8
8
x
9
9
) U64);
10
10
11
- main := (
12
- (let x SNil )
13
- # (let x (SCons(
14
- # (close(SAtom( 'an-atom_s ) ))
15
- # (close(SNil ))
16
- # )))
11
+ main := (tail(
12
+ (let l1 (SAtom( 'an-atom_s )) )
13
+ (let l2 (close l1))
14
+ (let r1 (SNil ))
15
+ (let r2 (close r1 ))
16
+ (let x (SCons( l2 r2 )))
17
17
(print x)
18
- );
18
+ ()
19
+ # (print (SCons(
20
+ # (SAtom( 'an-atom_s ))
21
+ # (SNil)
22
+ # )))
23
+ ));
You can’t perform that action at this time.
0 commit comments