Comment detail

ダブル完全数 (Nested Flatten)
素直に実装してみました。
キャッシュなどしていないので遅いです。
 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 ;

Index

Feed

Other

Link

Pathtraq

loading...