mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-19 09:12:34 +03:00
53 lines
1.5 KiB
Plaintext
53 lines
1.5 KiB
Plaintext
1/1: Building Issue1831_1 (Issue1831_1.idr)
|
|
Issue1831_1> Issue1831_1.test2
|
|
Arguments [{arg:0}]
|
|
Compile time tree: case {arg:0} : [__] of
|
|
Prelude.Types.S {e:0} => case {e:0} : [__] of
|
|
Prelude.Types.S {e:1} => case {e:1} : [__] of
|
|
Prelude.Types.Z => Prelude.Basics.True
|
|
_ => Prelude.Basics.False
|
|
_ => Prelude.Basics.False
|
|
_ => Prelude.Basics.False
|
|
Compiled: \ {arg:0} => case !{arg:0} of
|
|
{ 0 => 0
|
|
; _ => let {e:0} = !{arg:0} - 1 in
|
|
case !{e:0} of
|
|
{ 0 => 0
|
|
; _ => let {e:1} = !{e:0} - 1 in
|
|
case !{e:1} of
|
|
{ 0 => 1
|
|
; _ => 0
|
|
}
|
|
}
|
|
}
|
|
Refers to: Prelude.Basics.True, Prelude.Basics.False
|
|
Flags: allguarded, covering
|
|
Issue1831_1>
|
|
Bye for now!
|
|
1/1: Building Issue1831_2 (Issue1831_2.idr)
|
|
Issue1831_2> Issue1831_2.test2
|
|
Arguments [{arg:0}]
|
|
Compile time tree: case {arg:0} : [__] of
|
|
Prelude.Types.S {e:0} => case {e:0} : [__] of
|
|
Prelude.Types.S {e:1} => case {e:1} : [__] of
|
|
Prelude.Types.Z => Prelude.Basics.True
|
|
_ => Prelude.Basics.False
|
|
_ => Prelude.Basics.False
|
|
_ => Prelude.Basics.False
|
|
Compiled: \ {arg:0} => case !{arg:0} of
|
|
{ 0 => 0
|
|
; _ => let {e:0} = !{arg:0} - 1 in
|
|
case !{e:0} of
|
|
{ 0 => 0
|
|
; _ => let {e:1} = !{e:0} - 1 in
|
|
case !{e:1} of
|
|
{ 0 => 1
|
|
; _ => 0
|
|
}
|
|
}
|
|
}
|
|
Refers to: Prelude.Basics.True, Prelude.Basics.False
|
|
Flags: allguarded, covering
|
|
Issue1831_2>
|
|
Bye for now!
|