Tagged as Linux, LISP, Personal, \"Real World\"
Written on 2008-09-29 17:49:22
Life: I have a part-time job interview tomorrow and I've gotten by so far through contract work. I'm also really enjoying not having a car. I've picked up some new tunes and am in guitar fingerpicking mode. I should learn how to myself, really. For now though I'm just listening to Kaki King and Andy McKee. Oh, and Calexico too. They're awesome. Moving on...
(dotimes (x 30)
(dotimes (y 30)
(format t "~3d" (* (1+ x) (1+ y))))
(format t "~%"))
(do ((n 0 (1+ n))
(cur 0 next)
(next 1 (+ cur next)))
((= 10 n) cur))
(reverse '(The first prints out a multiplication table up to 30x30. The second computes the 11th fibonacci number.))
(defmacro do-primes ((binder lbound ubound) &rest expr)
`(do ((,binder (next-prime ,lbound) (next-prime (1+ ,binder))))
((> ,binder ,ubound))
,@expr))