gac/sg1.scm

(require)

(export %monads
        %dyads
        %trichords
        %tetrachords
        %pentachords
        %hexachords
        %septachords
        %octachords
        %nonachords
        %decachords
        %undecachords
        %dodecachords
        %universe
        %universe-alist)

(define %monads '((0)))

(define %dyads '((0 1) (0 2) (0 3) (0 4) (0 5) (0 6)))

(define %trichords '((0 1 2) (0 1 3) (0 2 3) (0 1 4)
                     (0 3 4) (0 1 5) (0 4 5) (0 1 6)
                     (0 5 6) (0 2 4) (0 2 5) (0 3 5)
                     (0 2 6) (0 4 6) (0 2 7) (0 3 6)
                     (0 3 7) (0 4 7) (0 4 8)))

(define %tetrachords '((0 1 2 3) (0 1 2 4) (0 2 3 4)
                       (0 1 3 4) (0 1 2 5) (0 3 4 5)
                       (0 1 2 6) (0 4 5 6) (0 1 2 7)
                       (0 1 4 5) (0 1 5 6) (0 1 6 7)
                       (0 2 3 5) (0 1 3 5) (0 2 4 5)
                       (0 2 3 6) (0 3 4 6) (0 1 3 6)
                       (0 3 5 6) (0 2 3 7) (0 4 5 7)
                       (0 1 4 6) (0 2 5 6) (0 1 5 7)
                       (0 2 6 7) (0 3 4 7) (0 1 4 7)
                       (0 3 6 7) (0 1 4 8) (0 3 4 8)
                       (0 1 5 8) (0 2 4 6) (0 2 4 7)
                       (0 3 5 7) (0 2 5 7) (0 2 4 8)
                       (0 2 6 8) (0 3 5 8) (0 2 5 8)
                       (0 3 6 8) (0 3 6 9) (0 1 3 7)
                       (0 4 6 7)))

(define %pentachords '((0 1 2 3 4) (0 1 2 3 5) (0 2 3 4 5)
                       (0 1 2 4 5) (0 1 3 4 5) (0 1 2 3 6)
                       (0 3 4 5 6) (0 1 2 3 7) (0 4 5 6 7)
                       (0 1 2 5 6) (0 1 4 5 6) (0 1 2 6 7)
                       (0 1 5 6 7) (0 2 3 4 6) (0 1 2 4 6)
                       (0 2 4 5 6) (0 1 3 4 6) (0 2 3 5 6)
                       (0 2 3 4 7) (0 3 4 5 7) (0 1 3 5 6)
                       (0 1 2 4 8) (0 2 3 4 8) (0 1 2 5 7)
                       (0 2 5 6 7) (0 1 2 6 8) (0 1 3 4 7)
                       (0 3 4 6 7) (0 1 3 4 8) (0 1 4 5 7)
                       (0 2 3 6 7) (0 1 3 6 7) (0 1 4 6 7)
                       (0 1 5 6 8) (0 2 3 7 8) (0 1 4 5 8)
                       (0 3 4 7 8) (0 1 4 7 8) (0 2 3 5 7)
                       (0 2 4 5 7) (0 1 3 5 7) (0 2 4 6 7)
                       (0 2 3 5 8) (0 3 5 6 8) (0 2 4 5 8)
                       (0 3 4 6 8) (0 1 3 5 8) (0 3 5 7 8)
                       (0 2 3 6 8) (0 2 5 6 8) (0 1 3 6 8)
                       (0 2 5 7 8) (0 1 4 6 8) (0 2 4 7 8)
                       (0 1 3 6 9) (0 2 3 6 9) (0 1 4 6 9)
                       (0 3 5 8 9) (0 2 4 6 8) (0 2 4 6 9)
                       (0 2 4 7 9) (0 1 2 4 7) (0 3 5 6 7)
                       (0 3 4 5 8) (0 1 2 5 8) (0 3 6 7 8)))

