結果
問題 | No.5 数字のブロック |
ユーザー |
![]() |
提出日時 | 2022-10-30 19:09:55 |
言語 | Scheme (Gauche-0.9.15) |
結果 |
RE
|
実行時間 | - |
コード長 | 400 bytes |
コンパイル時間 | 112 ms |
コンパイル使用メモリ | 6,692 KB |
実行使用メモリ | 17,792 KB |
最終ジャッジ日時 | 2024-07-07 11:13:12 |
合計ジャッジ時間 | 2,278 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 24 RE * 10 |
ソースコード
#!/usr/bin/env gosh(define (how-meny l ws)(let loop ([i 0][sum 0][w (car ws)][wr (cdr ws)])(if (> (+ sum w) l) i(loop (+ i 1) (+ sum w) (car wr) (cdr wr)))))(define (main _)(let* ([l (read)])(read)(read-char)(let ([ws (sort(map (^x (string->number x))(string-split (read-line) " ")))])(display (how-meny l ws))))(newline)0)