DouKaku?beta

Comment detail

LL Golf Hole 8 - 横向きのピラミッドを作る (Nested Flatten) 
1
main=do n<-readLn;mapM(putStrLn.(`replicate`'*').(n-).abs)[-n+1..n-1]

[1-n,n-1]で1B。自分の名前を忘れないでください(笑)的なことで4B。次の標準から外れるらしいn+kパターンの存在を思い出して3B。

1
main=do n+1<-readLn;mapM(\k->putStrLn$[abs k..n]>>"*")[-n..n]

> [abs k..n]>>"*"
replicate(n-(abs k)+1)'*'になるんですね。うまいなあ。

> 自分の名前を忘れないでください(笑)的
[1..100]>>"orz"

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]