結果
問題 |
No.615 集合に分けよう
|
ユーザー |
![]() |
提出日時 | 2018-05-30 02:06:09 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 81 ms / 2,000 ms |
コード長 | 376 bytes |
コンパイル時間 | 34 ms |
コンパイル使用メモリ | 5,120 KB |
実行使用メモリ | 13,780 KB |
最終ジャッジ日時 | 2024-06-30 08:09:32 |
合計ジャッジ時間 | 2,475 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge1 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 5 |
other | AC * 26 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
#!/usr/bin/env perl my ($n, $k) = split / /, <>; chomp $k; my @array = split / /, <>; chomp $array[$n - 1]; @array = sort { $a <=> $b } @array; my @narray; for (my $i = 0; $i < $n - 1; $i++) { push @narray, $array[$i + 1] - $array[$i]; } @narray = sort { $a <=> $b } @narray; my $res = 0; for (my $i = 0; $i < $n - $k; $i++) { $res += $narray[$i]; } print $res, "\n";