a guest Jun 19th, 2019 59 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. let all_same_color cs =
  2.   let mutable d=true
  3.   let (col:Color) = card_color (cs.Head:Card)
  4.   for i in cs do
  5.     let col=card_color i
  6.     if not (col = col) then
  7.       printfn "Black"
  8.       d<-false
  9.     else
  10.       d<-d
  11.     printfn "Val %b" d
  12.   d
  14. let (col:Color) = card_color (cs.Head:Card)
  16.  Lookup on object of indeterminate type based on information prior to this program point. A type annotation may be needed prior to this programpoint to constrain the type of the object. This may allow the lookup to be resolved.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand