19 lines
426 B
Plaintext
19 lines
426 B
Plaintext
···
|
|
http://rosettacode.org/wiki/Amicable_pairs
|
|
···
|
|
■ AmicablePairs
|
|
§ static
|
|
▶ main
|
|
• args⦂ String[]
|
|
∀ n ∈ 1…20000
|
|
m⦂ int: sumPropDivs n
|
|
if m < n = sumPropDivs m
|
|
System.out.println "⸨m⸩ ; ⸨n⸩"
|
|
|
|
▶ sumPropDivs⦂ int
|
|
• n⦂ int
|
|
m⦂ int: 1
|
|
∀ i ∈ √n ⋯> 1
|
|
m +: n \ i = 0 ? i + (i = n / i ? 0 ! n / i) ! 0
|
|
⏎ m
|