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