前回までは、ここで記述。

http://betweens.blog.shinobi.jp/Entry/107/

自力では、これ以上縮まないので、あきらめた。

以下は、参考にさせて頂いたコード。

【参照ソースコード】

main=interact(\t->unlines[show n|(n,y)<-zip[0..]t,y=='Y'])

zip と条件判定(y=='Y') を使うと、解けるのか～
かなり、カルチャーショックだ。。。