MD5/Implementation: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
(→{{header|Raku}}: add broken tag) |
||
Line 4,697: | Line 4,697: | ||
(formerly Perl 6) |
(formerly Perl 6) |
||
{{works with|rakudo|2018.03}} |
{{works with|rakudo|2018.03}} |
||
{{Broken|raku}} |
|||
<syntaxhighlight lang="raku" line>sub infix:<⊞>(uint32 $a, uint32 $b --> uint32) { ($a + $b) +& 0xffffffff } |
<syntaxhighlight lang="raku" line>sub infix:<⊞>(uint32 $a, uint32 $b --> uint32) { ($a + $b) +& 0xffffffff } |
||
sub infix:«<<<»(uint32 $a, UInt $n --> uint32) { ($a +< $n) +& 0xffffffff +| ($a +> (32-$n)) } |
sub infix:«<<<»(uint32 $a, UInt $n --> uint32) { ($a +< $n) +& 0xffffffff +| ($a +> (32-$n)) } |