すごいHaskell読書会 #7 課題

sudden.hs

import Data.Char
import Data.List
import System.Environment

charLen :: (Num a) => Char -> a
charLen c 
  | (ord c) <= 255 = 1
  | otherwise = 2

multibyteStringLen :: (Num a) => String -> a
multibyteStringLen s = sum $ map charLen s

doubleCharLine :: (RealFrac a) => a -> String -> String
doubleCharLine i c = concat $ replicate (ceiling $ i / 2) c

upperLine :: (RealFrac a) => a -> String
upperLine i = "＿" ++ (doubleCharLine (i + 4) "人") ++ "＿"

lowerLine :: (RealFrac a) => a -> String
lowerLine i = "￣" ++ (doubleCharLine (i + 4) "Y^") ++ "￣"

centerLine :: String -> String
centerLine s 
  | odd (multibyteStringLen s) = "＞　" ++ s ++ " 　＜"
  | otherwise = "＞　" ++ s ++ "　＜"

balloon :: String -> String
balloon s = intercalate "\n" [(upperLine (multibyteStringLen s)), (centerLine s), (lowerLine (multibyteStringLen s))]

sudden :: String -> String
sudden s = balloon $ "突然の" ++ s

main = do 
  args <- getArgs
  putStrLn (sudden $ intercalate " " args)