結果
問題 |
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)