Data commit

Task/Convert-seconds-to-compound-duration/Nim/convert-seconds-to-compound-duration-1.nim

@@ -0,0 +1,28 @@
+from strutils import addSep
+
+const
+  Units = [" wk", " d", " hr", " min", " sec"]
+  Quantities = [7 * 24 * 60 * 60, 24 * 60 * 60, 60 * 60, 60, 1]
+
+#---------------------------------------------------------------------------------------------------
+
+proc `$$`*(sec: int): string =
+  ## Convert a duration in seconds to a friendly string.
+
+  doAssert(sec > 0)
+
+  var duration = sec
+  var idx = 0
+  while duration != 0:
+    let q = duration div Quantities[idx]
+    if q != 0:
+      duration = duration mod Quantities[idx]
+      result.addSep(", ", 0)
+      result.add($q & Units[idx])
+    inc idx
+
+#———————————————————————————————————————————————————————————————————————————————————————————————————
+
+when isMainModule:
+  for sec in [7259, 86400, 6000000]:
+    echo sec, "s = ", $$sec

Task/Convert-seconds-to-compound-duration/Nim/convert-seconds-to-compound-duration-2.nim

@@ -0,0 +1,27 @@
+import times
+from algorithm import reversed
+from strutils import addSep
+
+const Units = [" wk", " d", " hr", " min", " sec"]
+
+#---------------------------------------------------------------------------------------------------
+
+proc `$$`*(sec: int): string =
+  ## Convert a duration in seconds to a friendly string.
+  ## Similar to `$` but with other conventions.
+
+  doAssert(sec > 0)
+
+  var duration = initDuration(seconds = sec)
+  let parts = reversed(duration.toParts[Seconds..Weeks])
+
+  for idx, part in parts:
+    if part != 0:
+      result.addSep(", ", 0)
+      result.add($part & Units[idx])
+
+#———————————————————————————————————————————————————————————————————————————————————————————————————
+
+when isMainModule:
+  for sec in [7259, 86400, 6000000]:
+    echo sec, "s = ", $$sec