Hourglass puzzle: Difference between revisions
m
→{{header|Wren}}: Minor tidy
(→{{header|Vlang}}: Rename "Vlang" in "V (Vlang)") |
m (→{{header|Wren}}: Minor tidy) |
||
(One intermediate revision by one other user not shown) | |||
Line 355:
=={{header|Perl}}==
Flip each hourglass when it runs out and note the time for each.
<syntaxhighlight lang="perl">
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'
Line 698 ⟶ 697:
{{trans|Julia}}
{{libheader|Wren-math}}
<syntaxhighlight lang="
var hourglassFlipper = Fn.new { |hourglasses, target|
|