Convert seconds to compound duration: Difference between revisions
Content added Content deleted
No edit summary |
m (Added Quackery.) |
||
Line 3,061: | Line 3,061: | ||
86400 -> '1 d' |
86400 -> '1 d' |
||
6000000 -> '9 wk, 6 d, 10 hr, 40 min'</pre> |
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}}== |
=={{header|Racket}}== |