Convert seconds to compound duration: Difference between revisions
Convert seconds to compound duration (view source)
Revision as of 05:11, 24 January 2017
, 7 years agoAdd actual function calls
(Add Common Lisp implementation.entation.) |
m (Add actual function calls) |
||
Line 958:
(unless (zerop days) (push (format nil "~D d" days) chunks))
(unless (zerop weeks) (push (format nil "~D wk" weeks) chunks))
(format t "~{~A~^, ~}~%" chunks)))))))
(seconds->duration 7259)
(seconds->duration 86400)
(seconds->duration 6000000)
</lang>
{{out}}
<pre>
| |||