[simantics/platform.git] / Matching3.scl

a = 5 :: Long
main = match a with
  1 -> "wrong"
  2 -> "wrong"
  5 -> "right"
  6 -> "wrong"
  _ -> "wrong"
--
right