結果
問題 |
No.337 P versus NP
|
ユーザー |
![]() |
提出日時 | 2016-02-29 15:53:06 |
言語 | Perl (5.40.0) |
結果 |
WA
|
実行時間 | - |
コード長 | 142 bytes |
コンパイル時間 | 111 ms |
コンパイル使用メモリ | 6,816 KB |
実行使用メモリ | 6,948 KB |
最終ジャッジ日時 | 2024-09-24 12:46:42 |
合計ジャッジ時間 | 806 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge1 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 12 WA * 11 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
my $input_lines = <STDIN>; chomp($input_lines); my ($p,$n) = split(/ / , $input_lines); if($p == $p * $n){ print"=\n"; }else{ print"!=\n"; };