Tropical algebra overloading: Difference between revisions
m
→{{header|Raku}}: reduce noise
Thundergnat (talk | contribs) m (→{{header|Raku}}: more fully implement ↑ as serial ⊗ (as task suggests)) |
Thundergnat (talk | contribs) m (→{{header|Raku}}: reduce noise) |
||
Line 602:
=={{header|Raku}}==
No need to overload,
<lang perl6>sub infix:<⊕> (Real $a, Real $b) is equiv(&[+]) { $a max $b }
sub infix:<⊗> (Real $a, Real $b) is equiv(&[
sub infix:<↑> (Real $a, Int $b) is equiv(&[**]) { [⊗] $a xx $b }
| |||