Data commit

Task/Amicable-pairs/UTFool/amicable-pairs.utfool

@@ -0,0 +1,18 @@
+···
+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