[Shootout-list] SBCL Harmonic Program

[Will M. Farr]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Hello,

I'm not sure if you already have this (it doesn't appear in sandbox, 
anyway), but here's a harmonic program for SBCL:


(defun sum-harmonic (n)
   (declare (fixnum n)
            (optimize (speed 3)))
   (loop for i from 1 upto n
        sum (/ 1.0d0 i) of-type double-float))

(defun main ()
   (let ((n (parse-integer (or (car (last sb-ext:*posix-argv*))
			      "1"))))
     (format t "~A~%" (sum-harmonic n))))



Enjoy,
Will
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.0 (Darwin)

iD8DBQFCNHJ7jFCrhUweU3MRAtoIAJ4rcr9RQ9QAqqPIMNYlL6h1mvZ/KQCglWrY
fiOYy8oGPvlkbD5RjxA1MR8=
=VUti
-----END PGP SIGNATURE-----