Next: , Previous: Byte Compilation, Up: Byte Compilation   [Contents][Index]


15.1 ¥Ð¥¤¥È¥³¥ó¥Ñ¥¤¥ë¥³¡¼¥É¤ÎÀ­Ç½

¥Ð¥¤¥È¥³¥ó¥Ñ¥¤¥ë¤·¤¿´Ø¿ô¤Ï¡¢C¤Ç½ñ¤¤¤¿´ðËÜ´Ø¿ô¤Û¤É¸úΨ¤è¤¯¤Ï¤¢¤ê¤Þ¤»¤ó¤¬¡¢ Lisp¤Ç½ñ¤¤¤¿ÈǤè¤ê¤Ï¤è¤Û¤É®¤¯Æ°¤­¤Þ¤¹¡£ Îã¤ò¼¨¤·¤Þ¤·¤ç¤¦¡£

(defun silly-loop (n)
  "Return time before and after N iterations of a loop."
  (let ((t1 (current-time-string)))
    (while (> (setq n (1- n)) 
              0))
    (list t1 (current-time-string))))
⇒ silly-loop
(silly-loop 100000)
⇒ ("Fri Mar 18 17:25:57 1994"
    "Fri Mar 18 17:26:28 1994")  ; 31ÉÃ
(byte-compile 'silly-loop)
⇒ [¥³¥ó¥Ñ¥¤¥ë¤·¤¿¥³¡¼¥É¤Ï¾Êά]
(silly-loop 100000)
⇒ ("Fri Mar 18 17:26:52 1994"
    "Fri Mar 18 17:26:58 1994")  ; 6ÉÃ

¤³¤ÎÎã¤Ç¤Ï¡¢²ò¼á¼Â¹Ô¤¹¤ë¥³¡¼¥É¤Ç¤Ï¼Â¹Ô¤Ë31ÉÃɬÍפǤ·¤¿¤¬¡¢ ¥Ð¥¤¥È¥³¥ó¥Ñ¥¤¥ë¤·¤¿¥³¡¼¥É¤Ç¤Ï6ÉäǤ·¤¿¡£ ¤³¤Î·ë²Ì¤ÏÂåɽŪ¤Ê¤Î¤â¤Ç¤¹¤¬¡¢¼ÂºÝ¤Î·ë²Ì¤ÏÂ礭¤¯ÊÑÆ°¤·¤Þ¤¹¡£