問題はここ
http://golf.shinh.org/p.rb?Smileys+Triangle

最初から、結構頑張ったが、これ以上縮める自信はないっす。。。

【初稿】 46 バイト

for i in range(34):print':-)'[:i+1]+'))'*(i-2)

【修正後1】 46 バイト : exec 使っても縮まない。。。

i=0;exec"print':-)'[:i+1]+'))'*(i-2);i+=1;"*34

【修正後】 44 バイト : なんとか縮めた♪

i=1;exec"print':-)'[:i]+'))'*(i-3);i+=1;"*34

▼つづきはこちら

問題は、ここ。
http://golf.shinh.org/p.rb?happy+new+year

【初稿】 103 バイト

g '('=')'
g ')'='('
g 'b'='d'
g c=c
main=interact(\x->unwords["happy",map g$reverse x,"new",x,"year!"])

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

【初稿】 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