(define %hexachords '((0 1 2 3 4 5) (0 1 2 3 4 6) (0 2 3 4 5 6)
                      (0 1 2 3 5 6) (0 1 3 4 5 6) (0 1 2 4 5 6)
                      (0 1 2 3 6 7) (0 1 4 5 6 7) (0 1 2 5 6 7)
                      (0 1 2 6 7 8) (0 2 3 4 5 7) (0 1 2 3 5 7)
                      (0 2 4 5 6 7) (0 1 3 4 5 7) (0 2 3 4 6 7)
                      (0 1 2 4 5 7) (0 2 3 5 6 7) (0 1 2 4 6 7)
                      (0 1 3 5 6 7) (0 1 3 4 6 7) (0 1 3 4 5 8)
                      (0 3 4 5 7 8) (0 1 2 4 5 8) (0 3 4 6 7 8)
                      (0 1 4 5 6 8) (0 2 3 4 7 8) (0 1 2 4 7 8)
                      (0 1 4 6 7 8) (0 1 2 5 7 8) (0 1 3 6 7 8)
                      (0 1 3 4 7 8) (0 1 4 5 7 8) (0 1 4 5 8 9)
                      (0 2 3 4 6 8) (0 2 4 5 6 8) (0 1 2 4 6 8)
                      (0 2 4 6 7 8) (0 2 3 5 6 8) (0 1 3 4 6 8)
                      (0 2 4 5 7 8) (0 1 3 5 6 8) (0 2 3 5 7 8)
                      (0 1 3 5 7 8) (0 1 3 4 6 9) (0 3 5 6 8 9)
                      (0 1 3 5 6 9) (0 2 3 6 7 9) (0 1 3 6 7 9)
                      (0 2 3 6 8 9) (0 1 4 5 7 9) (0 2 4 5 8 9)
                      (0 2 4 5 7 9) (0 2 3 5 7 9) (0 2 4 6 7 9)
                      (0 1 3 5 7 9) (0 2 4 6 8 9) (0 2 4 6 8 10)
                      (0 3 4 5 6 7) (0 1 2 3 4 7) (0 1 2 3 4 8)
                      (0 1 2 3 7 8) (0 3 4 5 6 8) (0 2 3 4 5 8)
                      (0 3 5 6 7 8) (0 1 2 3 5 8) (0 2 5 6 7 8)
                      (0 1 2 3 6 8) (0 1 2 3 6 9) (0 2 3 6 7 8)
                      (0 1 2 5 6 8) (0 3 4 7 8 9) (0 1 2 5 6 9)
                      (0 2 3 4 6 9) (0 3 5 7 8 9) (0 1 2 4 6 9)
                      (0 2 5 7 8 9) (0 1 2 4 7 9) (0 1 2 5 7 9)
                      (0 1 3 4 7 9) (0 1 4 6 7 9)))

(define %septachords '((0 1 2 3 4 5 6) (0 2 3 4 5 6 7) (0 1 2 3 4 5 7)
                       (0 3 4 5 6 7 8) (0 1 2 3 4 5 8) (0 1 3 4 5 6 7)
                       (0 1 2 3 4 6 7) (0 1 2 4 5 6 7) (0 1 2 3 5 6 7)
                       (0 1 4 5 6 7 8) (0 1 2 3 4 7 8) (0 1 2 5 6 7 8)
                       (0 1 2 3 6 7 8) (0 2 3 4 5 6 8) (0 2 4 5 6 7 8)
                       (0 1 2 3 4 6 8) (0 2 3 4 5 6 9) (0 1 2 3 4 6 9)
                       (0 2 3 4 5 7 8) (0 1 3 4 5 6 8) (0 1 2 3 4 7 9)
                       (0 2 3 4 6 7 8) (0 1 2 4 5 6 8) (0 1 3 5 6 7 8)
                       (0 1 2 3 5 7 8) (0 1 2 4 6 7 8) (0 1 3 4 5 6 9)
                       (0 1 2 3 5 6 9) (0 1 2 4 5 6 9) (0 1 4 5 6 7 9)
                       (0 1 4 6 7 8 9) (0 1 2 3 6 8 9) (0 1 2 3 6 7 9)
                       (0 1 2 5 7 8 9) (0 1 2 5 6 7 9) (0 1 3 4 5 8 9)
                       (0 1 2 4 5 8 9) (0 1 2 5 6 8 9) (0 2 4 5 6 7 9)
                       (0 2 3 4 5 7 9) (0 2 4 6 7 8 9) (0 1 2 3 5 7 9)
                       (0 2 3 5 6 7 9) (0 2 3 4 6 7 9) (0 1 3 4 5 7 9)
                       (0 2 4 5 6 8 9) (0 2 4 5 7 8 9) (0 1 2 4 5 7 9)
                       (0 1 3 5 6 7 9) (0 2 3 4 6 8 9) (0 2 3 5 7 8 9)
                       (0 1 2 4 6 7 9) (0 1 3 5 7 8 9) (0 1 2 4 6 8 9)
                       (0 1 3 4 6 7 9) (0 2 3 5 6 8 9) (0 1 3 5 6 8 9)
                       (0 1 3 4 6 8 9) (0 1 2 4 6 8 10) (0 1 3 4 6 8 10)
                       (0 1 3 5 6 8 10) (0 2 3 5 6 7 8) (0 1 2 3 5 6 8)
                       (0 1 3 4 5 7 8) (0 1 3 4 6 7 8) (0 1 2 4 5 7 8)))

