Return expression eliminated

regression/orig/test030.log

@@ -1,18 +0,0 @@
-> 9
-55
-8
-34
-7
-21
-6
-13
-5
-8
-4
-5
-3
-3
-2
-2
-1
-1

regression/orig/test031.log

@@ -1,14 +0,0 @@
-> 7
-5040
-6
-720
-5
-120
-4
-24
-3
-6
-2
-2
-1
-1

regression/orig/test032.log

@@ -1,36 +0,0 @@
-> 1
-2
-3
-4
-5
-6
-7
-8
-9
-2
-3
-4
-5
-6
-7
-8
-9
-10
-3
-5
-7
-9
-11
-13
-15
-17
-19
-5
-13
-29
-61
-125
-253
-509
-1021
-2045

regression/orig/test033.log

@@ -1,2 +0,0 @@
-> 55
-15

regression/orig/test035.log

@@ -1,8 +0,0 @@
-> 10
-20
-30
-40
-0
-1
-2
-3

regression/orig/test037.log

@@ -1,6 +0,0 @@
-> 5
-6
-7
-8
-9
-10

regression/orig/test038.log

@@ -1,12 +0,0 @@
-> 1
-2
-3
-4
-1
-2
-3
-4
-3
-4
-1
-2

regression/orig/test039.log

@@ -1,6 +0,0 @@
-> 1
-1
-1
-1
-0
-0

regression/orig/test043.log

@@ -1,3 +0,0 @@
-> 0
-100
-300

regression/orig/test044.log

@@ -1,6 +0,0 @@
-> 1
-2
-3
-100
-200
-300

regression/orig/test047.log

@@ -1,17 +0,0 @@
-> 1
-1
-1
-1
-1
-2
-3
-100
-3
-2
-1
-6
-5
-4
-3
-2
-1

regression/orig/test048.log

@@ -1,3 +0,0 @@
-> 7
-7
-28

regression/orig/test049.log

@@ -1,3 +0,0 @@
-> 55
-310
-310

regression/orig/test051.log

@@ -1,8 +0,0 @@
-> 0
-15
-15
-1
-2
-3
-4
-5

regression/orig/test052.log

@@ -1,3 +0,0 @@
-> 1
-2
-3

regression/orig/test053.log

@@ -1,6 +0,0 @@
-> 1
-0
-1
-0
-1
-1

regression/orig/test055.log

@@ -1,2 +0,0 @@
-0
-3

regression/orig/test056.log

@@ -1 +0,0 @@
-> > > 8

regression/orig/test057.log

@@ -1,3 +0,0 @@
-> 6
-7
-8

regression/orig/test058.log

@@ -1,9 +0,0 @@
-> 1
-2
-3
-2
-3
-4
-3
-4
-5

regression/orig/test060.log

@@ -1,5 +0,0 @@
-> 1
-1
-1
-1
-0

regression/orig/test061.log

@@ -1,2 +0,0 @@
-> 11
-18

regression/orig/test062.log

@@ -1,4 +0,0 @@
-> 5
-7
-12
--2

regression/orig/test064.log

@@ -1 +0,0 @@
-> 5

regression/orig/test065.log

@@ -1,2 +0,0 @@
-> 2
-1

regression/orig/test066.log

@@ -1 +0,0 @@
-> 35

regression/orig/test067.log

@@ -1 +0,0 @@
-> 12

regression/orig/test068.log

@@ -1,3 +0,0 @@
-> 1
-800
-800

regression/orig/test069.log

@@ -1 +0,0 @@
-> 0

regression/orig/test070.log

@@ -1 +0,0 @@
-> 0

regression/orig/test071.log

@@ -1 +0,0 @@
-> 5

regression/orig/test075.log

@@ -1,2 +0,0 @@
-> 55
-15

regression/orig/test076.log

@@ -1,8 +0,0 @@
-> 10
-20
-30
-40
-0
-1
-2
-3

regression/orig/test087.log

@@ -1,6 +0,0 @@
-> 1
-0
-1
-0
-1
-1

regression/orig/test108.log

@@ -1 +0,0 @@
-> 100

regression/test030.input

@@ -1 +0,0 @@
-9

regression/test030.lama

@@ -1,16 +0,0 @@
-local n, i;
-
-fun fib (n) {
-  if n <= 1
-  then return 1
-  else
-    return (fib (n-1) + fib (n-2))
-  fi
-}
-
-n := read ();
-
-for i := n, i >= 1, i := i-1 do
-  write (i);
-  write (fib (i))
-od

regression/test031.input

@@ -1 +0,0 @@
-7

regression/test031.lama

@@ -1,16 +0,0 @@
-local n, i;
-
-fun fact (n) {
-  if n <= 1
-  then return 1
-  else
-    return (n * fact (n-1))
-  fi
-}
-
-n := read ();
-
-for i := n, i >= 1, i := i-1 do
-  write (i);
-  write (fact (i))
-od

regression/test032.input

@@ -1 +0,0 @@
-0

regression/test032.lama

@@ -1,16 +0,0 @@
-local x, m, n;
-
-fun ack (m, n) {
-  if m == 0 then return (n+1)
-  elif m > 0 && n == 0 then return ack (m-1, 1)
-  else return ack (m-1, ack (m, n-1))
-  fi
-}
-
-x := read ();
-
-for m := 0, m <= 3, m := m+1 do
-  for n := 0, n <= 8, n := n+1 do    
-    write (ack (m, n))    
-  od
-od

regression/test033.input

@@ -1 +0,0 @@
-0

regression/test033.lama

@@ -1,17 +0,0 @@
-local x;
-
-fun test (n, m) {
-  local i, s;
-  s := 0;
-  for i := 0, i <= n, i := i + 1 do
-    s := s + i;
-    if s > m then return s fi
-  od;
-  
-  return s
-}
-
-x := read ();
-
-write (test (10, 100));
-write (test (100, 10))

regression/test035.input

@@ -1 +0,0 @@
-0

regression/test035.lama

@@ -1,24 +0,0 @@
-local n, x, i;
-
-fun printArray (x) {
-  local elem;
-  if x.length == 0 then return fi;
-  for i:=0, i<x.length, i:=i+1 do
-    write (x[i])
-  od
-}
-
-n := read ();
-
-x := [10, 20, 30, 40];
-
-printArray (x);
-
-for i:=0, i<x.length, i:=i+1 do
-  x[i] := i
-od;
-
-printArray (x)
-
-
-

regression/test037.input

@@ -1 +0,0 @@
-0

regression/test037.lama

@@ -1,29 +0,0 @@
-local n, x, i;
-
-fun sort (x) {
-  local i, j, y, n;
-  n := x.length;
-  
-  if n == 0 then return x fi;
-  
-  for i := 0, i<n, i := i+1 do
-    for j := i+1, j<n, j := j+1 do
-      if x[j] < x[i] then
-         y    := x[i];
-	 x[i] := x[j];
-	 x[j] := y
-      fi
-    od
-  od;
-  
-  return x
-}
-
-n := read ();
-x := [10, 9, 8, 7, 6, 5];
-
-x := sort (x);
-
-for i:=0, i<x.length, i:=i+1 do
-  write (x[i])
-od

regression/test038.input

@@ -1 +0,0 @@
-0

regression/test038.lama

@@ -1,25 +0,0 @@
-local n, x, y;
-
-fun append (x, y) {
-    case x of
-      Nil         -> return y
-    | Cons (h, t) -> return Cons (h, append (t, y))
-    esac
-}
-
-fun printList (x) {
-    case x of
-      Nil         -> skip
-    | Cons (h, t) -> write (h); printList (t)
-    esac
-}
-
-n := read ();
-
-x := Cons (1, Cons (2, Nil));
-y := Cons (3, Cons (4, Nil));
-
-printList (x);
-printList (y);
-printList (append (x, y));
-printList (append (y, x))

