Skip to content

Instantly share code, notes, and snippets.

@youz
Last active August 29, 2015 14:02
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save youz/7d1c1596018d33e07689 to your computer and use it in GitHub Desktop.
Save youz/7d1c1596018d33e07689 to your computer and use it in GitHub Desktop.
bonjovi in CommonLisp
;;; https://twitter.com/yagiyyyy/status/473405016540053504/photo/1
(defun bonjovi ()
(loop
:with buf := #(t t t)
:for n :from 0
:for w := (format nil "~A~A" #0=(nth (random 4) '("ジョ" "" "ボ" "ヴィ")) #0#)
:until (equalp buf #("ジョン" "ボン" "ジョヴィ"))
:do (format t "~[~:;~]~A" n w)
(shiftf (aref buf 0) (aref buf 1) (aref buf 2) w)
:finally (format t "~%~%~D bon jovi~P~%
_人人人人人人人人人人人人人人_
> You Give Love A Bad Name <
 ̄Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y ̄~%" n n)))
(bonjovi)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment