Nautical bell: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Added a Perl 6 entry) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: removed extreaneous contextualizer) |
||
Line 135: | Line 135: | ||
printf "%s%02d:%02d %9s watch, %6s Bell%s Gone: \t", "\b" x 9, $hour, $minute, |
printf "%s%02d:%02d %9s watch, %6s Bell%s Gone: \t", "\b" x 9, $hour, $minute, |
||
@watch[($hour div 4 - !?($minute + $hour % 4) + 6) % 6], |
|||
@ordinal[$bells - 1], $bells == 1 ?? '' !! 's'; |
@ordinal[$bells - 1], $bells == 1 ?? '' !! 's'; |
||