結果

問題 No.191 供託金
ユーザー RinRin
提出日時 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
権限があれば一括ダウンロードができます

ソースコード

diff #
プレゼンテーションモードにする

(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))
)
)
)
)
)
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0