結果

問題 No.436 ccw
ユーザー tails
提出日時 2016-10-28 22:22:42
言語 Perl
(5.16.3)
結果
AC  
実行時間 9 ms
コード長 47 Byte
コンパイル時間 17 ms
使用メモリ 8,920 KB
最終ジャッジ日時 2019-10-11 11:09:56

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
00_sample01.txt AC 4 ms
6,876 KB
00_sample02.txt AC 9 ms
6,872 KB
01_hand01.txt AC 4 ms
6,872 KB
01_hand02.txt AC 3 ms
6,876 KB
01_hand03.txt AC 4 ms
6,876 KB
01_hand04.txt AC 4 ms
6,876 KB
01_hand05.txt AC 4 ms
6,876 KB
01_hand06.txt AC 4 ms
8,920 KB
01_hand07.txt AC 5 ms
6,876 KB
01_hand08.txt AC 4 ms
6,872 KB
01_hand09.txt AC 4 ms
6,876 KB
in01.txt AC 4 ms
6,876 KB
in02.txt AC 4 ms
6,872 KB
in03.txt AC 4 ms
6,872 KB
in04.txt AC 4 ms
6,872 KB
in05.txt AC 4 ms
6,872 KB
in06.txt AC 4 ms
6,876 KB
in07.txt AC 4 ms
6,876 KB
in08.txt AC 4 ms
6,872 KB
in09.txt AC 4 ms
8,920 KB
in10.txt AC 4 ms
8,916 KB
in11.txt AC 5 ms
6,872 KB
in12.txt AC 4 ms
6,872 KB
in13.txt AC 4 ms
8,920 KB
in14.txt AC 5 ms
6,876 KB
in15.txt AC 5 ms
6,872 KB
テストケース一括ダウンロード
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #
$_=<>;
$c=y/c//-1;
$w=y/w//;
print $c<$w?$c:$w;
0