Data update

Task/Population-count/Maxima/population-count.maxima

@@ -0,0 +1,21 @@
+popcount(n) := block(
+    bits: makelist(bit_onep(n, i), i, 0, bit_length(n)),
+    length(sublist(bits, "+"))
+)$
+
+makelist(popcount(3^i), i, 0, 29);
+
+evilp(n) := evenp(popcount(n))$
+
+odiousp(n) := oddp(popcount(n))$
+
+firstnums(lim, pred, name) := block(
+    sprint("First", lim, name, "numbers:"),
+    newline(),
+    count: 0, n: 0, while count<lim do(
+        if pred(n) then block(sprint(n), count: count+1),
+        n: n+1))$
+
+firstnums(30, evilp, "evil")$
+
+firstnums(30, odiousp, "odious")$