カレンダープログラミングコンテスト

「プログラミング生放送」でカレンダープログラミングコンテストというのをやっていたので、やってみました。

条件は

プログラミング言語は自由（既に応募がある言語でも OK）
コードを実行した当月の日曜始まりのカレンダーを出力する
出力形式はサンプルを参考に、細かい点は自由

ということです。
汎用的に教科書的な手順としては以下のようになるでしょう。

今日の年月日を求める
うるう年を考慮して、今月の1日の曜日を求める
書式を整えて出力する。

C言語版（その1）

localtime() で年月日を取得し、Zellerの公式でその月の1日の曜日を求めます。各月の日数は配列に持っていて、うるう年についても考慮します。
#include <stdio.h> #include <stdlib.h> #include <time.h> int main( int argc, char *argv[] ) { time_t t = 0; struct tm *lt = NULL; int y = 0, m = 0, d = 0; // year, month, day of month int i = 0, c = 0; // counters int fd = 0; // day of the first day of this month int days[12] = { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }; // Get current time t = time(NULL); lt = localtime( &t ); y = lt->tm_year + 1900; // tm_year (1900--) m = lt->tm_mon; // tm_mon (0-11) d = 1; // first day of the month // Check leap year if( y % 4 == 0 && y % 100 != 0 || y % 400 == 0 ){ days[1]++; // February } // Get the day of the first day (Zeller) if( m<2 ){ y--; m+=12; } fd = (y+(y/4)-(y/100)+(y/400)+(13*(m+1)+8)/5+d)%7; // Output for( i=0; i<fd; i++){ fprintf( stdout, " " ); } for( i=1; i<=days[m]; i++){ fprintf( stdout, "%2d ", i ); if( (i+fd)%7 == 0 ){ fprintf( stdout, "\n" ); } } fprintf( stdout, "\n" ); return 0; }

C言語版（その2）

自分で計算しなくても、mktime()で日付をセットしてlocaltime()を呼べば曜日が分かります。なので、今月1日の曜日をlocaltime()で求めます。
#include <stdio.h> #include <stdlib.h> #include <time.h> int main( int argc, char *argv[] ) { time_t t = 0; struct tm *lt = NULL; int y = 0, m = 0, d = 0; // year, month, day int i = 0, c = 0; // counters int days[12] = { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }; // Get info of today t = time(NULL); lt = localtime( &t ); // Get first day of this month lt->tm_mday = 1; // tm_mday (1-31) t = mktime( lt ); lt = localtime( &t ); // leap year check y = lt->tm_year + 1900; // tm_year (1900--) if( y % 4 == 0 && y % 100 != 0 || y % 400 == 0 ){ days[1]++; // increment February days when leap year } // output for( i=0; i<lt->tm_wday; i++, c++ ){ // tm_wday (0-6) fprintf( stdout, " " ); } for( i=0; i<days[lt->tm_mon]; i++, c++ ){ // tm_mon (0-11) fprintf( stdout, "%2d ", i+1 ); if( c%7 == 6 ){ fprintf( stdout, "\n" ); } } fprintf( stdout, "\n" ); return 0; }

C言語版（その3）

ちょっと毛色の違うアプローチをしてみます。localtime()を呼んだ時点で今日の日付と曜日は分かっているわけです。なので、それを利用します。考え方としては、アナログの万年カレンダーを配列として持ち、今日の曜日がとれる場所がどこかを探します。1日の曜日は求めていません。カレンダーとしてなりたつ範囲に限定することで、一意に決まります。
#include <stdio.h> #include <stdlib.h> #include <time.h> int main( int argc, char *argv[] ) { time_t t = 0; struct tm *lt = NULL; int y = 0, m = 0, d = 0, wd = 0; // year, month day of month, day of week int i = 0, j = 0; // loop counter int r = 0; // Sunday row in the table int days[12] = { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }; int days2[6][13] = { { 0, 0, 0, 0, 0, 0, 1, 2, 3, 4, 5, 6, 7 }, { 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14 }, { 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21 }, { 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28 }, { 23, 24, 25, 26, 27, 28, 29, 30, 31, 0, 0, 0, 0 }, { 30, 31, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 } }; // Get info of today t = time(NULL); lt = localtime( &t ); y = lt->tm_year + 1900; // tm_year (1900--) m = lt->tm_mon; // tm_mon (0-11) d = lt->tm_mday; // tm_mday (1-31) wd = lt->tm_wday; // tm_wday (0-6) // Check leap year if( y % 4 == 0 && y % 100 != 0 || y % 400 == 0 ){ days[1]++; } // Find date of today from the table. // Position is ristricted by 'wd'. for( i=0; i<6; i++ ){ for( j=0; j<13; j++ ){ if( days2[i][j] == d ){ if( j>=wd && (j+6-wd)<13 ){ r=j-wd; } } } } // Cut out the table for output. for( i=0; i<6; i++ ){ for( j=r; j<r+7; j++ ){ if( days2[i][j]>0 && days2[i][j]<=days[m] ){ fprintf( stdout, "%2d ", days2[i][j] ); }else{ fprintf( stdout, " " ); } } fprintf( stdout, "\n" ); } return 0; }

