Guest User

Untitled

a guest
Jan 21st, 2018
82
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Oz 0.39 KB | None | 0 0
  1. declare
  2. fun {Ispart L1 L2}
  3.    local
  4.       fun {Help L M}
  5.      if L==M then true
  6.      elseif L==nil then false
  7.      elseif M==nil then true
  8.      elseif L.1 == M.1 then {Help L.2 M.2}
  9.      else {Help L.2 L2}
  10.      end
  11.       end
  12.    in {Help L1 L2} end
  13. end
  14.      
  15.  
  16. {Show {Ispart [1 2 3 4 6 5] [4 5]}}
  17. {Show {Ispart [1 2 3 4 6 5] [1 2 3]}}
  18. {Show {Ispart [1 2 3 4 6 5] nil}}
  19. {Show {Ispart [1 2 3 4 6 5] [6 5]}}
Add Comment
Please, Sign In to add comment