regression/test039.input

@@ -1 +0,0 @@
-0

regression/test039.lama

@@ -1,32 +0,0 @@
-local n, t;
-
-fun insert (t, x) {
-  case t of
-    Leaf           -> return Node (x, Leaf, Leaf)
-  | Node (y, l, r) -> if x > y
-                          then return Node (y, insert (l, x), r)
-			  else return Node (y, l, insert (r, x))
-		       fi
-  esac
-}
-
-fun find (t, x) {
-  case t of
-    Leaf           -> return 0
-  | Node (y, l, r) -> if x == y then return 1
-		      elif x > y then return find (l, x)
-		                 else return find (r, x)
-		      fi
-  esac
-}
-
-n := read ();
-
-t := insert (insert (insert (insert (Leaf, 5), 4), 6), 3);
-
-write (find (t, 5));
-write (find (t, 4));
-write (find (t, 6));
-write (find (t, 3));
-write (find (t, 2));
-write (find (t, 1))

regression/test043.input

@@ -1 +0,0 @@
-0

regression/test043.lama

@@ -1,14 +0,0 @@
-local x;
-
-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))))

regression/test044.input

@@ -1 +0,0 @@
-0

regression/test044.lama

@@ -1,39 +0,0 @@
-local x, y, z;
-
-fun zip (x) {
-  case x of Pair (x, y) ->
-    case x of
-      Nil          -> return Nil
-    | Cons (x, xs) -> case y of
-                         Nil -> return Nil
-  		       | Cons (y, ys) -> return Cons (Pair (x, y), zip (Pair (xs, ys)))
-		       esac
-    esac
-  esac
-}
-
-fun unzip (x) {
-  case x of
-    Nil                    -> return Pair (Nil, Nil)
-  | Cons (Pair (x, y), tl) ->
-       case unzip (tl) of
-         Pair (xs, ys) -> return Pair (Cons (x, xs), Cons (y, ys))
-       esac
-  esac
-}
-
-fun printList (l) {
-  case l of
-    Nil -> skip
-  | Cons (x, xs) -> write (x); printList (xs)
-  esac
-}
-
-z := read ();
-
-x := Cons (1, Cons (2, Cons (3, Nil)));
-y := Cons (100, Cons (200, Cons (300, Nil)));
-
-case unzip (zip (Pair (x, y))) of
-  Pair (x, y) -> printList (x); printList (y)
-esac

regression/test047.input

@@ -1 +0,0 @@
-0

regression/test047.lama

@@ -1,75 +0,0 @@
-local n;
-
-fun collect_ints_acc (v, tail) {
-  local i;
-  case v of
-    a@#unboxed -> return Cons (a, tail)
-  | #string  -> return tail
-  | _       ->
-     for i := 0, i < v.length, i := i + 1 do
-       tail := collect_ints_acc (v[i], tail)
-     od;
-     return tail
-  esac
-}
-
-fun collect_ints (v) {
-  return collect_ints_acc (v, Nil)
-}
-
-fun print_list (l) {
-  case l of
-    Nil         -> skip
-  | Cons (n, t) -> write (n); print_list (t)
-  esac
-}
-
-n := read ();
-
-case 1 of
-  5 -> write (5) 
-| 4 -> write (4)
-| 3 -> write (3)
-| 2 -> write (2)
-| 1 -> write (1)
-| 0 -> write (0) 
-esac;
-
-case 1 of
-  a@5 -> write (a) 
-| a@4 -> write (a)
-| a@3 -> write (a)
-| a@2 -> write (a)
-| a@1 -> write (a)
-| a@0 -> write (a)
-esac;
-
-case A (1, 2, 3) of
-  A (1, 3, 5) -> write (0)
-| A (3, 4, 5) -> write (0)
-| A (1, 2, 3) -> write (1)
-| A (6, 7, 8) -> write (0)
-esac;
-
-case "abc" of
-  "def" -> write (0)
-| "ab"  -> write (0)
-| "abc" -> write (1)
-| ""    -> write (0)
-esac;
-
-case [1, 2, 3] of
-  []        -> write (0)
-| [a, b]    -> write (0)
-| [a, b, c] -> write (a); write (b); write (c)
-| [_, _, _] -> write (0)
-esac;
-
-case [1, 2, 3] of
-  []        -> write (0)
-| [a, b]    -> write (0)
-| [_, _, _] -> write (100)
-| [a, b, c] -> write (a); write (b); write (c)
-esac;
-
-print_list (collect_ints ([1, 2, 3, [4, 5, 6, Cons (1, 2, 3)]])) 

regression/test048.input

@@ -1 +0,0 @@
-0

regression/test048.lama

@@ -1,12 +0,0 @@
-local n, y;
-
-fun test (n, m) {
-  local i, s;
-  write (n);
-  write (m);
-  return n
-}
-
-n := read ();
-y := 1 + (2 + (3 + (4 + (5 + (6 + test (7, 7))))));
-write (y)

regression/test049.input

@@ -1 +0,0 @@
-0

regression/test049.lama

@@ -1,23 +0,0 @@
-local n, y, y2, t;
-
-fun test (n, m) {
-  local i, s;
-  s := 0;
-  for i := 0, i <= n, i := i + 1 do
-    s := s + i;
-    if s > m then return s fi
-  od;
-  
-  return s
-}
-
-n := read ();
-y := ((((((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1)))) + ((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))))) + (((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1)))) + ((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1)))))) + ((((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1)))) + ((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))))) + (((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1)))) + ((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))))))) + (((((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1)))) + ((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))))) + (((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1)))) + ((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1)))))) + ((((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1)))) + ((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))))) + (((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1)))) + ((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + test(10, 100)))))))));
-
-t := test (10, 100);
-y2 := ((((((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1)))) + ((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))))) + (((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1)))) + ((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1)))))) + ((((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1)))) + ((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))))) + (((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1)))) + ((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))))))) + (((((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1)))) + ((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))))) + (((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1)))) + ((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1)))))) + ((((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1)))) + ((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))))) + (((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1)))) + ((((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + 1))) + (((1 + 1) + (1 + 1)) + ((1 + 1) + (1 + t))))))));
-
-write (t);
-write (y2);
-write (y)
-

regression/test051.input

@@ -1 +0,0 @@
-0

regression/test051.lama

@@ -1,31 +0,0 @@
-local n;
-
-fun sum (l) {
-  case l of
-    {}    -> return 0
-  | h : t -> return (h + sum (t))
-  esac 
-}
-
-fun print_list (l) {
-  case l of
-    {}    -> skip
-  | h : t -> write (h); print_list (t)
-  esac
-}
-
-fun array_to_list (a) {
-  local l, i;
-  l := {};
-  for i := a.length, i > 0, i := i-1 do
-    l := a[i-1] : l
-  od;
-  return l
-}
-
-n := read ();
-write (sum ({}));
-write (sum ({1, 2, 3, 4, 5}));
-write (sum (1:2:3:4:5:{}));
-print_list (array_to_list ([1, 2, 3, 4, 5]))
-

regression/test052.input

@@ -1 +0,0 @@
-0

regression/test052.lama

@@ -1,26 +0,0 @@
-local n;
-
-fun hd (l) {
-  case l of
-    h : _ -> return h
-  esac  
-}
-
-
-fun tl (l) {
-  case l of
-    _ : tl -> return tl
-  esac
-}
-
-fun print_list (l) {
-  case l of
-    {}    -> skip
-  | h : t -> write (h); print_list (t)
-  esac
-}
-
-n := read ();
-write ({1, 2, 3}.hd);
-print_list ({1, 2, 3}.tl)
-

