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

■ [隠密][LLR-R3]続き 21:37

別ヴァージョン造りました。

今度はこんな感じです。

$ ./graph2 2 5 9
**
*****
*********

$ ./graph2 22 25 39
++**
++*****
++*******************

間を省略して表示します。

一番最小の数を10で割った分だけ略します(謎

まあ見ての通りです。

import System
bg a=concatMap(((replicate q '+')++).(++"\n").(flip replicate) '*'.(+(-q*10)))a
  where
    q=minimum a`div`10
main=do arg<-getArgs
        putStrLn$bg$map read arg