Day of the week: Difference between revisions

Line 1,231:
Utilizing Java interop
 
<syntaxhighlight lang="clojure">(import '[java.util GregorianCalendar])
(import '(java.util GregorianCalendar))
(defn yuletide [start end]
(. GregorianCalendar SUNDAY))->> (range start (inc end))))
(filter #(= (. (new GregorianCalendar %
(importfilter '#(java.util= GregorianCalendar))/SUNDAY
(. GregorianCalendar DECEMBER) 25) get (. GregorianCalendar DAY_OF_WEEK))
(.get (GregorianCalendar. % GregorianCalendar/DECEMBER 25)
(. GregorianCalendar SUNDAY)) (range start (inc end))))
GregorianCalendar/DAY_OF_WEEK)))))
 
(println (yuletide 2008 2121))
</syntaxhighlight>
 
{{out}}
<pre>(2011 2016 2022 2033 2039 2044 2050 2061 2067 2072 2078 2089 2095 2101 2107 2112 2118)</pre>
 
13

edits