結果

問題 No.5 数字のブロック
ユーザー neko_the_shadowneko_the_shadow
提出日時 2016-08-20 00:09:53
言語 Raku
(rakudo v2024.12)
結果
AC  
実行時間 436 ms / 5,000 ms
コード長 167 bytes
コンパイル時間 2,257 ms
コンパイル使用メモリ 145,196 KB
実行使用メモリ 150,488 KB
最終ジャッジ日時 2024-11-18 09:14:56
合計ジャッジ時間 17,362 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 34
権限があれば一括ダウンロードができます
コンパイルメッセージ
Syntax OK

ソースコード

diff # 

my $l = Int(get());
my $n = Int(get());
my @w = get().split(" ").map({Int($_)}).sort;

my $cnt = 0;
for @w {
    $l -= $_;
    last if $l < 0;
    $cnt++;
}

say $cnt;
0