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

Timestamp:

09/29/06 20:26:31 (2 years ago)

Author:

lanny

Message:

* implemented cat()

Files:

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

src/Pugs/Prim/List.hs

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