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

【初稿】

import sys
a=raw_input()
for l in sys.stdin:print l,
print a

【初稿】26バイト

print'g'+'o'*input()+'gle'

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

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

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

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

【参照ソースコード】

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

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

問題はここ
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!"])