thinkperl6/human-seconds.p6


1
2
3
4
5
6
7
8

#!/usr/bin/env perl6
# Exercise 4.1
sub MAIN(Int $seconds=240_000) {
    put 'Days: ', $seconds div 86400;
    put 'Hours: ', $seconds div 3600 % 24;
    put 'Minutes: ', $seconds div 60 % 60;
    put 'Seconds: ', $seconds % 60
}