はてな使ったら負けだと思っている deriving Haskell

■ [隠密][LLR-R3]グラフを描く！ 19:07

与えられた数値を元にグラフを描くアプリを作れ！だそうです。

僕のではこんなグラフが出来ます。

$ ./graph 2 5 9
********************|
**************************************************|
******************************************************************************************|

最大公約数/最大要素を各数にかけた分だけ*を描くわけです。

コード。

import System
bg a=concatMap((++"|\n").((flip replicate) '*').(*(d div lcs maximum a)))a
  where
    lcs=foldr1 lcm
    d f g h n=f(g n)(h n)
main=do arg<-getArgs
        putStrLn$bg$map read arg