Convert seconds to compound duration: Difference between revisions
m
→{{header|Mathematica}}/{{header|Wolfram Language}}
Line 2,348:
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>compoundDuration[x_Integer] :=
StringJoin @@ (Riffle[
ToString /@ ((({Floor[x/604800],
Line 2,360 ⟶ 2,359:
Grid[Table[{n, "secs =",
compoundDuration[n]}, {n, {7259, 86400, 6000000}}],
Alignment -> {Left, Baseline}]</lang>
{{out}}
<pre>7259 secs = 2 hr, 59 sec▼
▲7259 secs = 2 hr, 59 sec
86400 secs = 1 d,
6000000 secs = 9 wk, 6 d, 10 hr, 40 min,
=={{header|Nim}}==
|