Anonymous user
Convert seconds to compound duration: Difference between revisions
Add Forth solution
(Add Forth solution) |
|||
Line 1,347:
86400 = 1 day
6000000 = 9 wk, 6 day, 10 hr, 40 min</pre>
=={{header|Forth}}==
{{works with|Gforth|0.7.3}}
<lang Forth>CREATE C 0 ,
: ., C @ IF ." , " THEN 1 C ! ;
: .TIME ( n --)
[ 60 60 24 7 * * * ]L /MOD ?DUP-IF ., . ." wk" THEN
[ 60 60 24 * * ]L /MOD ?DUP-IF ., . ." d" THEN
[ 60 60 * ]L /MOD ?DUP-IF ., . ." hr" THEN
[ 60 ]L /MOD ?DUP-IF ., . ." min" THEN
?DUP-IF ., . ." sec" THEN 0 C ! ;</lang>
{{out}}
<pre>2 hr, 59 sec
1 d
9 wk, 6 d, 10 hr, 40 min</pre>
=={{header|Fortran}}==
| |||