Data update

Task/Population-count/Refal/population-count.refal

@@ -0,0 +1,41 @@
+$ENTRY Go {
+    = <Prout <Gen 30 All Pow3 (1)>>
+      <Prout <Gen 30 Evil Iota (0)>>
+      <Prout <Gen 30 Odious Iota (0)>>;
+};
+
+Gen {
+    0   s.Fil s.Gen (s.State) = ;
+    s.N s.Fil s.Gen (s.State),
+        <Mu s.Gen s.State>: (s.Next) s.Item,
+        <Mu s.Fil s.Item>: {
+            T = s.Item <Gen <- s.N 1> s.Fil s.Gen (s.Next)>;
+            F = <Gen s.N s.Fil s.Gen (s.Next)>;
+        };
+};
+
+Popcount {
+    0 = 0;
+    s.N, <Divmod s.N 2>: (s.R) s.B = <+ s.B <Popcount s.R>>;
+};
+
+Pow3 {
+    s.N = (<* 3 s.N>) <Popcount s.N>;
+};
+
+Evil {
+    s.N, <Mod <Popcount s.N> 2>: {
+        0 = T;
+        1 = F;
+    };
+};
+
+Odious {
+    s.N, <Mod <Popcount s.N> 2>: {
+        0 = F;
+        1 = T;
+    };
+};
+
+All { s.X = T; }
+Iota { s.N = (<+ 1 s.N>) s.N; }