Changeset 3477

Timestamp:

05/20/05 00:33:01 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5016

Message:

* &reduce always reduce from left to right, unlike ...

Location:

src/Pugs

Files:

• Prim.hs (modified) (1 diff)
• Prim/List.hs (modified) (2 diffs)

src/Pugs/Prim.hs

@@ -613 +613 @@
 op2 "map"  = op2Map
 op2 "join" = op2Join
-op2 "reduce" = op2Fold
+op2 "reduce" = op2FoldL
 op2 "kill" = \s v -> do
     sig  <- fromVal s

src/Pugs/Prim/List.hs

@@ -1 +1 @@
 module Pugs.Prim.List (
     op0Zip, op1Pick, op1Sum,
-    op2Fold, op2Grep, op2Map, op2Join,
+    op2FoldL, op2Fold, op2Grep, op2Map, op2Join,
     sortByM,
 ) where
@@ -47 +47 @@
     vals <- fromVal list
     foldM (op2Numeric (+)) undef vals
+
+op2FoldL :: Val -> Val -> Eval Val
+op2FoldL sub@(VCode _) list = op2FoldL list sub
+op2FoldL list sub = do
+    code <- fromVal sub
+    op2Fold list $ VCode code{ subAssoc = "left" }
 
 op2Fold :: Val -> Val -> Eval Val