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