elapsed-time ( seconds -- string ) - Factor Documentation

IN: calendar.format

GENERIC: elapsed-time ( seconds -- string )

USING: calendar calendar.format ;

M: duration elapsed-time duration>seconds elapsed-time ;

USING: calendar.format kernel make math math.parser sequences
splitting ;

M: integer elapsed-time
dup 0 < [ "negative seconds" throw ] when [
{
{ 60 "s" }
{ 60 "m" }
{ 24 "h" }
{ 7 "d" }
{ 52 "w" }
{ f "y" }
} [
[ first [ /mod ] [ dup ] if* ] [ second ] bi
swap dup 0 >
[ number>string prepend , ] [ 2drop ] if
] each drop
] { } make [ "0s" ] [ reverse join-words ] if-empty ;

USING: calendar.format math ;

M: real elapsed-time >integer elapsed-time ;

USING: calendar calendar.format ;

M: timestamp elapsed-time ago elapsed-time ;