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

■ [隠密][LLR-R3]更に続き--省略形続き 21:45

略式表示第二形です。

$ ./graph3 2 5 9
+*
+****
+********

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

最小の要素-1の分を+で略します。

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