19 lines
446 B
Haskell
19 lines
446 B
Haskell
import Control.Applicative (ZipList (ZipList, getZipList))
|
|
|
|
main :: IO ()
|
|
main =
|
|
mapM_ putStrLn $
|
|
getZipList
|
|
( (\x y z -> [x, y, z])
|
|
<$> ZipList "abc"
|
|
<*> ZipList "ABC"
|
|
<*> ZipList "123"
|
|
)
|
|
<> getZipList
|
|
( (\w x y z -> [w, x, y, z])
|
|
<$> ZipList "abcd"
|
|
<*> ZipList "ABCD"
|
|
<*> ZipList "1234"
|
|
<*> ZipList "一二三四"
|
|
)
|