# HG changeset patch
# User berghofe
# Date 1197913158 -3600
# Node ID ded611be9604ad0a227ef0bbf4a1e190d7d66373
# Parent  909bfa21acc2ce8a61ea31d4f58278d226e7e61d
Added foldl1.

diff -r 909bfa21acc2 -r ded611be9604 src/Pure/library.ML
--- a/src/Pure/library.ML	Mon Dec 17 18:38:28 2007 +0100
+++ b/src/Pure/library.ML	Mon Dec 17 18:39:18 2007 +0100
@@ -75,6 +75,7 @@
   val apply: ('a -> 'a) list -> 'a -> 'a
   val perhaps_apply: ('a -> 'a option) list -> 'a -> 'a option
   val perhaps_loop: ('a -> 'a option) -> 'a -> 'a option
+  val foldl1: ('a * 'a -> 'a) -> 'a list -> 'a
   val foldr1: ('a * 'a -> 'a) -> 'a list -> 'a
   val foldl_map: ('a * 'b -> 'a * 'c) -> 'a * 'b list -> 'a * 'c list
   val flat: 'a list list -> 'a list
@@ -400,6 +401,11 @@
         | itr (a::l) = f(a, itr l)
   in  itr l  end;
 
+(*  (op @) [x1, ..., xn]  ===>  ((x1 @ x2) @ x3) ... @ xn
+    for operators that associate to the left (TAIL RECURSIVE)*)
+fun foldl1 f [] = raise Empty
+  | foldl1 f (x :: xs) = foldl f (x, xs);
+
 (*  (op @) [x1, ..., xn]  ===>   x1 @ (x2 ... @ (x[n-1] @ xn))
     for n > 0, operators that associate to the right (not tail recursive)*)
 fun foldr1 f [] = raise Empty