RosettaCodeData/Task/Longest-common-subsequence/J/longest-common-subsequence-6.j

lcs=:;(($:}.) longest }.@[ $: ])`({.@[,$:&}.)@.(=&{.)`((i.0)"_)@.(+.&(0=#))&((e.#[)&>/) ;~