Rosetta Code

Execute HQ9+/Common Lisp: Difference between revisions

Page Discussion

Execute HQ9+/Common Lisp (view source)

Revision as of 13:21, 11 August 2009

56 bytes removed ,  14 years ago
use case instead of cond, don't put an extra newline in quining
(category tags...)
(use case instead of cond, don't put an extra newline in quining)
Line 19:
with accumulator = 0
for c across src
do (condcase c
((char-equal c #\h) (write-line "Hello, world!" out))
((char-equal c #\q) (write-linestring src out))
((char-equal c #\+) (incf accumulator))
((char-equal c #\9)
(do ((n 99 (1- n))) ((zerop n))
(format out "~&~%~w bottle~:p of beer on the wall~%~
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/125437"