1
2
3
4

;; Turns a flat-list into a list of n-sized lists
;; Examples:
;;   (group-by '(1 2 3 4) 2) => ((1 2) (3 4))
...

1
2
3
4

  ; 5*O(n)
  (defun next-lex (a)
    (let* ((r (reverse a))
...

1
2
3
4

(defun transpose (m)
       (cond
        ((null (car m)) nil)
...

1
2
3
4

(defun header-encode (string)
  (if (find-if (lambda (c) (> (char-code c) 127)) string)
...