結果
| 問題 | No.683 Two Operations No.3 |
| ユーザー |
 %20
|
| 提出日時 | 2018-05-12 01:01:14 |
| 言語 | Perl (5.38.2) |
| 結果 |
MLE
|
| 実行時間 | - |
| コード長 | 112 bytes |
| コンパイル時間 | 233 ms |
| コンパイル使用メモリ | 5,324 KB |
| 実行使用メモリ | 815,780 KB |
| 最終ジャッジ日時 | 2023-09-10 18:14:29 |
| 合計ジャッジ時間 | 3,016 ms |
|
ジャッジサーバーID （参考情報） |
judge15 / judge13 |
（要ログイン）
テストケース
テストケース表示| 入力 | 結果 | 実行時間 実行使用メモリ |
|---|---|---|
| testcase_00 | AC | 6 ms
5,068 KB |
| testcase_01 | AC | 6 ms
5,332 KB |
| testcase_02 | AC | 6 ms
5,160 KB |
| testcase_03 | AC | 6 ms
5,140 KB |
| testcase_04 | MLE | - |
| testcase_05 | -- | - |
| testcase_06 | -- | - |
| testcase_07 | -- | - |
| testcase_08 | -- | - |
| testcase_09 | -- | - |
| testcase_10 | -- | - |
| testcase_11 | -- | - |
| testcase_12 | -- | - |
| testcase_13 | -- | - |
| testcase_14 | -- | - |
| testcase_15 | -- | - |
コンパイルメッセージ
Possible precedence problem on bitwise | operator at Main.pl line 3. Main.pl syntax OK
ソースコード
sub f{
my($a,$b)=@_;
$a<0|$b<0|$a=~/\./|$b=~/\./?0:$a+$b?f($a-1,$b/2)|f($a/2,$b-1):1
}
print f(glob<>)?Yes:No