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
なにかあれば下記メールアドレスへ。
shinichiro.hamaji _at_ gmail.com
shinichiro.h