2023-10-16 19:58:55 +03:00
|
|
|
1/1: Building Abel2002 (Abel2002.idr)
|
|
|
|
Main> Main.addord
|
|
|
|
Arguments [{arg:0}, {arg:1}]
|
|
|
|
Compile time tree: case {arg:0} of
|
|
|
|
O => {arg:1}
|
|
|
|
S {e:0} => S (addord {e:0} {arg:1})
|
|
|
|
Lim {e:1} => addord_lim {e:1} {arg:1}
|
|
|
|
Compiled: \ {arg:0}, {arg:1} => case {arg:0} of
|
|
|
|
{ Main.O {tag = 0} => {arg:1}
|
|
|
|
; Main.S {tag = 1} {e:0} => Main.S {tag = 1} (Main.addord {e:0} {arg:1})
|
|
|
|
; Main.Lim {tag = 2} {e:1} => Main.addord_lim {e:1} {arg:1}
|
|
|
|
}
|
|
|
|
Refers to: Main.addord_lim, Main.addord, Main.S
|
|
|
|
Refers to (runtime): Main.addord_lim, Main.addord, Main.S, Main.O, Main.Lim
|
|
|
|
Flags: total
|
|
|
|
Size change:
|
|
|
|
Main.S:
|
2023-11-02 14:06:27 +03:00
|
|
|
l
|
|
|
|
r +
|
2023-10-16 19:58:55 +03:00
|
|
|
Main.addord:
|
2023-11-02 14:06:27 +03:00
|
|
|
l 0 1
|
|
|
|
r +----
|
|
|
|
0 | <
|
|
|
|
1 | =
|
2023-10-16 19:58:55 +03:00
|
|
|
Main.addord_lim:
|
2023-11-02 14:06:27 +03:00
|
|
|
l 0 1
|
|
|
|
r +----
|
|
|
|
0 | <
|
|
|
|
1 | =
|
2023-10-16 19:58:55 +03:00
|
|
|
Main> Bye for now!
|