RosettaCodeData/Task/Population-count/Ada/population-count-1.ada

7 lines
156 B
Ada
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
with Interfaces;
package Population_Count is
subtype Num is Interfaces.Unsigned_64;
function Pop_Count(N: Num) return Natural;
end Population_Count;