【初稿】 78バイト

import Char
main=mapM print[x|x<-[1..2000],mod x(sum$map digitToInt$show x)<1]

digit sum の解答が落ちていたので、拾い乞食してしまった。。。

【修正後1】 74バイト

f 0=0
f x=mod x 10+f(div x 10)
main=mapM print[x|x<-[1..2000],x`mod`f x<1]

【初稿】 53バイト

f[x,y]=print$x+y
m@main=getLine>>=f.map read.words>>m

【修正1】 50バイト

m@main=getLine>>=print.foldl1(+).map read.words>>m

少し短くなった。

【多分詰み】 44バイト

m@main=getLine>>=print.sum.map read.words>>m

多分、詰みだと思う。foldl とか使わず、sumで良かったのか。

【前回までのベスト】93バイト

import List
main=interact$unlines.take 12.iterate(concatMap(\x->shows(length x)[x!!0]).group)

【修正後1】88バイト

import List
main=interact$unlines.take 12.iterate((>>= \x->shows(length x)[x!!0]).group)

ようやく縮んだ。。。ふー。
>>= と ラムダの間にスペースを入れるとコンパイルが通ったが、
何故それで良いのかイマイチ理解できてない。

golf の戦い方として、concat.map が使える形に落とし込んでから >>= に変換するなどが
あるんだろうなあと感じた問題だった。
この先はかなり暗闇なので、格闘するかは考え中。

【前回までのベスト】98バイト

n#[x]=show n++[x]
n#(x:s)|x==s!!0=(n+1)#s|1>0=n#[x]++1#s
main=interact$unlines.take 12.iterate(1#)

【修正後1】97バイト

n#[x]=shows n[x]
n#(x:s)|x==s!!0=(n+1)#s|1>0=n#[x]++1#s
main=interact$unlines.take 12.iterate(1#)

知っていた技を使っただけなので、斬新な気持ちにはならず。。。
最近、答え落ちてないかなと思って検索すると、自分のブログが引っかかる．．． orz

【修正後2】95バイト

import List
main=interact$unlines.take 12.iterate(concat.map(\x->show(length x)++[x!!0]).group)

group 関数を使うことで、一気に２文字縮んだ。
しかし、甘くないなあ．．．
まだまだ、先があるのか．．．

【修正後3】 94バイト

import List
main=interact$unlines.take 12.iterate(concat.map(\x->shows(length x)[x!!0]).group)

shows は、いつも golf で使うもんだなーと思うようになってきた。


【修正後3】 93バイト
import List
main=interact$unlines.take 12.iterate(concatMap(\x->shows(length x)[x!!0]).group)

http://d.hatena.ne.jp/notogawa/20101011/1286814280

ゴルフ辞典を見て、concat.map f からリストモナド(>>=)につなげることが
キーだと思ったが、なかなかコンパイルが通らない．．．
一週間くらい考えればなんとかなるだろうか。

【初稿】 90バイト

import List
main=mapM(print.(0+))$take 300$nub$sort$map(\x->read$reverse$show$x*x)[1..999]

解くこと自体はそれほど苦ではなかったが、縮むもの？って感じるわけでして…


【修正後1】 85バイト
import List
main=mapM print$take 300$nub$sort[(0+)$read$reverse$show$x^2|x<-[1..999]]

同じロジックだけど、書き方を工夫して５バイト縮まった。ほっ。
しかし、これ以上は縮まらない気がする。。。



【その他1】 92バイト
import List
main=mapM print$take 300$sort[(0+)$read$reverse$show$x^2|x<-[1..999],x`mod`10>0]

nub を使わずに済ませたが．．．縮まない。。。

【考察】
・ scanl(+)1[3,5..] で２乗していくリストは作れるんだが．．．