Реализации алгоритмов/Наибольшая общая подпоследовательность: различия между версиями
Содержимое удалено Содержимое добавлено
ISbot (обсуждение | вклад) м Снятие {{К переименованию}} и добавление {{BookCat}}. |
|||
Строка 110:
main = print $ yoba "aaaaabbbb34354354345" "abbb34aaabbbb"
</source>
=== [[Erlang]] ===
<source lang="erlang">
lcs([], _) ->
"";
lcs(_, []) ->
"";
lcs([X | T1], [X | T2]) ->
[X | lcs(T1, T2)];
lcs([X | T1] = L1, [Y | T2] = L2) when X =/= Y ->
longest(lcs(L1, T2), lcs(T1, L2)).
longest(T1, T2) when length(T1) >= length(T2) ->
T1;
longest(_, T2) ->
T2.
</source>
| |||