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