結果

問題 No.1974 2x2 Flipper
ユーザー tails
提出日時 2022-06-10 22:15:54
言語 Perl
(5.40.0)
結果
AC  
実行時間 311 ms / 2,000 ms
コード長 544 bytes
コンパイル時間 556 ms
コンパイル使用メモリ 7,068 KB
実行使用メモリ 7,936 KB
最終ジャッジ日時 2024-09-21 07:07:33
合計ジャッジ時間 3,216 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 1
other AC * 25
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

($h,$w)=glob<>;
if($h&1){
	if($w&1){
		if($h>$w){
			print $h*($w-1),$/;
			for$y(1..$h){
				for$x(1..$w){
					print $x==($y<$w?$y:$w)?0:1;
					print $x==$w?$/:$";
				}
			}
		}else{
			print +($h-1)*$w,$/;
			for$y(1..$h){
				for$x(1..$w){
					print $y==($x<$h?$x:$h)?0:1;
					print $x==$w?$/:$";
				}
			}
		}
	}else{
		print +($h-1)*$w,$/;
		print "@{[(1)x$w]}\n"x($h-1);
		print "@{[(0)x$w]}\n";
	}
}else{
	if($w&1){
		print $h*($w-1),$/;
		print "@{[(1)x($w-1),0]}\n"x$h;
	}else{
		print $h*$w,$/;
		print "@{[(1)x$w]}\n"x$h;
	}
}
0