Horse racing: Difference between revisions

=={{header|Go}}==

{{trans|Wren}}

 

import (

sec := t - float64(min)*60

fmt.Printf("\nTime %d minute %3.1f seconds\n", min, sec)

 

{{out}}

=={{header|Julia}}==

{{trans|Go}}

# ratings on past form, assuming a rating of 100 for horse A

a = 100

 

main()

<pre>

Race 4

=={{header|Nim}}==

{{trans|Wren}}

 

# Ratings on past form, assuming a rating of 100 for horse A.

var min = int(t / 60)

var sec = t mod 60

 

{{out}}

=={{header|Perl}}==

{{trans|Raku}}

use warnings;

 

}

 

{{out}}

<pre> 1 i Iphigenia in Brooklyn 8.11 0.0 filly 1:35.4

Disclaimer: I know nothing about horse racing, all calculations were reverse-engineered from those in the Go entry.<br>

Made table-based so you can plug in different races and adjustments, but any horse appearing in more than one race input would too in the output.

<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>

<span style="color: #7060A8;">requires</span> <span style="color: #0000FF;">(</span><span style="color: #008000;">"1.0.1"</span><span style="color: #0000FF;">)</span> <span style="color: #000080;font-style:italic;">// [else sort_columns() needs a deep_copy()]</span>

<span style="color: #000000;">s</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">elapsed</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">remainder</span><span style="color: #0000FF;">(</span><span style="color: #000000;">t</span><span style="color: #0000FF;">,</span><span style="color: #000000;">60</span><span style="color: #0000FF;">))</span>

<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"\nTime %s %s\n"</span><span style="color: #0000FF;">,</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">m</span><span style="color: #0000FF;">,</span><span style="color: #000000;">s</span><span style="color: #0000FF;">})</span>

{{out}}

<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.

%card<a> = { name => 'Alberta Clipper', :sex<M>, rating => 100 };

%card<b> = { name => 'Beetlebaum', :sex<F>, rating => %card<a><rating> - 8 - 2*2 };

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: ':';

{{out}}

<pre>Pos Horse Name Weight Back Sex Time

9 g Grindstone 9.00 7.0 colt 1:36.8</pre>

 

{{trans|go}}

key string

value []f64

sec := t - f64(min)*60

println("\nTime $min minute ${sec:3.1f} seconds")

{{out}}

<pre>Same as go entry</pre>

=={{header|Wren}}==

{{libheader|Wren-fmt}}

 

// ratings on past form, assuming a rating of 100 for horse A

var min = (t/60).floor

var sec = t % 60

 

{{out}}