OFFSET
0,4
COMMENTS
LINKS
Antti Karttunen, Alternative Catalan Orderings (with the complete Scheme source)
PROG
(Scheme-functions showing the essential idea. For the full source, follow the "Alternative Catalan Orderings" link.)
(define (A082860 n) (A080300 (parenthesization->binexp (LCSB (binexp->parenthesization (A014486 (A025581 n))) (binexp->parenthesization (A014486 (A002262 n)))))))
(define (LCSB t1 t2) (cond ((and (not (pair? t1)) (not (pair? t2))) (list)) (else (cons (LCSB (car* t1) (car* t2)) (LCSB (cdr* t1) (cdr* t2))))))
(define (car* p) (if (pair? p) (car p) p))
(define (cdr* p) (if (pair? p) (cdr p) p))
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Antti Karttunen, May 06 2003
STATUS
approved