Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- declare
- fun {Ispart L1 L2}
- local
- fun {Help L M}
- if L==M then true
- elseif L==nil then false
- elseif M==nil then true
- elseif L.1 == M.1 then {Help L.2 M.2}
- else {Help L.2 L2}
- end
- end
- in {Help L1 L2} end
- end
- {Show {Ispart [1 2 3 4 6 5] [4 5]}}
- {Show {Ispart [1 2 3 4 6 5] [1 2 3]}}
- {Show {Ispart [1 2 3 4 6 5] nil}}
- {Show {Ispart [1 2 3 4 6 5] [6 5]}}
Add Comment
Please, Sign In to add comment