結果
問題 | No.1837 Same but Different |
ユーザー |
![]() |
提出日時 | 2022-05-12 21:25:08 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 5 ms / 2,000 ms |
コード長 | 129 bytes |
コンパイル時間 | 77 ms |
コンパイル使用メモリ | 5,120 KB |
実行使用メモリ | 5,888 KB |
最終ジャッジ日時 | 2024-07-20 15:46:14 |
合計ジャッジ時間 | 1,537 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge3 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 1 |
other | AC * 23 |
コンパイルメッセージ
Scalar value @a[-1] better written as $a[-1] at Main.pl line 3. Scalar value @a[-2] better written as $a[-2] at Main.pl line 4. Main.pl syntax OK
ソースコード
$n=<>; @a=(0,map($_*3+6+($_*3>$n*2)*3,2..$n)); @a[-1]+=(9,7,4)[$n%3]; @a[-2]+=(0,0,4)[$n%3]; @b=map($_*3+7,1..$n); print"@a @b";