Next: Compilation Functions, Previous: Byte Compilation, Up: Byte Compilation [Contents][Index]
¥Ð¥¤¥È¥³¥ó¥Ñ¥¤¥ë¤·¤¿´Ø¿ô¤Ï¡¢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ÉäǤ·¤¿¡£ ¤³¤Î·ë²Ì¤ÏÂåɽŪ¤Ê¤Î¤â¤Ç¤¹¤¬¡¢¼ÂºÝ¤Î·ë²Ì¤ÏÂ礤¯ÊÑÆ°¤·¤Þ¤¹¡£