Suffix Tree

在负暄琐话里看到关于 suffix tree 的帖子，感觉很牛逼，于是用 scheme 实现了一个，写了一个多小时。唉，以我现在的水平，用 scheme 写点东西还是很费劲的... 话说用 suffix tree 可以在线性时间内实现很多字符串匹配和查找的功能，无边强大～

(define (gen-suffix x) ; x is a list (if (null? (cdr x)) (list x) (cons x (gen-suffix (cdr x)))))

(define (compare-two string...