結果
問題 |
No.5 数字のブロック
|
ユーザー |
![]() |
提出日時 | 2022-10-30 22:47:08 |
言語 | Scheme (Gauche-0.9.15) |
結果 |
AC
|
実行時間 | 47 ms / 5,000 ms |
コード長 | 411 bytes |
コンパイル時間 | 78 ms |
コンパイル使用メモリ | 6,816 KB |
実行使用メモリ | 17,792 KB |
最終ジャッジ日時 | 2024-07-07 14:04:08 |
合計ジャッジ時間 | 2,478 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 34 |
ソースコード
#!/usr/bin/env gosh (define (how-meny l ws) (let loop ([i 1][sum (car ws)][wr (cdr ws)]) (if (> sum l) (- i 1) (if (null? wr) i (loop (+ i 1) (+ sum (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)