[이영석]

(lc-prefix (list 2 3 4 5) (list 2 3 5 9 2)) ;2
(lc-prefix (list 1 2 3 1 2) (list 1 2 1 2 3)) ;2

(lc-substr (list 1 2 3 3 4 5 3 2) (list 1 2 3 4 2 1 2 3 3 4 1 2 5)) ;5
(lc-substr (list 2 4 6 8 8 6 4 2) (list 1 3 4 6 8 8 2 4 6 8 8 6 7 9)) ;6

(lc-subseq (list 1 2 3 3 4 5 3 2) (list 1 2 3 4 2 1 2 3 3 4 1 2 5)) ;6
(lc-subseq (list 2 4 6 8 8 6 4 2) (list 1 3 4 6 8 8 2 4 6 8 8 6 7 9)) ;6

(is-palin? (list 1 2 3 2 1)) ; #t
(is-palin? (list 1 3 5 2 4 3 8 9 2 9 0 1)) ;f

(length-palin (list 1 2 3 3 1 1 2 2 3 1 2 3 3 2 1 5 6)) ;6
(length-palin (list 2 8 0 7 9 6 5 6 1 6 5 6 9 7 2 3 1)) ;11