Data commit

Task/Convert-seconds-to-compound-duration/CLU/convert-seconds-to-compound-duration.clu

@@ -0,0 +1,28 @@
+duration = proc (s: int) returns (string)
+    own units: array[string] := array[string]$["wk","d","hr","min","sec"]
+    own sizes: array[int] := array[int]$[2:7,24,60,60]
+
+    d: string := ""
+    r: int
+    for i: int in int$from_to_by(5,1,-1) do
+        begin
+            r := s // sizes[i]
+            s := s / sizes[i]
+        end except when bounds:
+            r := s
+        end
+        if r ~= 0 then
+            d := ", " || int$unparse(r) || " " || units[i] || d
+        end
+    end
+    return(string$rest(d,3))
+end duration
+
+start_up = proc ()
+    po: stream := stream$primary_output()
+    tests: array[int] := array[int]$[7259,86400,6000000]
+
+    for test: int in array[int]$elements(tests) do
+        stream$putl(po, int$unparse(test) || " => " || duration(test))
+    end
+end start_up