Advertisement
Guest User

Untitled

a guest
Oct 3rd, 2014
193
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
F# 0.34 KB | None | 0 0
  1. > let rec inv = function
  2.     |[] -> true
  3.     |m::ms' -> not(List.exists (fun x -> x=m) ms') || inv ms'
  4. inv[1;2;3;1];;
  5.  
  6. val inv : _arg1:'a list -> bool when 'a : equality
  7. val it : bool = true
  8.  
  9. > let rec inv = function
  10.    |[] -> true
  11.    |m::ms' -> not(List.exists (fun x -> x=m) ms') && inv ms'
  12. inv [1;2;3;1];;
  13. val it : bool = false
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement