結果
問題 | No.488 四角関係 |
ユーザー |
![]() |
提出日時 | 2017-02-25 01:52:55 |
言語 | Perl (5.40.0) |
結果 |
CE
(最新)
AC
(最初)
|
実行時間 | - |
コード長 | 237 bytes |
コンパイル時間 | 48 ms |
コンパイル使用メモリ | 6,816 KB |
最終ジャッジ日時 | 2024-11-14 19:58:59 |
合計ジャッジ時間 | 395 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge2 |
(要ログイン)
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。(リジャッジ後のコンパイルエラーは公開されます)
ただし、clay言語の場合は開発者のデバッグのため、公開されます。
ただし、clay言語の場合は開発者のデバッグのため、公開されます。
コンパイルメッセージ
Reversed /= operator at Main.pl line 1. Unknown regexp modifier "/f" at Main.pl line 1, at end of line Unknown regexp modifier "/r" at Main.pl line 1, at end of line syntax error at Main.pl line 1, near "<>" Main.pl had compilation errors.
ソースコード
<>;$_[$`][$']=$_[$'][$`]=/ /for<>;for$i(@a=0..49){for$j(@a){for$k(@a){for$l(@a){$x+=$i!=$j&&$i!=$k&&$i!=$l&&$j!=$k&&$j!=$l&&$k!=$l&&$_[$i][$j]&&$_[$j][$k]&&$_[$k][$l]&&$_[$l][$i]&&!$_[$i][$k]&&!$_[$j][$l]}}}}print$x/8