1つのループでインターレース要素を分離する

Question

インターレース要素を分離する関数を書いた。

interlacedElems :: [a] -> ([a], [a]) 
interlacedElems xs = (f xs, f $ tail xs) 
    where f (x:_:xs) = x : f xs 
     f x = x 

main = print $ interlacedElems "a1b2c3d4" 

生成出力：私のコードで

("abcd","1234") 

私は効果的に二回が、わずかに異なり、同じリストを毎回再帰、fを定義し、それを2回使用しています。

私の質問は：私はこれを書くことができる方法はありますか？それはより効率的なので、あなたは馬鹿だと思いませんか？

脳の一部が漏出してしまったのを見てみると、私はいつも脳のジュースが全部あふれていると言い、お母さんは私に言いました。カーペット。

はあなたに素敵な人たちに感謝:)

Answer 1

私は再帰的タプルにリストを分割する関数を記述し、その後unzipを使用します。

listToTuples :: [a] -> [(a, a)] 
listToTuples (x:y:xs) = (x, y) : listToTuples xs 
listToTuples _ = [] 

interlacedElems :: [a] -> ([a], [a]) 
interlacedElems = unzip . listToTuples 

Answer 2

ます。また、それはこのトリックを使用してfoldrを使用して行うことができます。

interlacedElems :: [a] -> ([a], [a]) 
interlacedElems = foldr (\x ~(l,r) -> (x:r,l)) ([],[]) 

注

反駁可能なパターン~(l,r)は、無限リストに作用します。