regression/test053.input

@@ -1 +0,0 @@
-0

regression/test053.lama

@@ -1,41 +0,0 @@
-local n;
-
-infix === at == (v1, v2) {
-  local s1, s2, i;
-  
-  s1 := v1.string;
-  s2 := v2.string;
-
-  if s1.length == s2.length
-  then
-    for i := 0, i < s1.length, i := i + 1
-    do
-      if s1[i] != s2[i] then return 0 fi  
-    od;
-    return 1
-  else return 0
-  fi
-}
-
-infix ? before + (v, l) {
-  case l of
-   {}      -> return 0
-  | h : tl -> if h === v then return 1 else return (v ? tl) fi
-  esac
-}
-
-infix +++ at + (l1, l2) {
-  case l1 of
-    {}     -> return l2
-  | h : tl -> return (h : tl +++ l2)
-  esac
-}
-
-n := read ();
-
-write ({1, 2, 3} === {1, 2, 3}); 
-write ({1, 2, 3} === {1, 2, 4});
-write (1+2 ? {1, 2, 3});
-write (1*3+2 ? {1, 2, 3});
-write (1*3+2 ? {1, 2, 5});
-write (8*4 ? {1, 2, 3} +++ {5, 7, 32, 6})

regression/test055.lama

@@ -1,8 +0,0 @@
-fun len(l) {
-  case l of
-     _ : xs -> return len(xs) + 1
-    |{} -> return 0 
-  esac
-}
-write(len({}));
-write(len({1, 2, 3}))

regression/test056.input

@@ -1,3 +0,0 @@
-1
-2
-3

regression/test056.lama

@@ -1,8 +0,0 @@
-fun test (a, b, c) {
-  local x = a + b, y = b + c;
-  {local e = x + y;
-   return e
-  }
-}
-
-write (test (read (), read (), read ()))

regression/test057.input

@@ -1 +0,0 @@
-5

regression/test057.lama

@@ -1,12 +0,0 @@
-fun a (x) {return x + 1}
-fun b (x) {return x + 2}
-fun c (x) {return x + 3}
-
-{
-  local funs = [a, b, c];
-  local n = read (), i;
-
-  for i := 0, i < 3, i := i+1 do
-    write (funs[i] (n))
-  od
-}

regression/test058.input

@@ -1 +0,0 @@
-5

regression/test058.lama

@@ -1,23 +0,0 @@
-fun map (f, l) {
-  case l of
-    {}     -> return {}
-  | h : tl -> return (f (h) : map (f, tl))
-  esac
-}
-
-fun a (x) {return x + 1}
-fun b (x) {return x + 2}
-
-fun print_list (x) {
-  case x of
-    {} -> skip
-  | h : tl -> write (h); print_list (tl)
-  esac
-}
-
-local x = read ();
-
-print_list ({1, 2, 3});
-print_list (map (a, {1, 2, 3}));
-print_list (map (b, {1, 2, 3}))
-

regression/test060.input

@@ -1 +0,0 @@
-5

regression/test060.lama

@@ -1,19 +0,0 @@
-fun f (l) {
-  infix === at == (a, b) {
-    return a == b
-  }
-
-  case l of
-    {}         -> return 1
-  | {_}        -> return 1
-  | a : b : tl -> return a === b && f (b : tl)
-  esac
-}
-
-local x = read ();
-
-write (f ({}));
-write (f (1:{}));
-write (f ({1, 1}));
-write (f ({1, 1, 1}));
-write (f ({1, 2, 1}))

regression/test061.input

@@ -1 +0,0 @@
-5

regression/test061.lama

@@ -1,12 +0,0 @@
-fun plus (x) {
-  fun f (y) {
-    return x + y
-  }
-
-  return f
-}
-
-local x = read ();
-
-write (plus(5)(6));
-write (plus(8)(10))

regression/test062.input

@@ -1 +0,0 @@
-5

regression/test062.lama

