読者です 読者をやめる 読者になる 読者になる

Let's write β

趣味で書いたこととか、RustとLispが好き

実行時間の計測レポート

Lisp
(defmacro report-to-file (filename repeat &body form)
  (let ((report-out (gensym))
        (idx (gensym)))
    `(with-open-file (,report-out ,filename :direction :output)
       (let ((*trace-output* ,report-out))
         (loop for ,idx from 1 upto ,repeat
               do  
               (format ,report-out "==== PROF ~A ====~%" ,idx)
               (time ,@form))))))

僕が働いているAzit.incでは一緒に働けるエンジニアを募集しています!
採用情報 — 株式会社アジット|Azit Inc.