(define %octachords '((0 1 2 3 4 5 6 7) (0 2 3 4 5 6 7 8) (0 1 2 3 4 5 6 8)
                      (0 1 2 3 4 5 6 9) (0 1 3 4 5 6 7 8) (0 1 2 3 4 5 7 8)
                      (0 1 2 4 5 6 7 8) (0 1 2 3 4 6 7 8) (0 1 2 3 5 6 7 8)
                      (0 1 2 3 4 5 8 9) (0 1 2 3 4 7 8 9) (0 1 2 3 6 7 8 9)
                      (0 2 3 4 5 6 7 9) (0 2 4 5 6 7 8 9) (0 1 2 3 4 5 7 9)
                      (0 1 3 4 5 6 7 9) (0 2 3 4 5 6 8 9) (0 2 3 5 6 7 8 9)
                      (0 1 2 3 4 6 7 9) (0 1 2 4 5 6 7 9) (0 2 3 4 5 7 8 9)
                      (0 1 3 5 6 7 8 9) (0 1 2 3 4 6 8 9) (0 1 2 4 6 7 8 9)
                      (0 1 2 3 5 7 8 9) (0 1 3 4 5 6 8 9) (0 1 3 4 6 7 8 9)
                      (0 1 2 3 5 6 8 9) (0 1 3 4 5 7 8 9) (0 1 2 4 5 6 8 9)
                      (0 1 2 4 5 7 8 9) (0 1 2 3 4 6 8 10) (0 1 2 3 5 7 9 10)
                      (0 1 2 3 5 6 8 10) (0 1 2 3 5 7 8 10) (0 1 2 4 5 6 8 10)
                      (0 1 2 4 6 7 8 10) (0 1 3 4 5 7 8 10) (0 1 2 4 6 7 9 10)
                      (0 1 2 4 5 7 8 10) (0 1 3 4 6 7 9 10) (0 2 3 4 6 7 8 9)
                      (0 1 2 3 5 6 7 9)))

(define %nonachords '((0 1 2 3 4 5 6 7 8) (0 1 2 3 4 5 6 7 9) (0 2 3 4 5 6 7 8 9)
                      (0 1 3 4 5 6 7 8 9) (0 1 2 3 4 5 6 8 9) (0 1 2 4 5 6 7 8 9)
                      (0 1 2 3 4 5 7 8 9) (0 1 2 3 5 6 7 8 9) (0 1 2 3 4 6 7 8 9)
                      (0 1 2 3 4 5 6 8 10) (0 1 2 3 4 5 7 9 10) (0 1 2 3 4 5 7 8 10)
                      (0 1 2 3 4 6 8 9 10) (0 1 2 3 4 6 7 8 10) (0 1 2 3 5 6 7 8 10)
                      (0 1 2 3 4 6 7 9 10) (0 1 2 3 5 6 8 9 10) (0 1 2 3 5 6 7 9 10)
                      (0 1 2 4 5 6 8 9 10)))

(define %decachords '((0 1 2 3 4 5 6 7 8 9)
                      (0 1 2 3 4 5 6 7 8 10)
                      (0 1 2 3 4 5 6 7 9 10)
                      (0 1 2 3 4 5 6 8 9 10)
                      (0 1 2 3 4 5 7 8 9 10)
                      (0 1 2 3 4 6 7 8 9 10)))

(define %undecachords '((0 1 2 3 4 5 6 7 8 9 10)))

(define %dodecachords '((0 1 2 3 4 5 6 7 8 9 10 11)))

(define %universe-wrong '(%monads
                          %dyads
                          %trichords
                          %tetrachords
                          %pentachords
                          %hexachords
                          %septachords
                          %octachords
                          %nonachords
                          %decachords
                          %undecachords
                          %dodecachords))

;; (define %universe (list %monads
;;                         %dyads
;;                         %trichords
;;                         %tetrachords
;;                         %pentachords
;;                         %hexachords
;;                         %septachords
;;                         %octachords
;;                         %nonachords
;;                         %decachords
;;                         %undecachords
;;                         %dodecachords))

(define %universe (=> %universe-wrong (.map eval)))

(define %universe-alist (=> %universe-wrong
                            (.map (lambda (sym) (cons sym (eval sym))))))