Day of the week: Difference between revisions
Content added Content deleted
m (→{{header|RPL}}: add HP-48+ version) |
|||
Line 3,176: | Line 3,176: | ||
2011 2016 2022 2033 2039 2044 2050 2061 2067 2072 2078 2089 2095 2101 2107 2112 2118 |
2011 2016 2022 2033 2039 2044 2050 2061 2067 2072 2078 2089 2095 2101 2107 2112 2118 |
||
</syntaxhighlight> |
</syntaxhighlight> |
||
=={{header|Koka}}== |
|||
<syntaxhighlight lang="koka"> |
|||
import std/time/date |
|||
import std/time/calendar |
|||
import std/time/instant |
|||
import std/time/utc |
|||
fun main() |
|||
for(2008, 2121) fn(year) |
|||
val i = instant(year, 12, 25, cal=cal-gregorian) |
|||
val dow = (i.days+6)%7 // plus 6 since 2000-01-01 epoch was a Saturday |
|||
match dow.weekday |
|||
Sun -> println(year.show) |
|||
_ -> () |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
2011 |
|||
2016 |
|||
2022 |
|||
2033 |
|||
2039 |
|||
2044 |
|||
2050 |
|||
2061 |
|||
2067 |
|||
2072 |
|||
2078 |
|||
2089 |
|||
2095 |
|||
2101 |
|||
2107 |
|||
2112 |
|||
2118 |
|||
</pre> |
|||
=={{header|Kotlin}}== |
=={{header|Kotlin}}== |