http://golf.shinh.org/

で、コードゴルフをやってみた。問題は【google】

---------------------------------------------------------------------------

main=do l<-readLn;putStrLn$"g"++replicate l 'o'++"gle"

---------------------------------------------------------------------------

まだまだ、縮むらしい。。。


この人はきっと　神クラスなんだろうなあ。。。

http://hpcgi2.nifty.com/1to100pen/wiki/wiki.cgi?p=%A4%A2%A4%CA%A4%B4%A4%EB


その後、１バイトだけ縮められた。。。

main=do l<-readLn;putStrLn$'g':replicate l 'o'++"gle"

その後、改行無くても良いことに気づいた。。。 orz
つうことで、世界記録まであと３バイト！！

main=do l<-readLn;putStr$'g':replicate l 'o'++"gle"

ネット巡回していたら、こういうコードもあった。。。すげー

main=interact(\x->'g':replicate(read x)'o'++"gle")

仕方ないので、上から並べてみた。

f n=[1..n]>>"o";main=do n<-readLn;putStr$'g':f n++"gle"
main=readLn>>=putStr.('g':).(++"gle").(`replicate`'o')
main=readLn>>=putStr.(\x->'g':replicate x 'o'++"gle")
main=do n<-readLn;putStr$'g':(take n$cycle"o")++"gle"
main=interact(\x->'g':(take(read x)$cycle"o")++"gle")
main=do l<-readLn;putStr$"g"++replicate l 'o'++"gle"
main=do l<-readLn;putStr$'g':replicate l 'o'++"gle"
main=interact(\x->'g':replicate(read x)'o'++"gle")

同じ動きするのに、コードの長さは変わるんだなあ。。