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

Timestamp:

09/29/06 20:03:10 (2 years ago)

Author:

lanny

Message:

* implemented roundrobin()

Files:

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

src/Pugs/Prim/List.hs

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