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

まだ Fortran が出ていない、と思ったら、またタッチの差で先を越されました。

Fortran版

gfortran なので、Fortran95 になるんですかね。Fortran は20年以上ぶり。今は前を空ける必要もないし、小文字が使えるし、print も使えるみたいだけど、ここは write でしょ。
program cal implicit none character*10 tmp(3) integer date_time(8) integer days(12) data days/31,28,31,30,31,30,31,31,30,31,30,31/ integer y, m, d integer fd integer i character s1, s3*3 s1 = " " s3 = " " ! get info of today call date_and_time(tmp(1), tmp(2), tmp(3), date_time) y = date_time(1) m = date_time(2) d = date_time(3) ! check leap year if( ((mod(y,4)==0) .and. (.not.(mod(y,100)==0))) .or. (mod(y,400)==0) ) then days(1) = days(1) + 1; end if if( m<=2 ) then y = y -1 m = m + 12 end if ! get day of the first day fd = mod((y+(y/4)-(y/100)+(y/400)+(13*m+8)/5+1),7) m = mod(m,12) ! padding do i=1, fd write (*,'(A3)', advance='no') s3 end do ! output date do i=1 , days(m) if( mod(i+fd,7)==0 .or. i==days(m) ) then write (*,'(I2)') i else write (*,'(I2)', advance='no') i write (*,'(A1)', advance='no') s1 end if end do end program cal

C言語版(その5)

他の人のもので、日付を評価させて月の最終日を得る、ということをやっている方がいました。各月の日数を配列に持つ必要がないのでやってみました。
mktime は「2月30日」みたいな指定をしてもエラーにはならず、これを localtime すると、うるう年でなければ3月2日になるようです。
#include <stdio.h> #include <stdlib.h> #include <time.h> #include <string.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 char cal[7*3+1]; // a line of output char *p=NULL; // pointer for output // Get year and month t = time(NULL); lt = localtime( &t ); y = lt->tm_year + 1900; m = lt->tm_mon; // clear buffer with space memset( cal, 0x20, sizeof(cal) ); for( d=1; d<=31; d++ ){ // set date lt->tm_mon = m; lt->tm_mday = d; t = mktime( lt ); // evaluate the date // ex. 2014-02-29 becomes 2014-03-01 lt = localtime( &t ); if( lt->tm_mon == m && lt->tm_wday != -1 ){ p = &cal[0] + 3*lt->tm_wday; sprintf( p, "%2d ", d ); } // output a line if( lt->tm_wday == 6 || d == 31){ cal[21] = '\0'; fprintf( stdout, "%s\n", cal ); memset( cal, 0x20, sizeof(cal) ); } } return 0; }