13 lines
242 B
Text
13 lines
242 B
Text
|
open monad io list imperative
|
||
|
|
|
||
|
|
xs = zipWith3 (\x y z -> show x ++ show y ++ show z) ['a','b','c']
|
||
|
|
['A','B','C'] [1,2,3]
|
||
|
|
|
||
|
|
print x = do putStrLn x
|
||
|
|
|
||
|
|
print_and_calc xs = do
|
||
|
|
xss <- return xs
|
||
|
|
return $ each print xss
|
||
|
|
|
||
|
|
print_and_calc xs ::: IO
|