Convert seconds to compound duration: Difference between revisions

Content added Content deleted
(Added Erlang)
Line 447: Line 447:
{I, []};
{I, []};
mapaccumr(F,I,L) ->
mapaccumr(F,I,L) ->
mapaccuml(F,I,lists:reverse(L)).
{Acc, Ys} = mapaccuml(F,I,lists:reverse(L)),
{Acc, lists:reverse(Ys)}.


% **************************************************
% **************************************************
Line 471: Line 472:
Output:
Output:
<pre>
<pre>
7259 seconds = 59 d, 2 min
7259 seconds = 2 hr, 59 sec
86400 seconds = 1 sec
86400 seconds = 1 d
6000000 seconds = 9 wk, 40 hr, 10 min, 6 sec
6000000 seconds = 9 wk, 6 d, 10 hr, 40 min
</pre>
</pre>