leque #7003(2008/08/06 10:32 GMT) [ Scheme ] Rating1/1=1.00
素直な枝刈りとして毎月の13日だけを調べています。
;; Eager comprehension の終点が exclusive なのでハマったのは秘密。
1 2 3 4 5 6 7 8 9 10
(use srfi-1) (use srfi-19) (use srfi-42) (let ((ds (filter (compose (cut = <> 5) date-week-day) (drop (list-ec (: y 2008 2014) (: m 1 13) (make-date 0 0 0 0 13 m y 0)) 7)))) (for-each (compose print (cut date->string <> "~1")) ds) (print (length ds)))
Rating1/1=1.00-0+
[ reply ]
leque
#7003()
[
Scheme
]
Rating1/1=1.00
素直な枝刈りとして毎月の13日だけを調べています。
;; Eager comprehension の終点が exclusive なのでハマったのは秘密。
Rating1/1=1.00-0+
[ reply ]