9 lines
230 B
Raku
9 lines
230 B
Raku
|
#!/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
|
||
|
}
|