Back to task

267 symbols haskell
Sun Mar 15 12:57:53 2015 YoshikuniJujo
import Numeric
import Data.List
m=map
a=reverse
main=interact$unlines.m(a.dropWhile(==' ').a.intercalate"  ").s.m((\[r,n]->(read r,n)).words).lines
s e=("\\  ":m((++" ").snd)e):zipWith(:)(m snd e)(m(m i.((\x->m((/x).fst)e).fst))e)
i 1="1   "
i x=showFFloat(Just 2)x""


Leave a comment

Parsed as Markdown

Login to leave a comment