哈斯克爾管道過濾器不同的值

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]