[kansaipm] 第２回無事終了 !

[Tomohiro FUKUHARA]

福原です．昨日はお世話になりました．

From: Nagayoshi_Michio <cudjo at venus.dti.ne.jp>

> ＣＵＤＪＯ＠京都です。
> 
> あれ、わたしが以前に考えていた日付計算関係のロジックを
> 別のマシン上にCソースをつらつらっと書いたのを、同時通訳で
> Perlにしてもらっていたんです。
> ＃あの時のソース、お持ちの方いませんか?
> ＃出来たら見せていただきたいんですが。

ということなので，添付します．

「世界のパールショウ」楽しみです．
昨日のＣＵＤＪＯさんと三嶋さんのcoding を見ていて，
あーだこーだいいながらcoding という所が非常に新鮮でした．

会場からの意見を取り入れながらのcoding というのも
面白いですね．あるいは各自，計算機をHub でつなぎ，
講師のcode に会場でpatch を作る，というのも面白いかも．

> > >今日参加された方は参加してどう思いましたか？
> > とりあえず、他のMLなどへの開催告知がもう少し早かったら
> > よかったなぁと思います。
> 
> 1週間でもちょっちキツいっすね。2週間くらい前から告知して
> いただけると予定が組みやすいというか、日時と場所が決まったら
> ソッコーで告知でいいんじゃないでしょうか。

ごめんなさい．次回からもっと早くアナウンスします．

(自分にとっての)今回の反省点ですが，スタッフ側の決定事項の
確認も必要だなあと感じました．今度から開始時刻に注意しなくちゃ．
---
Tomohiro Fukuhara (kroonyao at mail.goo.ne.jp)
-------------- next part --------------
long  from_1_1_1( int year )
{
    long   ans;

    year--;

    ans = 365L* year
        + year / 4L
	- year / 100L
	    + year / 400L;

    return ans
}

long Today( int yera, int month, int day )
{
    long  ans;
    ans = from_1_1_1(year);
    ans += juldate(year, month, day);

    return ( ans );
}


int   julDate( int year, int month, int day )
{
    int  maxTbl[] = {0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};

    int   i;
    int   ans;

    ans = day;

    for ( i = 0; i < month; i++ )
    {
	day += maxTbl[i];
    }

    if ( month > 2 &&  leapYear( year) )
    {
	day++;
    }

    return day
}

int leapYear ( int year)
{
    if( yesr % 4 )
    {
	return 0;
    } 

 
}

int  weekday ( int y, int m, int d )
{
    long   jd;

    jd = from_1_1_1( y, m, d );

    return ( jd % 7 );
}

int   dispMonth ( int y, int m )
{
    int   d, r = 0, c, maxD  ;


    if ( m == 1  ||  m == 3  ||  m == 5  ||  m == 7  ||  m == 8  || m == 10 ||  m == 12 )
    {
	maxD = 31;
    } else if ( m == 4  ||  m == 6  ||  m == 9 || m == 11 )
    {
	maxD = 30;
    } else {
	if ( leap( y ) )
	{
	    maxD = 29;
	} else{
	    maxD = 28;
	}
    }

    c = weekday( y, m, 1 );

    for ( d = 1; d <= maxD; d++, c++ )
    {
	if ( c >= 7 )
	{
	    r++;
	    c = 0;
	}

	// row r column c   D
	
    }