RosettaCodeData/Task/Longest-common-subsequence/Common-Lisp/longest-common-subsequence-...

4 lines
101 B
Common Lisp

(coerce (lcs (coerce "thisisatest" 'list) (coerce "testing123testing" 'list)) 'string))))
"tsitest"