blob: 6b92cdf24543e4ec098556f10b0e148440028ccc (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
isleap =: monad define
divBy4 =. 0=4|y
divBy100 =. 0=100|y
divBy400 =. 0=400|y
divBy4*.divBy400+.-.divBy100
)
daysInMonth =: dyad define
feb =. (isleap x){28 29
y{31,feb, 31 30 31 30 31 31 30 31 30 31
)
nextMonthStart =: monad define
('year';'month';'day') =. y
days =. year daysInMonth month
day =. 7 | days + day
if. month = 11 do.
(year+1);0;day
else.
year;(month+1);day
end.
)
start =: nextMonthStart^:12 (1900;0;0)
generateMonths =: 13 : '(nextMonthStart^:y) start'
months =: generateMonths i. 1199
startedOnSunday =: 6 = [: > 2 { ]
result =: +/startedOnSunday"1 months
|