main=putStr$init$show$pi

うーん。これなら何とか。。。

他の投稿のバイト数を見てしまうと、
解けてしまう。

【初稿】43バイト


import List
main=interact$unlines.nub.words

何をしてるんだか。。。

pragma(msg,"Hello, world!");

トップに食いついたと思ったが、さすがに強い。。。

【初稿】

main=mapM putStrLn ※改行無しで続く
[["-*?@.#`%$\\:[{'\""!!max(abs a-10)(abs b)|a<-[-24..24],a/=0]|b<-[-14..14]]

【修正後】

main=mapM putStrLn ※改行無しで続く
[["-*?@.#`%$\\:[{'\""!!maximum[15-a,a-34,abs b]|a<-[1..48]]|b<-[-14..14]]

もしかして、
dropWhile 使えば縮む？

明日やってみることにしよう。。。