Remove zipTwoLists

This function is redundant (we also have zipLists).
This commit is contained in:
Eelco Dolstra
2015-07-28 14:56:27 +02:00
parent 67b1a20f12
commit 7c30ce9562
2 changed files with 9 additions and 23 deletions

View File

@@ -209,20 +209,6 @@ rec {
init = list: assert list != []; take (length list - 1) list;
# Zip two lists together.
zipTwoLists = xs: ys:
let
len1 = length xs;
len2 = length ys;
len = if len1 < len2 then len1 else len2;
zipTwoLists' = n:
if n != len then
[ { first = elemAt xs n; second = elemAt ys n; } ]
++ zipTwoLists' (n + 1)
else [];
in zipTwoLists' 0;
deepSeqList = xs: y: if any (x: deepSeq x false) xs then y else y;
crossLists = f: foldl (fs: args: concatMap (f: map f args) fs) [f];