結果
問題 | No.1311 Reverse Permutation Index |
ユーザー |
![]() |
提出日時 | 2020-12-08 12:35:50 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 4 ms / 1,500 ms |
コード長 | 205 bytes |
コンパイル時間 | 467 ms |
コンパイル使用メモリ | 7,200 KB |
実行使用メモリ | 6,944 KB |
最終ジャッジ日時 | 2024-09-17 14:34:55 |
合計ジャッジ時間 | 967 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 2 |
other | AC * 6 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
use integer;@a=(0)x20;$/=$";$n=<>;map{$r=$n%$_;$n/=$_;$_+=$_>=$r for@a[20-$_..19];$a[20-$_]=$r;}1..20;$b[$a[$_]]=$_ for 0..19;$\=$\*(20-$_)+$b[$_]-grep$_<$b[$'],@b[0..$_-//]for 0..19;print;