RosettaCodeData/Task/Population-count/Perl/population-count-2.pl

2 lines
47 B
Raku

say unpack("%b*",pack "J*", 1234567); # J = UV