Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- declare
- fun {Merge L1 L2}
- case L1 of
- nil then L2
- [] H1|T1 then
- case L2 of
- nil then L1
- [] H2|T2 then
- if H1<H2 then
- H1|{Merge T1 L2}
- else
- H2|{Merge L1 T2}
- end
- end
- end
- end
- {Browse {Merge [1 2 3 4 10] [2 3 22 40]}}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement