Skip to content

Instantly share code, notes, and snippets.

@spratt

spratt/gist:888689

Created March 26, 2011 22:16
Show Gist options
  • Save spratt/888689 to your computer and use it in GitHub Desktop.
Save spratt/888689 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.cl
(defun ttt-print (board)
"Prints a tic-tac-toe board."
(let* ((nl (string #\Newline))
(str (concatenate 'string
"S|S|S" nl
"-|-|-" nl
"S|S|S" nl
"-|-|-" nl
"S|S|S" nl)))
(format t str)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment