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:

duration(n){
	sec:=1, min:=60*sec, hr:=60*min, day:=24*hr, wk:=7*day
	w	:=n//wk		, n:=Mod(n,wk)
	d	:=n//day	, n:=Mod(n,day)
	h	:=n//hr		, n:=Mod(n,hr)
	m	:=n//min	, n:=Mod(n,min)
	s	:=n
	return trim((w?w " wk, ":"") (d?d " d, ":"") (h?h " hr, ":"") (m?m " min, ":"") (s?s " sec":""),", ")
}


data=
(
7259
86400
6000000
)

loop, parse, data, `n, `r
	res .= A_LoopField "`t: " duration(A_LoopField) "`n"
MsgBox % res 
return