Data commit

Task/Zumkeller-numbers/PicoLisp/zumkeller-numbers.l

@@ -0,0 +1,52 @@
+(de propdiv (N)
+   (make
+      (for I N
+         (and (=0 (% N I)) (link I)) ) ) )
+(de sum? (G L)
+   (cond
+      ((=0 G) T)
+      ((= (car L) G) T)
+      ((cdr L)
+         (if (> (car L) G)
+            (sum? G (cdr L))
+            (or
+               (sum? (- G (car L)) (cdr L))
+               (sum? G (cdr L)) ) ) ) ) )
+(de zum? (N)
+   (let (L (propdiv N)  S (sum prog L))
+      (and
+         (not (bit? 1 S))
+         (if (bit? 1 N)
+            (let A (- S (* 2 N))
+               (and (gt0 A) (not (bit? 1 A)))
+            )
+            (sum?
+               (- (/ S 2) (car L))
+               (cdr L) ) ) ) ) )
+(zero C)
+(for (I 2 (> 220 C) (inc I))
+   (when (zum? I)
+      (prin (align 3 I) " ")
+      (inc 'C)
+      (and
+         (=0 (% C 20))
+         (prinl) ) ) )
+(prinl)
+(zero C)
+(for (I 1 (> 40 C) (inc 'I 2))
+   (when (zum? I)
+      (prin (align 9 I) " ")
+      (inc 'C)
+      (and
+         (=0 (% C 8))
+         (prinl) ) ) )
+(prinl)
+(zero C)
+# cheater
+(for (I 81079 (> 40 C) (inc 'I 2))
+   (when (and (<> 5 (% I 10)) (zum? I))
+      (prin (align 9 I) " ")
+      (inc 'C)
+      (and
+         (=0 (% C 8))
+         (prinl) ) ) )