2021-09-06 23:14:53 +03:00
|
|
|
1/1: Building Issue1831_1 (Issue1831_1.idr)
|
2022-03-18 11:45:18 +03:00
|
|
|
Issue1831_1> Issue1831_1.test2
|
|
|
|
Arguments [{arg:0}]
|
2022-04-29 14:52:23 +03:00
|
|
|
Compile time tree: case {arg:0} of
|
|
|
|
S {e:0} => case {e:0} of
|
|
|
|
S {e:1} => case {e:1} of
|
|
|
|
Z => True
|
|
|
|
_ => False
|
|
|
|
_ => False
|
|
|
|
_ => False
|
|
|
|
Compiled: \ {arg:0} => case {arg:0} of
|
2022-03-18 11:45:18 +03:00
|
|
|
{ 0 => 0
|
2022-04-29 14:52:23 +03:00
|
|
|
; _ => let {e:0} = {arg:0} - 1 in
|
|
|
|
case {e:0} of
|
2022-03-18 11:45:18 +03:00
|
|
|
{ 0 => 0
|
2022-04-29 14:52:23 +03:00
|
|
|
; _ => let {e:1} = {e:0} - 1 in
|
|
|
|
case {e:1} of
|
2022-03-18 11:45:18 +03:00
|
|
|
{ 0 => 1
|
|
|
|
; _ => 0
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
Refers to: Prelude.Basics.True, Prelude.Basics.False
|
|
|
|
Flags: allguarded, covering
|
2021-09-06 23:14:53 +03:00
|
|
|
Issue1831_1>
|
|
|
|
Bye for now!
|
|
|
|
1/1: Building Issue1831_2 (Issue1831_2.idr)
|
2022-03-18 11:45:18 +03:00
|
|
|
Issue1831_2> Issue1831_2.test2
|
|
|
|
Arguments [{arg:0}]
|
2022-04-29 14:52:23 +03:00
|
|
|
Compile time tree: case {arg:0} of
|
|
|
|
S {e:0} => case {e:0} of
|
|
|
|
S {e:1} => case {e:1} of
|
|
|
|
Z => True
|
|
|
|
_ => False
|
|
|
|
_ => False
|
|
|
|
_ => False
|
|
|
|
Compiled: \ {arg:0} => case {arg:0} of
|
2022-03-18 11:45:18 +03:00
|
|
|
{ 0 => 0
|
2022-04-29 14:52:23 +03:00
|
|
|
; _ => let {e:0} = {arg:0} - 1 in
|
|
|
|
case {e:0} of
|
2022-03-18 11:45:18 +03:00
|
|
|
{ 0 => 0
|
2022-04-29 14:52:23 +03:00
|
|
|
; _ => let {e:1} = {e:0} - 1 in
|
|
|
|
case {e:1} of
|
2022-03-18 11:45:18 +03:00
|
|
|
{ 0 => 1
|
|
|
|
; _ => 0
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
Refers to: Prelude.Basics.True, Prelude.Basics.False
|
|
|
|
Flags: allguarded, covering
|
2021-09-06 23:14:53 +03:00
|
|
|
Issue1831_2>
|
|
|
|
Bye for now!
|