14 lines
254 B
Plaintext
14 lines
254 B
Plaintext
(load "main.carp")
|
|
|
|
(inline-c "int count_set_bits(int n) {
|
|
int count = 0;
|
|
while (n) {
|
|
count += n & 1;
|
|
n >>= 1;
|
|
}
|
|
return count;
|
|
}")
|
|
(register count-set-bits (Fn [Int] Int) "count_set_bits")
|
|
|
|
(defn main [] (println* &(count-set-bits 462)))
|