@@ -1,22 +0,0 @@
-fun a (x, y) {
-  local a = x + y, b = x - y;
-  {
-   local f = fun () {
-     write (x);
-     write (y);
-     write (a);
-     write (b)
-   };
-
-   a := 100;
-   b := 200;
-   x := 800;
-   y := 1000;
-   
-   return f
-  }
-}
-
-local x = read ();
-
-a (5, 7) ()

regression/test064.input

@@ -1 +0,0 @@
-5

regression/test064.lama

@@ -1,5 +0,0 @@
-infix ++ at + (a, b) {return a+b}
-
-local x = read ();
-
-write (infix ++ (2, 3))

regression/test065.input

@@ -1 +0,0 @@
-5

regression/test065.lama

@@ -1,23 +0,0 @@
-fun f () {
-  local x, l = {};
-  fun g () {return x}
-  
-  x := 1;
-  l := g : l;
-
-  x := 2;
-  l := g : l;
-
-  return l
-}
-
-fun p (l) {
-  case l of
-    {} -> skip
-  | h : tl -> write (h ()); p (tl)
-  esac
-}
-
-local x = read ();
-
-p (f ())

regression/test066.input

@@ -1 +0,0 @@
-5

regression/test066.lama

@@ -1,13 +0,0 @@
-fun f (a) {
-  fun g (b) {
-    fun h (c) {
-      return fun (x) {return x + a + b + c}
-    }
-    return h (b)
-  }
-  return g (a)
-}
-
-local x = read ();
-
-write (f(10)(5))

regression/test067.input

@@ -1 +0,0 @@
-5

regression/test067.lama

@@ -1,7 +0,0 @@
-infixr ** before * (f, g) {
-  return fun (x) {return f (g (x))}
-}
-
-local x = read ();
-
-write ((fun (x) {return x+2} ** fun (x) {return x+3})(7))

regression/test068.input

@@ -1 +0,0 @@
-5

regression/test068.lama

@@ -1,19 +0,0 @@
-fun makeLazy (f) {
-  local flag = 0, value = 0;
-
-  return fun () {
-    if flag
-    then return value
-    else
-      value := f ();
-      flag  := 1;
-      return value
-    fi
-  }
-}
-
-local l = makeLazy (fun () {write (1); return 800});
-local x = read ();
-
-write (l ());
-write (l ())

regression/test069.input

@@ -1 +0,0 @@
-5

regression/test069.lama

@@ -1,11 +0,0 @@
-fun f (x) {
-  fun inner (y) {
-    return if y == 0 then 0 else inner (y-1) fi
-  }
-
-  return inner (x)
-}
-
-local n = read ();
-
-write (f (5))

regression/test070.input

@@ -1 +0,0 @@
-5

regression/test070.lama

@@ -1,15 +0,0 @@
-fun f (x) {
-  fun inner1 (y) {
-    return if y == 0 then 0 else inner2 (y-1) fi
-  }
-  
-  fun inner2 (y) {
-    return if y == 0 then 0 else inner1 (y-1) fi
-  }  
-
-  return inner1 (x)
-}
-
-local n = read ();
-
-write (f (5))

regression/test071.input

@@ -1 +0,0 @@
-5

regression/test071.lama

@@ -1,9 +0,0 @@
-fun f (x) {
-  fun g () {return x}
-  fun h () {return g}
-  return g
-}
-
-local n = read ();
-
-write (f(5)())

regression/test075.input

@@ -1 +0,0 @@
-0

regression/test075.lama

@@ -1,17 +0,0 @@
-local x;
-
-fun test (n, m) {
-  local i, s;
-  s := 0;
-  for i := 0, i <= n, i := i + 1 do
-    s := s + i;
-    if s > m then return s fi
-  od;
-  
-   s
-}
-
-x := read ();
-
-write (test (10, 100));
-write (test (100, 10))

regression/test076.input

@@ -1 +0,0 @@
-0