Short
PKU2313 via http://d.hatena.ne.jp/nuc/20060714/p1
煽られました。 120Byte まで。途中からひどいコードになった。
Collatz via http://haskell.g.hatena.ne.jp/mr_konn/20060716/1153021780
負けず嫌いです。 91Byte 。
g 1=1 g n=1+g n*(n`mod`2*5+1)`div`2+n`mod`2 l=[1..100] main=print$snd$maximum$zip(map g l)l