1
2
3
4

(define (remove-subnodes n L)
  (cond ((null? L) `())
	((= n (car L)) L)
...

1
2
3

#!/usr/bin/guile \
-e main -s
...

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)
...