Anonymous user
Ethiopian multiplication: Difference between revisions
m
→{{header|Perl 6}}
(added powerbuilder example) |
|||
Line 1,506:
=={{header|Perl 6}}==
{{works with|Rakudo
<lang perl6>sub halve (Int $n is rw) { $n div= 2 }
sub double (Int $n is rw) { $n *= 2 }
sub even (Int $n --> Bool) { $n
sub ethiopicmult (Int $a is copy, Int $b is copy --> Int) {
| |||