へやわけが好きだ

以前書いた｢ペンシルボックス｣=>｢へやわけアプレットURL｣変換スクリプトです。awkというプログラム言語です。別段特殊なことはしてません、多分。また、自分で使うことが前提なので、エラー処理とか考えてません。ぼくが想定していないデータを食わせたら変な結果が出るかもですが、その辺ご容赦を。

#heyawake penpaBOX to apletURL

{
	if(NR==1){
		tatemax = $1;
	}
	else if(NR==2){
		yokomax = $1;
	}
	else if(NR==3){
		k=$1;
	}
	else if(NR<k+4){
		tate = $3-$1+1;
		yoko = $4-$2+1;
		if(NF==4)
			mondai[$1,$2] = "/" yoko "x" tate;
		else if(NF==5)
			mondai[$1,$2] = "/" $5 "in" yoko "x" tate;
	}
}

END{
	printf( "http://www.geocities.jp/heyawake/?problem=" yokomax "x" tatemax) >> "url.txt";
	for(i=0;i<tatemax;i++)
		for(j=0;j<yokomax;j++){
			printf(mondai[i,j])>>"url.txt";
		}

	printf("\n\n")>>"url.txt";
}