結果

問題 No.81 すべて足すだけの簡単なお仕事です。
コンテスト
ユーザー ldsyb
提出日時 2016-05-19 13:10:52
言語 Scheme
(Gauche-0.9.15)
コンパイル:
true
実行:
gosh _filename_
結果
RE  
実行時間 -
コード長 171 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 3 ms
コンパイル使用メモリ 6,528 KB
実行使用メモリ 26,112 KB
最終ジャッジ日時 2026-09-10 23:47:33
合計ジャッジ時間 3,886 ms
ジャッジサーバーID
（参考情報） 		judge1_1 / judge2_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other RE * 30
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

(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