TSabc 発言

廣島です．

解1は次のようにした方がもっと素直でした．; しかも漢字を間違えているし...

;;; 解1
;;; 名前付き let による終端再帰を使った素直な解
(display
 (let loop ((total 0))
   (let ((num (read)))
     (if (zero? num)
	 total
	 (loop (+ total num))))))

-----------------------------
	廣島 勉
	(tsutomu@...)