Convert seconds to compound duration: Difference between revisions

=={{header|RPL}}==

≪ MOD LAST / FLOOR ≫ '<span style="color:blue">'''DIVMOD'''</span>' STO

≪ {" wk" " d" " hr" " min" " sec" } → unit

≪ 60 <span style="color:blue">'''DIVMOD'''</span> 60 <span style="color:blue">'''DIVMOD'''</span> 24 <span style="color:blue">'''DIVMOD'''</span> 7 <span style="color:blue">'''DIVMOD'''</span>

1 SF ""

1 unit SIZE '''FOR''' j

'''IF''' SWAP '''THEN'''

LAST →STR unit j GET +

'''IF''' 1 FC?C '''THEN''' ", " SWAP + '''END'''

+ '''END'''

'''NEXT'''

≫ ≫ '<span style="color:blue">'''→CDUR'''</span>' STO

7259 <span style="color:blue">'''→CDUR'''</span>

86400 <span style="color:blue">'''→CDUR'''</span>

6000000 <span style="color:blue">'''→CDUR'''</span>

10! <span style="color:blue">'''→CDUR'''</span>

{{out}}x

<pre>

4: "2 hr, 59 sec"

3: "1 d"

2: "9 wk, 6 d, 10 hr, 40 min"

1: "6 wk"

</pre>