DouKaku?beta

Comment detail

n日後を返す関数を返す関数 (Nested Flatten)
format-universal-timeはsbcl依存。それ以外はportableかと。 
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
(defun n-days-later (n)
  (lambda (time) (+ time (* n 3600 24))))

(let ((now (get-universal-time)))
  (list
   (sb-int:format-universal-time nil now)
   (n-days-later 3)
   (sb-int:format-universal-time nil (funcall (n-days-later 3) now))))
;; => ("Saturday, July 21, 2007 08:02:31 PM [-9]"
;;     #<CLOSURE (LAMBDA #) {C53793D}>
;;     "Tuesday, July 24, 2007 08:02:31 PM [-9]")

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]