lama_byterun/regression/test043.expr

fun sum (x) {
  case x of
    Nil          -> return 0
  | Cons (x, tl) -> return (x + sum (tl))
  esac
}

x := read ();

write (sum (Nil));
write (sum (Cons (100, Nil)));
write (sum (Cons (100, Cons (200, Nil))))
Pattern matching in X86 2018-05-16 16:50:36 +03:00			`fun sum (x) {`
			`case x of`
Constructors capitalized 2019-03-07 19:06:04 +03:00			`Nil -> return 0`
Better value control 2019-04-10 22:15:08 +03:00			`\| Cons (x, tl) -> return (x + sum (tl))`
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			`write (sum (Nil));`
			`write (sum (Cons (100, Nil)));`
			`write (sum (Cons (100, Cons (200, Nil))))`