哈斯克尔管道过滤器不同的值

Question

如果我用下面的Source：

sourceList [1,3,3,1,2,3] 

是否有可能一些过滤器或组合子只适用于允许不同的值被传递到下游？

那么在我的例子中，只有[1,3,2]会传递到下游？

Answer 1

像这样的东西应该做的：

#!/usr/bin/env stack 
-- stack --resolver lts-6.19 runghc --package conduit-combinators 
import Conduit 
import Data.Conduit.List (sourceList) 

main = do 
    print $ runConduitPure $ sourceList [1,3,3,1,2,3] .| myConduit [] .| sinkList 

myConduit dup = do 
    num <- await 
    case num of 
    Just x -> if x `elem` dup 
       then myConduit dup 
       else do 
       yield x 
       myConduit (x:dup) 
    Nothing -> return() 

在执行时：

sibi::casey { ~/scripts }-> ./cond.hs 
[1,3,2] 

Answer 2

#!/usr/bin/env stack 
-- stack --resolver lts-6.19 runghc --package conduit-combinators 
import Conduit 
import Data.Conduit.List (sourceList, mapAccum, catMaybes) 
import Control.Monad (void) 

main = do 
    print $ runConduitPure $ sourceList [1,3,3,1,2,3] .| void (mapAccum foo []) .| catMaybes .| sinkList 

foo :: Int -> [Int] -> ([Int], Maybe Int) 
foo x dup | x `elem` dup = (dup, Nothing) 
foo x dup = (x:dup, Just x) 

在执行时：

C:\Users\Gurkenglas\scripts>stack conduitnub.hs 
[1,3,2]