Skip to content

Instantly share code, notes, and snippets.

@mkamotsu

mkamotsu/nn.lisp

Created June 8, 2013 11:39
Show Gist options
  • Save mkamotsu/5734902 to your computer and use it in GitHub Desktop.
Save mkamotsu/5734902 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
nn.lisp
(defun nn (n)
(let ((*print-base* n))
(loop for i from 1 below n
do (loop for j from 1 below n
do (format t "~2A " (* i j)))
do (terpri))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment