Skip to content

Instantly share code, notes, and snippets.

@ichimal

ichimal/hello-world.lisp

Created September 6, 2013 17:20
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 ichimal/6466883 to your computer and use it in GitHub Desktop.
Save ichimal/6466883 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
hello-world.lisp
;;;; hello-world.lisp - Common Lisp
(defun get-universal-character ()
(elt (string-upcase (and)) (length (or))) )
(defun prev-code (code)
(- code (length (list code))) )
(defun succ-code (code)
(+ code (length (list code))) )
(defun five-times-prev-code (code)
(prev-code (prev-code (prev-code (prev-code (prev-code code))))) )
(defun five-times-succ-code (code)
(succ-code (succ-code (succ-code (succ-code (succ-code code))))) )
(defun ten-times-prev-code (code)
(five-times-prev-code (five-times-prev-code code)) )
(defun ten-times-succ-code (code)
(five-times-succ-code (five-times-succ-code code)) )
(defun prev-char (c)
(code-char (prev-code (char-code c))) )
(defun succ-char (c)
(code-char (succ-code (char-code c))) )
(defun five-times-prev-char (c)
(code-char (five-times-prev-code (char-code c))) )
(defun five-times-succ-char (c)
(code-char (five-times-succ-code (char-code c))) )
(defun ten-times-prev-char (c)
(code-char (ten-times-prev-code (char-code c))) )
(defun ten-times-succ-char (c)
(code-char (ten-times-succ-code (char-code c))) )
(defun hello-world ()
(princ (succ-char (ten-times-prev-char (succ-char
(princ (prev-char (five-times-prev-char
(princ (succ-char (succ-char (succ-char
(princ (prev-char (five-times-succ-char
(ten-times-succ-char (ten-times-succ-char
(princ (ten-times-succ-char (ten-times-succ-char (ten-times-succ-char
(ten-times-succ-char (ten-times-succ-char (five-times-succ-char
(princ (succ-char (ten-times-prev-char (ten-times-prev-char
(ten-times-prev-char (ten-times-prev-char (ten-times-prev-char
(ten-times-prev-char (ten-times-prev-char (ten-times-prev-char
(princ (succ-char (succ-char (succ-char
(princ
(princ (succ-char (five-times-succ-char (succ-char
(princ (prev-char (ten-times-succ-char
(ten-times-succ-char (ten-times-succ-char
(princ (prev-char (ten-times-prev-char (prev-char
(get-universal-character) )))))))))))))))))))))))))))))))))))))))))))))))))))
(terpri) )
(hello-world)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment