syat #6989(2008/08/05 09:03 GMT) [ C ] Rating0/0=0.00
1 2 3 4 5
●止まらない問題修正版(56byte) b;main(a){b=getchar();~b&&main(putchar(b-a>64?b-32:b));} ●外道版(45byte) main(){system("perl -pe\"s/\\b./\\U$&/g\"");}
Rating0/0=0.00-0+
2 replies [ reply ]
syat
#6989()
[
C
]
Rating0/0=0.00
（うちのパソコンだと5万回くらいで終了。ただしゴミが出まくる）
putcharとgetcharのつづりをこれ以上短くできないのが痛いです。
やけくそで外道版も書いてみました。
Rating0/0=0.00-0+