Convert seconds to compound duration: Difference between revisions

 
(3 intermediate revisions by the same user not shown)
Line 2,548:
 
=={{header|langur}}==
<syntaxhighlight lang="langur">val .duration = ffn(var .sec) {
toHash([
wfw/wk d hr min sec/,
for[=[]] .dm in [7 x* 24 x* 60 x* 60, 24 x* 60 x* 60, 60 x* 60, 60] {
var_for ~= [.sec \ .partdm]
.part, .sec rem= .sec \ .dm, .sec rem .dm
_for ~= [.part]
} ~ [.sec],
)]
}
 
for .seconds in [7259, 86400, 6000000] {
val .hdur = .duration(.seconds)
write $"\.seconds:7; sec = "
writeln join ", ", for[=[]] .k of .hdur[1] {
if .hdur[2][.k] != 0: _for ~= [toString($"\.hdur[2][.k]) ~ " " ~; \.dur[1][.k];"]
}
}
885

edits