とりあえず、答え見なくても
問題を解くだけなら、何とかクリアできた。
縮めていくが、どこまでいけるか心配。。。

【初稿】 87 バイト

f n[]=[]
f n(x:s)|'Y'==x=n:f(n+1)s|1>0=f(n+1)s
main=do s<-getContents
	mapM print$f 0 s

【修正後1】 78 バイト

f n[]=[]
f n(x:s)|'Y'==x=show n:f(n+1)s|1>0=f(n+1)s
main=interact$unlines.(f 0)

問題はここ
http://golf.shinh.org/p.rb?double+back+lines



【初稿】 43 バイト

while 1:l=raw_input();print l[0:-1]+l[::-1]

l[::-1] は、文字列を逆にするっぽい。
haskell の reverse と同じか。

l[0:-1] は、文字列の最後の文字だけ削除するっぽい。
なので、haskell の init と同じか。

大分　こなれてきた。

【初稿】

while 1:
 a=raw_input()
 if a!='':print a

http://golf.shinh.org/p.rb?exit+status


【初稿】 69 バイト

i=raw_input()[0]
if i=='t':a=0
if i=='f':a=1
if i=='e':a=255
print a

【修正後1】 66 バイト

i=raw_input()[0]
if i=='t':a=0
elif i=='f':a=1
else:a=255
print a

問題はここ

http://golf.shinh.org/p.rb?apple+lines

Python で書けるか心配だったが、やってみたら書けた♪
前進しているよ～(涙)


【初稿】 72 バイト

n=input();a="apple"+"*"*25
for i in range(0,n+1):print a;a=a[29]+a[:29]

【修正後1】 66 バイト

n=input();a="apple"+"*"*25
while n>=0:n-=1;print a;a=a[29]+a[:29]