Data update

Task/Population-count/ALGOL-68/population-count.alg

@@ -14,7 +14,7 @@ PROC population count = ( LONG INT n )INT:
 # population count of 3^0, 3^1, 3*2, ..., 3^29                               #
 LONG INT  power of three := 1;
 print( ( "3^x pop counts:" ) );
-FOR power FROM 0 TO 29 DO
+FROM 0 TO 29 DO
     print( ( " ", whole( population count( power of three ), 0 ) ) );
     power of three *:= 3
 OD;

Task/Population-count/PascalABC.NET/population-count.pas

@@ -0,0 +1,10 @@
+function popcount(n: int64) := Convert.ToString(n, 2).Count(x -> x = '1');
+
+begin
+  Print('pow3:   ');
+  (0..29).Select(x -> popcount(int64(3 ** x))).Println;
+  Print('evil:   ');
+  (0..99).Where(x -> popcount(x).Iseven).Take(30).Println;
+  Print('odious: ');
+  (0..99).Where(x -> popcount(x).Isodd).Take(30).Println;
+end.