C より Haskell の方が偉いです!

なんとなく紹介されていた PKU1519 を考えてみていました。いつも面白そうだなーと思いつつ人のを少しいじっているだけだったので、いちから考えてみました。

http://d.hatena.ne.jp/Ozy/20060617#p3

C で書いてたら konn さんが Haskell で書きはじめましたのでそっちでも書いてみました。

http://haskell.g.hatena.ne.jp/mr_konn/20060618/1150625902

まぁ今のところの回答。

s;main(){for(;s+=getchar()-48;s-=s<0?printf("%d\n",s+38),s:s/10*9);}

f 0=return();f n=print(mod(n-1)9+1)>>main;main=do n<-readLn;f n

というわけで C より Haskell の方が偉いということが証明されました。

はいはい Ruby すごいすごい。

while(0!=i=gets.to_i);p (i-1)%9+1;end
なにかあれば下記メールアドレスへ。
shinichiro.hamaji _at_ gmail.com
shinichiro.h