RosettaCodeData/Task/Population-count/Ada/population-count-1.ada
2023-07-01 13:44:08 -04:00

6 lines
156 B
Ada

with Interfaces;
package Population_Count is
subtype Num is Interfaces.Unsigned_64;
function Pop_Count(N: Num) return Natural;
end Population_Count;