C言語版（その4）

C言語版の「その3」と同じことをやっていることになりますが、今日の日付と曜日が分かっていれば、1日の曜日は分かります。それを計算で求めています。
#include <stdio.h> #include <stdlib.h> #include <time.h> int main( int argc, char *argv[] ) { time_t t = 0; struct tm *lt = NULL; int y = 0, m = 0, d = 0, wd = 0; // year, month, day of month, day of week int i = 0, c = 0; // counters int fd = 0; // day of the first day of this month int days[12] = { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }; // Get current time t = time(NULL); lt = localtime( &t ); y = lt->tm_year + 1900; // tm_year (1900--) m = lt->tm_mon; // tm_mon (0-11) d = lt->tm_mday; // tm_mday (1-31) wd = lt->tm_wday; // tm_wday (0-6) // Check leap year if( y % 4 == 0 && y % 100 != 0 || y % 400 == 0 ){ days[1]++; } // Get day of the first day of this month fd = ((wd+7)-(d%7)+1)%7; // Output for( i=0, c=0; i<fd; i++, c++ ){ fprintf( stdout, " " ); } for( i=0; i<days[m]; i++, c++ ){ fprintf( stdout, "%2d ", i+1 ); if( c%7 == 6 ){ fprintf( stdout, "\n" ); } } fprintf( stdout, "\n" ); return 0; }

Perl 版（その1）

C言語版の「その4」同じ方針での Perl版です。
#!/bin/perl @days = ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 ); ($mday,$mon,$year,$wday) = (localtime(time))[3..6]; $year += 1900; if( $year%4==0 && $year%100!=0 || $year%400==0 ){ $days[1] ++; } $fd = (($wday+7)-($mday%7)+1)%7; for( $i=0, $c=0; $i<$fd; $i++, $c++ ){ printf " "; } for( $i=0; $i<$days[$mon]; $i++, $c++ ){ printf "%2d ", $i+1; if( $c%7 == 6 ){ printf "\n"; } } printf "\n";

Perl 版（その2）

モジュールを呼んでいいなら短くできます。
#!/bin/perl use Calendar::Simple; my @cal = calendar; foreach( @cal ){ print map { $_ ? sprintf "%2d ", $_ : ' ' } @$_; print "\n"; }

Objective-C 版

練習としてやってみました。
#import <Foundation/Foundation.h> #import <Foundation/NSCalendar.h> int main(int argc, const char * argv[]) { @autoreleasepool { NSArray *days = [NSArray arrayWithObjects:@0,@31,@28,@31,@30,@31,@30,@31,@31,@30,@31,@30,@31, nil]; NSDate *today = [NSDate date]; NSCalendar *gregorian = [[NSCalendar alloc] initWithCalendarIdentifier:NSGregorianCalendar]; NSDateComponents *calendarComponents = [gregorian components:(NSYearCalendarUnit | NSMonthCalendarUnit ) fromDate:today]; NSInteger year = [calendarComponents year]; NSInteger month = [calendarComponents month]; NSInteger day = 1; NSInteger dom = 0; // Get days of the month and check leap year dom = [[days objectAtIndex:month] integerValue]; if( (year%4==0 && year%100!=0) || year%400 ==0){ if(month==2 ){ dom++; } } // Get day of the first day of this month if( month<3 ) { year--; month+=12; } NSInteger offset = (year + (year/4)-(year/100)+(year/400)+(13*(month)+8)/5+day)%7; // Output for( int i=0; i<offset; i++ ){ printf( " "); } for( int i=1; i<=dom; i++ ){ printf( "%2d ", i); if( (i+offset)%7 == 0 ){ printf( "\n" ); } } } return 0; }