(use srfi-42) ;; yukicoder No.9008(半角空白区切り)とNo.9009(改行区切り)に対応 ;; sum-ecを使えばリストを作らないで一気に和を求められるが ;; ここでは一旦リストを作成して,後で処理する場合を想定している ;; yukicoderの環境ではprint関数が使えないようだ (define (main args) (begin (let* ((n (read)) (xs (list-ec (: i n) (read)))) (begin (display (apply + xs)) (newline)))))