Horse racing: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) (Added Perl) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: oops) |
||
| Line 396: | Line 396: | ||
$card{$_}{time} = 96 - ($card{$_}{rating} - 100) / 10; |
$card{$_}{time} = 96 - ($card{$_}{rating} - 100) / 10; |
||
push @predictions, sprintf "%2d %s %-22s %.2f %.1f %-6s %s\n", $position, $_, $card{$_}{name}, $card{$_}{weight}, |
push @predictions, sprintf "%2d %s %-22s %.2f %.1f %-6s %s\n", $position, $_, $card{$_}{name}, $card{$_}{weight}, |
||
$card{$_}{back}, $card{$_}{sex} eq 'M' ? 'colt' : 'filly', int($card{$_}{time}/60), $card{$_}{time}-60; |
$card{$_}{back}, $card{$_}{sex} eq 'M' ? 'colt' : 'filly', sprintf '%1d:%.1f', int($card{$_}{time}/60), $card{$_}{time}-60; |
||
} |
} |
||