lama_byterun/regression/test041.expr

local x;

fun f (a) {
  case a of
    A (x, y, z) -> write (x + y + z)
  | B (x, y, z) -> write (x + y + z)
  esac
}

x := read ();

f (A (100, 200, 300));
f (B (500, 600, 700))
Generalized state 2019-09-29 02:47:07 +03:00			`local x;`
Global definitions; regression tests fixed 2019-09-19 18:37:08 +03:00
Pattern matching in X86 2018-05-16 16:50:36 +03:00			`fun f (a) {`
			`case a of`
Constructors capitalized 2019-03-07 19:06:04 +03:00			`A (x, y, z) -> write (x + y + z)`
			`\| B (x, y, z) -> write (x + y + z)`
Pattern matching in X86 2018-05-16 16:50:36 +03:00			`esac`
			`}`

			`x := read ();`

Constructors capitalized 2019-03-07 19:06:04 +03:00			`f (A (100, 200, 300));`
			`f (B (500, 600, 700))`