-
-
Notifications
You must be signed in to change notification settings - Fork 373
/
Order.pm
54 lines (49 loc) · 1.33 KB
/
Order.pm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
## Order enumeration, for cmp and <=>
my enum Order (:Less(-1), :Same(0), :More(1));
role Rational { ... }
sub ORDER(int $i) {
nqp::iseq_i($i,0) ?? Same !! nqp::islt_i($i,0) ?? Less !! More
}
proto sub infix:<cmp>(Mu $, Mu $) is pure { * }
multi sub infix:<cmp>(\a, \b) {
nqp::eqaddr(a,b)
?? Same
!! a.Stringy cmp b.Stringy
}
multi sub infix:<cmp>(Real:D \a, \b) {
a === -Inf
?? Less
!! a === Inf
?? More
!! a.Stringy cmp b.Stringy
}
multi sub infix:<cmp>(\a, Real:D \b) {
b === Inf
?? Less
!! b === -Inf
?? More
!! a.Stringy cmp b.Stringy
}
multi sub infix:<cmp>(Real:D \a, Real:D \b) {
(nqp::istype(a, Rational) && nqp::isfalse(a.denominator))
|| (nqp::istype(b, Rational) && nqp::isfalse(b.denominator))
?? a.Bridge cmp b.Bridge
!! a === -Inf || b === Inf
?? Less
!! a === Inf || b === -Inf
?? More
!! a.Bridge cmp b.Bridge
}
multi sub infix:<cmp>(Int:D \a, Int:D \b) {
ORDER(nqp::cmp_I(nqp::decont(a), nqp::decont(b)))
}
multi sub infix:<cmp>(int $a, int $b) {
ORDER(nqp::cmp_i($a, $b))
}
multi sub infix:«<=>»(Int:D \a, Int:D \b) {
ORDER(nqp::cmp_I(nqp::decont(a), nqp::decont(b)))
}
multi sub infix:«<=>»(int $a, int $b) {
ORDER(nqp::cmp_i($a, $b))
}
# vim: ft=perl6 expandtab sw=4