Data commit

Task/Weird-numbers/Sidef/weird-numbers.sidef

@@ -0,0 +1,20 @@
+func is_pseudoperfect(n, d = n.divisors.slice(0, -2), s = d.sum, m = d.end) {
+
+    return false if (m < 0)
+
+    while (d[m] > n) {
+        s -= d[m--]
+    }
+
+    return true if (n == s)
+    return true if (d[m] == n)
+
+    __FUNC__(n-d[m], d, s-d[m], m-1) || __FUNC__(n, d, s-d[m], m-1)
+}
+
+func is_weird(n) {
+    (n.sigma > 2*n) && !is_pseudoperfect(n)
+}
+
+var w = (1..Inf -> lazy.grep(is_weird).first(25))
+say "The first 25 weird numbers:\n#{w.join(' ')}"