horiuchi #6070(2008/03/25 09:11 GMT) [ Other ] Rating0/0=0.00
素直に実装してみました。 キャッシュなどしていないので遅いです。
1 2 3 4 5 6 7 8 9 10 11
: SUMDIV ( n -- m ) 0 SWAP DUP 1 DO DUP I MOD 0= IF SWAP I + SWAP THEN LOOP DROP ; : WCOMPNUM ( n -- ) 2 DO I SUMDIV I 2* = IF I . CR THEN LOOP ;
Rating0/0=0.00-0+
[ reply ]
horiuchi
#6070()
[
Other
]
Rating0/0=0.00
: SUMDIV ( n -- m ) 0 SWAP DUP 1 DO DUP I MOD 0= IF SWAP I + SWAP THEN LOOP DROP ; : WCOMPNUM ( n -- ) 2 DO I SUMDIV I 2* = IF I . CR THEN LOOP ;Rating0/0=0.00-0+
[ reply ]