結果
問題 |
No.1724 [Cherry 3rd Tune A] Lápiz labial de Sonia
|
ユーザー |
![]() |
提出日時 | 2021-10-29 22:42:56 |
言語 | Perl (5.40.0) |
結果 |
TLE
(最新)
AC
(最初)
|
実行時間 | - |
コード長 | 155 bytes |
コンパイル時間 | 528 ms |
コンパイル使用メモリ | 7,072 KB |
実行使用メモリ | 86,216 KB |
最終ジャッジ日時 | 2024-10-07 12:25:23 |
合計ジャッジ時間 | 25,047 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 27 TLE * 2 -- * 9 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
($n,$k)=glob<>; @x=glob<>; @y=glob<>; @x=map$x[$_]-$y[$_],@j=0..$n-1; @i=sort{$x[$a]<=>$x[$b]}@j; $r=A x$n.$/; substr$r,$_,1,B for@i[0..$n-$k-1]; print$r;