;;; -*- mode: lisp -*- ;;; $Id: sumcol.poplisp,v 1.0 2002/05/08 11:18:00 dada Exp $ ;; fastest compilation mode (declare (optimize (speed 3) (debug 0) (safety 0))) (let ((sum 0)) (declare (fixnum sum)) (do ( (line (read-line *standard-input* nil 'eof) ) ) ( (eq line 'eof) (format t "~A~%" sum) ) (incf sum (the fixnum (parse-integer line))) ) )