Horse racing: Difference between revisions
→{{header|Raku}}: Add aRaku example
m (→{{header|Phix}}: made sex string, removed constant cf and enum Colt, Filly) |
Thundergnat (talk | contribs) (→{{header|Raku}}: Add aRaku example) |
||
Line 446:
Time 1 minute 35.4s
</pre>
=={{header|Raku}}==
I know nothing about horse racing and/or handicapping. This is mostly a straightforward translation of the logic from Go though I did take certain liberties with formatting and layout.
<lang perl6>my %card;
%card<a> = { name => 'Alberta Clipper', :sex<M>, rating => 100 };
%card<b> = { name => 'Beetlebaum', :sex<F>, rating => %card<a><rating> - 8 - 2*2 };
%card<c> = { name => 'Canyonero', :sex<M>, rating => %card<a><rating> + 4 - 2*3.5 };
%card<d> = { name => 'Donnatello', :sex<F>, rating => %card<a><rating> - 4 - 10*0.4 };
%card<e> = { name => 'Exterminator', :sex<M>, rating => %card<d><rating> + 7 - 2*1 };
%card<f> = { name => 'Frequent Flyer', :sex<M>, rating => %card<d><rating> + 11 - 2*(4-2) };
%card<g> = { name => 'Grindstone', :sex<M>, rating => %card<a><rating> - 10 + 10*0.2 };
%card<h> = { name => 'His Honor', :sex<M>, rating => %card<g><rating> + 6 - 2*1.5 };
%card<i> = { name => 'Iphigenia in Brooklyn', :sex<F>, rating => %card<g><rating> + 15 - 2*2 };
%card<j> = { name => 'Josephine', :sex<F>, rating => Nil };
# adjustments to ratings for current race
%card<b><rating> += 4;
%card<c><rating> -= 4;
%card<h><rating> += 3;
%card<j><rating> = %card<a><rating> - 3 + 10*0.2;
# filly's allowance to give weight adjusted weighting
for %card { .value<rating> += 3 if .value<sex> eq 'F' }
# initialize carry weights and time and distance
for %card {
.value<weight> = (.value<sex> eq 'M') ?? 9.00 !! 8.11;
.value<back> = 0;
.value<time> = 0;
}
my ($previous, $position, $leader) = 0;
say "Pos Horse Name Weight Back Sex Time";
for %card.sort( -*.value.<rating> ) {
FIRST $leader = $_;
++$position if $previous != .value.<rating>;
$previous = .value.<rating>;
.value<back> = ($leader.value<rating> - .value<rating>) / 2;
.value<time> = 96 - (.value.<rating> - 100) / 10;
printf "%2d %s %-22s %.2f %.1f %-6s %s\n", $position, .key, .value<name>, .value<weight>,
.value<back>, .value<sex> eq 'M' ?? 'colt' !! 'filly', .value.<time>.polymod(60 xx*).reverse.join: ':';
}</lang>
{{out}}
<pre>Pos Horse Name Weight Back Sex Time
1 i Iphigenia in Brooklyn 8.11 0.0 filly 1:35.4
2 j Josephine 8.11 2.0 filly 1:35.8
3 a Alberta Clipper 9.00 3.0 colt 1:36
4 f Frequent Flyer 9.00 3.5 colt 1:36.1
5 h His Honor 9.00 4.0 colt 1:36.2
6 e Exterminator 9.00 4.5 colt 1:36.3
7 d Donnatello 8.11 5.5 filly 1:36.5
7 b Beetlebaum 8.11 5.5 filly 1:36.5
8 c Canyonero 9.00 6.5 colt 1:36.7
9 g Grindstone 9.00 7.0 colt 1:36.8</pre>
=={{header|Wren}}==
| |||