It is very simple to make a Chinese calendar in Tian-gan and Di-zhi combination.
Since there is Chinese character is not supported, I just use 0-9 to represent Tian-gan
and A-L to Di-zhi.
看中国古代书籍时经常遇到天干地支的年份，具体的组合每次找起来很费劲。
干脆写了一个小程序打出所有的60年的组合。
因为不能使用汉字，只好用0-9代表天干，用A-L代表地支。
中国古代の本に良く”天幹"と"地支"の組み合わせが出ますが、すべての組み合わせ
が把握していないので、小さなプログラムを組んで、60年の組み合わせをすべて
出力しました。LISPなら簡単にできます。
ただし、漢字がサポートされていないため、0-9を”天幹"、A-Zを"地支"代用しています。
(define (chinese-calendar tian-gan di-zhi)
(cond ((and (eq? (car tian-gan) '0) (eq? (car di-zhi) 'l))
(display (car tian-gan)) (display (car di-zhi)))
(else (display (car tian-gan)) (display (car di-zhi))
(display '-)
(chinese-calendar (append (cdr tian-gan) (list (car tian-gan)))
(append (cdr di-zhi) (list (car di-zhi)))))))
(define (print-chn-cal)
(chinese-calendar '(1 2 3 4 5 6 7 8 9 0) '(a b c d e f g h i j k l)))
