参考:http://stackoverflow.com/a/9153617
http://www.haskell.org/haskellwiki/How_to_write_a_Haskell_program
1
2
3 trizip :: [a] -> [b] -> [c] -> [(a,b,c)]
4 trizip a b c
5 | null a = []
6 | null b = []
7 | null c = []
8 trizip (x:xs) (y:ys) (z:zs) = (++) [(x,y,z)] (trizip xs ys zs)
9
10 main = do
11 let asciit = trizip [0x1..0x7f] ['\x01'..'\x7f'] [0x1..0x7f]
12 print "Done!"
运行方式
daniel@daniel-mint ~/haskell $ ghc --make trizip.hs -o trizip
[1 of 1] Compiling Main ( trizip.hs, trizip.o )
Linking trizip ...
daniel@daniel-mint ~/haskell $ ./trizip
"Done!"
daniel@daniel-mint ~/haskell $
或者
daniel@daniel-mint ~/haskell $ runhaskell trizip.hs
"Done!"