Horse racing: Difference between revisions
m
→{{header|Perl}}: get it right, this time for sure
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: oops) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: get it right, this time for sure) |
||
Line 362:
=={{header|Perl}}==
{{trans|Raku}}
<lang perl>
use warnings;
my %card;
$card{a} = { name => 'Alberta Clipper', sex => 'M', rating => 100 };
$card{b} = { name => 'Beetlebaum', sex => 'F', rating => $card{a}{rating} - 8 - 2*2 };
| |||