結果
問題 | No.191 供託金 |
ユーザー | Rin |
提出日時 | 2015-09-04 22:06:35 |
言語 | Scheme (Gauche-0.9.15) |
結果 |
AC
|
実行時間 | 25 ms / 5,000 ms |
コード長 | 672 bytes |
コンパイル時間 | 93 ms |
コンパイル使用メモリ | 6,948 KB |
実行使用メモリ | 16,000 KB |
最終ジャッジ日時 | 2024-11-16 21:36:04 |
合計ジャッジ時間 | 1,502 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 23 |
ソースコード
(define (System.out.println x) (begin (display x) (newline) ) ) (let ( (N (read)) ) (let loop( (i 1) (foo (list (read))) (sum 0) ) (if (< i N) (loop (+ i 1) (cons (read) foo) (+ sum (car foo))) (let loop2( (j 0) (bar (/ (+ sum (car foo)) 10)) (Cnt 0) ) (if (< j N) (if (<= (list-ref foo j) bar) (loop2 (+ j 1) bar (+ Cnt 1)) (loop2 (+ j 1) bar Cnt) ) (System.out.println (* Cnt 30)) ) ) ) ) )