Problem Statement

Write a function or program which: This is detailed below (e.g., "2 hr, 59 sec").

Demonstrate that it passes the following three test-cases: Test CasesDetailsThe following five units should be used: However, only include quantities with non-zero values in the output (e.g., return "1 d" and not "0 wk, 1 d, 0 hr, 0 min, 0 sec"). Give larger units precedence over smaller ones as much as possible (e.g., return 2 min, 10 sec and not 1 min, 70 sec or 130 sec) Mimic the formatting shown in the test-cases (quantities sorted from largest unit to smallest and separated by comma+space; value and unit of each quantity separated by space).

Let's start with the solution:

(for Sec (7259 86400 6000000)
   (tab (-10 -30)
      Sec
      (glue ", "
         (extract
            '((N Str)
               (when (gt0 (/ Sec N))
                  (setq Sec (% Sec N))
                  (pack @ " " Str) ) )
            (604800 86400 3600 60 1)
            '("wk" "d" "hr" "min" "sec") ) ) ) )