adele.scm

;; guile -e adele-cd adele.scm <NUM>

(define (q4 n d)
  (if (zero? d)
      '(())
      (let A ((res '()) (i d))
        (if (zero? i)
            res
            (A (append res
                       (map (lambda (x) (cons i x))
                            (q4 (- n i) (min (- n i) i))))
               (1- i))))))

(define (adele-cd args)
  (let ((n (string->number (cadr args))))
    (for-each (lambda (x) (display x) (newline)) (q4 n n))))