Data commit

Task/Convert-seconds-to-compound-duration/Zkl/convert-seconds-to-compound-duration-1.zkl

@@ -0,0 +1,8 @@
+fcn toWDHMS(sec){  //-->(wk,d,h,m,s)
+   r,b:=List(),0;
+   foreach u in (T(60,60,24,7)){
+      sec,b=sec.divr(u);   // aka divmod
+      r.append(b);
+   }
+   r.append(sec).reverse()
+}

Task/Convert-seconds-to-compound-duration/Zkl/convert-seconds-to-compound-duration-2.zkl

@@ -0,0 +1,4 @@
+fcn toWDHMS(sec){  //-->(wk,d,h,m,s)
+   T(60,60,24,7).reduce(fcn(n,u,r){ n,u=n.divr(u); r.append(u); n },
+      sec,r:=List()):r.append(_).reverse();
+}

Task/Convert-seconds-to-compound-duration/Zkl/convert-seconds-to-compound-duration-3.zkl

@@ -0,0 +1,5 @@
+units:=T(" wk"," d"," hr"," min"," sec");
+foreach s in (T(7259,86400,6000000)){
+   toWDHMS(s).zip(units).pump(List,fcn([(t,u)]){ t and String(t,u) or "" })
+   .filter().concat(", ").println();
+}