Convert seconds to compound duration: Difference between revisions

no 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}}==
Anonymous user