Convert seconds to compound duration: Difference between revisions
Convert seconds to compound duration (view source)
Revision as of 09:06, 20 January 2021
, 3 years agoAdded Quackery.
No edit summary |
m (Added Quackery.) |
||
Line 3,061:
86400 -> '1 d'
6000000 -> '9 wk, 6 d, 10 hr, 40 min'</pre>
=={{header|Quackery}}==
<lang Quackery> [ ' [ 60 60 24 7 ]
witheach [ /mod swap ]
$ ""
' [ $ " wk, " $ " d, "
$ " hr, " $ " min, "
$ " sec, " ]
witheach
[ do rot dup iff
[ number$
swap join join ]
else 2drop ]
-2 split drop ] is duration$ ( n--> $ )
' [ 7259 86400 6000000 ]
witheach
[ dup echo
say " seconds is "
duration$ echo$
say "." cr ]</lang>
{{Out}}
<pre>7259 seconds is 2 hr, 59 sec.
86400 seconds is 1 d.
6000000 seconds is 9 wk, 6 d, 10 hr, 40 min.
</pre>
=={{header|Racket}}==
| |||