common-lisp.md

Common Lisp

Function Declaration

(defun challenge (x y z)
  ...
  (+ x y z))

Logging

(defun challenge (x y z)
  (write-line (format nil "~a ~a" (* x y) (* y z)))
  (+ x y z))

Variables

(setq a 1)                        ;; 1
(setq a (list (+ x y) (+ y z)))   ;; [x+y, y+z] as list
(setq a #(1 2 x))                 ;; [1, 2, "x"] as vector
(setq a (vector (+ x y) (+ y z))) ;; [x+y, y+z] as vector

Loops

-- While
(loop while (!= x y)
      do ...)

-- Range (3 4 5 6 7 8)
(loop for i from 3 to 8 ...)