Hourglass puzzle: Difference between revisions
m
→{{header|Wren}}: Minor tidy
Catskill549 (talk | contribs) (added AWK) |
m (→{{header|Wren}}: Minor tidy) |
||
| (4 intermediate revisions by 4 users not shown) | |||
Line 15:
{{trans|Python}}
<
L t4 < 10'000
V t7_left = 7 - t4 % 7
Line 29:
t4 += 4
L.was_no_break
print(‘Not found’)</
{{out}}
Line 42:
</pre>
=={{header|AWK}}==
<syntaxhighlight lang="awk">
# syntax: GAWK -f HOURGLASS_PUZZLE.AWK
BEGIN {
Line 85:
}
}
</syntaxhighlight>
{{out}}
<pre>
Line 97:
=={{header|FreeBASIC}}==
{{trans|Phyton}}
<
Sub Hourglass_puzzle()
Dim As Uinteger t4 = 0, limite = 1000, t7_left
Line 121:
Hourglass_puzzle()
Sleep
</syntaxhighlight>
{{out}}
<pre>
Line 137:
=={{header|Go}}==
{{trans|Julia}}
<
import (
Line 199:
fmt.Println(ts[i], "using", hgs[i])
}
}</
{{out}}
Line 214:
=={{header|Julia}}==
Implemented as a game solver rather than as a game with user input.
<
gcd(hourglasses) in hourglasses && !(1 in hourglasses) && throw("Hourglasses fail sanity test (not relatively prime enough)")
flippers, series = deepcopy(hourglasses), Int[]
Line 240:
i, j = euclidean_hourglassflipper([5, 7, 31], 36)
println("Use hourglasses from step $i to step $j (inclusive) to sum 36 using [5, 7, 31]")
</
<pre>
Flip an hourglass every time it runs out of grains, and note the interval in time.
Line 251:
=={{header|Logo}}==
tested with FMSlogo
<
to bb
Make "small_capacity 4
Line 308:
</syntaxhighlight>
=={{header|Nim}}==
{{trans|Wren}}
<
func hourglassFlipper(hourglasses: openArray[int];
Line 341:
echo "\nSeries: ", series.join(" ")
echo "Use hourglasses from indices $1 to $2 (inclusive) to sum ".format(start, `end`),
"$1 using $2.".format(target, hourglasses.join(" "))</
{{out}}
Line 355:
=={{header|Perl}}==
Flip each hourglass when it runs out and note the time for each.
<syntaxhighlight lang="perl">use strict;
use warnings;
use feature 'bitwise';
findinterval( $_, 4, 7 ) for 1 .. 20;
Line 365 ⟶ 364:
{
my ($want, $hour1, $hour2) = @_;
local $_ = (('1' |. ' ' x $hour1) x $hour2 | ('2' |. ' ' x $hour2) x $hour1) x $want;
print /(?=\d).{$want}(?=\d)/
? "To get $want minute@{[$want == 1 ? '' : 's'
]}, Start at time $-[0] and End at time $+[0]\n"
: "$want is not possible\n";
}</
{{out}}
<pre>
Line 396 ⟶ 395:
=={{header|Phix}}==
<!--<
<span style="color: #000080;font-style:italic;">-- demo\rosetta\Hourglass_puzzle.exw</span>
<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
Line 490 ⟶ 489:
<span style="color: #000000;">solve</span><span style="color: #0000FF;">({</span><span style="color: #000000;">7</span><span style="color: #0000FF;">,</span><span style="color: #000000;">11</span><span style="color: #0000FF;">},</span><span style="color: #000000;">15</span><span style="color: #0000FF;">)</span> <span style="color: #000080;font-style:italic;">-- (logo solution stops timer at t=22, this manages t=15)</span>
<span style="color: #000000;">solve</span><span style="color: #0000FF;">({</span><span style="color: #000000;">5</span><span style="color: #0000FF;">,</span><span style="color: #000000;">8</span><span style="color: #0000FF;">},</span><span style="color: #000000;">14</span><span style="color: #0000FF;">)</span> <span style="color: #000080;font-style:italic;">-- (logo solution stops timer at t=24, this manages t=19)</span>
<!--</
{{out}}
<pre>
Line 541 ⟶ 540:
There isn't much of a task description as I write this, but, here goes...
<
t4 = 0
while t4 < 10_000:
Line 560 ⟶ 559:
""")
hourglass_puzzle()</
{{out}}
Line 571 ⟶ 570:
=={{header|Raku}}==
<syntaxhighlight lang="raku"
my @hourglasses = 4, 7;
Line 602 ⟶ 601:
}
.say if .defined for @output</
{{out}}
<pre>At time t = 4 , flip hourglass 4
Line 613 ⟶ 612:
=={{header|REXX}}==
{{trans|Python}}
<
/*──────────────────────────────────── four and seven minute sandglasses. */
t4= 0
Line 637 ⟶ 636:
say "glass when the four-minute glass ends."
say
exit 0</
{{out|output|text= when using the internal default input:}}
<pre>
Line 650 ⟶ 649:
glass when the four-minute glass ends.
</pre>
=={{header|V (Vlang)}}==
{{trans|go}}
<syntaxhighlight lang="v (vlang)">import arrays {sum, min}
fn hourglass_flipper(hourglasses []int, target int) (int, []int) {
mut flippers := hourglasses.clone()
mut series := []int{}
for _ in 0..10000 {
n := min<int>(flippers) or {flippers[0]}
series << n
for i in 0..flippers.len {
flippers[i] -= n
}
for i, flipper in flippers {
if flipper == 0 {
flippers[i] = hourglasses[i]
}
}
for start := series.len - 1; start >= 0; start-- {
if sum<int>(series[start..]) or {-1} == target {
return start, series
}
}
}
return 0, []int{}
}
fn main() {
print("Flip an hourglass every time it runs out of grains, ")
println("and note the interval in time.")
hgs := [[4, 7], [5, 7, 31]]
ts := [9, 36]
for i in 0..hgs.len {
start, series := hourglass_flipper(hgs[i], ts[i])
end := series.len - 1
println("\nSeries: $series")
print("Use hourglasses from indices $start to $end (inclusive) to sum ")
println("${ts[i]} using ${hgs[i]}")
}
}</syntaxhighlight>
{{out}}
<pre>Same as Go entry</pre>
=={{header|Wren}}==
{{trans|Julia}}
{{libheader|Wren-math}}
<
var hourglassFlipper = Fn.new { |hourglasses, target|
Line 688 ⟶ 731:
System.write("Use hourglasses from indices %(start) to %(end) (inclusive) to sum ")
System.print("%(target) using %(hourglasses)")
}</
{{out}}
| |||