gerrit.simantics Code Review - simantics/platform.git/blob

   1 // The last character of the program is an extra closing parenthesis\r
   2 data List a = Nil | Cons a (List a)\r
   3 \r
   4 first Nil = 0\r
   5 first (Cons x _) = x\r
   6 \r
   7 reverse l = reverseAux Nil l \r
   8   where\r
   9     reverseAux accum Nil = accum\r
  10     reverseAux accum (Cons h t) = reverseAux (Cons h accum) t    \r
  11 \r
  12 main = first (reverse l) \r
  13   where\r
  14     l = Cons 1 (Cons 2 (Cons 3 Nil)))\r
  15 --\r
  16 14:37-14:38: No corresponding opening parenthesis for ')'.