initial

examples/set-bits.carp

@@ -0,0 +1,13 @@
+(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)))