Anonymous user
Convert seconds to compound duration: Difference between revisions
Convert seconds to compound duration (view source)
Revision as of 15:25, 12 August 2017
, 6 years agono edit summary
(→{{header|Haskell}}: Slight general disaggregation for readability) |
No edit summary |
||
Line 1,825:
86400: 1 d
6000000: 9 wk, 6 d, 10 hr, 40 min</lang>
=={{header|Julia}}==
<lang julia># v0.6.0
function duration(sec::Integer)::String
t = Array{Int}([])
for dm in (60, 60, 24, 7)
sec, m = divrem(sec, dm)
unshift!(t, m)
end
unshift!(t, sec)
return join(["$num$unit" for (num, unit) in zip(t, ["w", "d", "h", "m", "s"]) if num > 0], ", ")
end
@show duration(7259)
@show duration(86400)
@show duration(6000000)
</lang>
{{out}}
<pre>
duration(7259) = "2h, 59s"
duration(86400) = "1d"
duration(6000000) = "9w, 6d, 10h, 40m"
</pre>
=={{header|Kotlin}}==
|