日記

_ 今日の一行 (2006-03-14) AA折れ線グラフ を書く。

import Data.List
 
main = do str <- getLine
          let xs = snd $ mapAccumL f 0 str
              ys = map fst xs
              a = minimum ys
              b = maximum ys
          putStr $ unlines [map (g l) xs | l <- reverse [a..b]]
 
f l 'R' = (l + 1, (l, '/'))
f l 'C' = (l,     (l, '_'))
f l 'F' = (l - 1, (l - 1, '\\'))
 
g l (l', c) | l == l' = c
            | True    = ' '