blob: bba2dcc10f811661ca9630445caca61dee7df097 (
plain)
1
2
3
4
5
6
7
8
9
|
import H47
import Control.Monad (replicateM)
tablen :: Int -> ([Bool] -> Bool) -> IO ()
tablen n f = mapM_ putStrLn [toStr a ++ " => " ++ show (f a) | a <- args n]
where args n = replicateM n [True, False]
toStr = unwords . map (\x -> show x ++ space x)
space True = " "
space False = " "
|
