結果
問題 | No.2790 Athena 3 |
ユーザー |
![]() |
提出日時 | 2024-06-21 21:43:37 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 8 ms / 2,000 ms |
コード長 | 382 bytes |
コンパイル時間 | 151 ms |
コンパイル使用メモリ | 6,812 KB |
実行使用メモリ | 6,944 KB |
最終ジャッジ日時 | 2024-06-21 21:43:38 |
合計ジャッジ時間 | 1,090 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 14 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
sub a{my($x1,$y1,$x2,$y2,$x3,$y3)=@_;$x2-=$x1;$y2-=$y1;$x3-=$x1;$y3-=$y1;abs($x2*$y3-$x3*$y2)/2;}($x1,$y1,$x2,$y2,$x3,$y3)=glob<>;for$a(0..3){for$b(0..3){for$c(0..3){$r=a$x1+($a==0)-($a==1),$y1+($a==2)-($a==3),$x2+($b==0)-($b==1),$y2+($b==2)-($b==3),$x3+($c==0)-($c==1),$y3+($c==2)-($c==3);$z=$r if $z<$r;}}}print$z;