Anonymous user
Find the last Sunday of each month: Difference between revisions
m
→{{header|PARI/GP}}
Line 1,765:
{
my (m = D[2], y = D[1]);
if (D[2] > 2, m++, y--; m += 13);
(1461 * y) \ 4 + (306001 * m) \ 10000 + D[3] - 694024 + 2 - y \ 100 + y \ 400
}
Line 1,786 ⟶ 1,784:
[y, m, d]
}
for (m=1, 12, a=njd([2013,m+1,0]); print(njdate(a-(a+6)%7)))</lang>
| |||