【前回までのベスト】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 からリストモナド(>>=)につなげることが
キーだと思ったが、なかなかコンパイルが通らない．．．
一週間くらい考えればなんとかなるだろうか。