19 lines
415 B
Plaintext
19 lines
415 B
Plaintext
$ENTRY Go {
|
|
= <Prout <LCS ('thisisatest') 'testing123testing'>>;
|
|
};
|
|
|
|
LCS {
|
|
(e.X) e.L e.X e.R = e.X;
|
|
() e.Y = ;
|
|
e.X e.Y, e.X: (s.L e.XL),
|
|
e.X: (e.XR s.R)
|
|
= <Longest (<LCS (e.XL) e.Y>) <LCS (e.XR) e.Y>>;
|
|
};
|
|
|
|
Longest {
|
|
(e.X) e.Y, <Lenw e.X>: s.LX e.X2,
|
|
<Lenw e.Y>: s.LY e.Y2,
|
|
<Compare s.LX s.LY>: '+' = e.X;
|
|
(e.X) e.Y = e.Y;
|
|
};
|