Plaster
New
List
Login
common-lisp
default
anonymous
2022.09.12 23:47:05
(let ((vars '(second minute hour day month year weekday)) start-time end-time) (setf start-time (get-universal-time)) (loop for i from 1 to 10 do (sleep (random 1.3))) (setf end-time (get-universal-time)) (progv vars (multiple-value-list (decode-universal-time (- end-time start-time))) (loop :for v :in vars :do (format t "~:(~s~)~10t: ~s~%" v (symbol-value v)))))
Raw
Annotate
Repaste
Edit