On Tuesday, 10 January 2023 at 01:22:33 UTC, H. S. Teoh wrote:
...
Here's a challenge. Given an input year, for example, "2023",
write a program that outputs (for the corresponding year):
...
The layout isn't like yours, I wrote this using a D Online
compiler and I'm very sleepy right now:
import std.stdio, std.string, std.conv, std.datetime;
bool validDate(int y,int m,int d){
try{
Date(y,m,d);
return true;
}catch(Exception e){}
return false;
}
void main(){
int[string] dow;
int i, y = 2023, m = 1, d = 1;
for(i=1;i<8;++i){
dow[to!string(Date(1899,1,i).dayOfWeek)]=i;
}
for(m=1;m<13;++m){
write("\n\n\t\t",capitalize(to!string(Date(y,m,1).month)),"\n");
for(i=1;i<8;++i){
write(to!string(Date(1899,1,i).dayOfWeek)[0..2], " ");
}
writeln();
int c = dow[to!string(Date(y,m,1).dayOfWeek)];
for(i=1;i<c;++i){ write(" "); }
for(d=0;d<32;++d){
if(c%8==0){c=1;writeln();}
++c;
if(validDate(y,m,d+1)){
writef("%2s ",d+1);
}
}
}
}
Prints:
Jan
su mo tu we th fr sa
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
Feb
su mo tu we th fr sa
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
Mar
su mo tu we th fr sa
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
Apr
su mo tu we th fr sa
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
May
su mo tu we th fr sa
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
Jun
su mo tu we th fr sa
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
Jul
su mo tu we th fr sa
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
Aug
su mo tu we th fr sa
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
Sep
su mo tu we th fr sa
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
Oct
su mo tu we th fr sa
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
Nov
su mo tu we th fr sa
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
Dec
su mo tu we th fr sa
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
Matheus.
