結果

問題 No.81 すべて足すだけの簡単なお仕事です。
コンテスト
ユーザー ldsyb
提出日時 2016-05-19 13:10:52
言語 Scheme
(Gauche-0.9.15)
結果
RE  
実行時間 -
コード長 171 bytes
コンパイル時間 108 ms
コンパイル使用メモリ 6,820 KB
実行使用メモリ 25,856 KB
最終ジャッジ日時 2024-10-06 06:05:26
合計ジャッジ時間 4,110 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other RE * 30
権限があれば一括ダウンロードができます

ソースコード

diff # 

(define ans 0)
(define n (read))
(let loop((i n))
    (set! ans (+ ans (read)))
   (if (> i 1) (loop (- i 1))))
(use slib)
(require 'printf)
(printf "%5,2f" ans)
(newline)
0