This commit is contained in:
Ingy döt Net 2013-06-05 21:47:54 +00:00
parent 1f1ad49427
commit 6f050a029e
2496 changed files with 37609 additions and 3031 deletions

View file

@ -7,4 +7,4 @@
(cond
(or (= x nil) (= y nil) ) nil
(= x y) (cons x (lcs xs ys))
:else (longest (lcs xs ys) (lcs xs ys))))))
:else (longest (lcs (cons x xs) ys) (lcs xs (cons y ys)))))))