Changeset 12436 for src/Pugs/Prim/List.hs

Timestamp:

08/19/06 08:05:01 (2 years ago)

Author:

audreyt

Message:

* First-cut implementation of &zip and &each.

Files:

• src/Pugs/Prim/List.hs (modified) (2 diffs)

src/Pugs/Prim/List.hs

@@ -2 +2 @@
 
 module Pugs.Prim.List (
-    op0Zip, op1Pick, op1Sum,
+    op0Zip, op0Each, op1Pick, op1Sum,
     op1Min, op1Max, op1Uniq,
     op2ReduceL, op2Reduce, op2Grep, op2Map, op2Join,
@@ -18 +18 @@
 
 op0Zip :: [Val] -> Eval Val
-op0Zip = fmap (VList . concat . op0Zip') . mapM fromVal
+op0Zip = fmap (VList . fmap VList . op0Zip') . mapM fromVal
+
+op0Each :: [Val] -> Eval Val
+op0Each = fmap (VList . concat . op0Zip') . mapM fromVal
 
 op0Zip' :: [[Val]] -> [[Val]]