fork download
copy 
  1. ;; (import (chicken bitwise))
  2. (define (popcount d)
  3.   (define (aux acc d)
  4.     (if (= d 0)
  5.         acc
  6.         (aux (+ acc (bitwise-and d 1)) (arithmetic-shift d -1))))
  7.   (aux 0 d))
  8. (define f
  9.   (compose popcount char->integer))
  10. (print (f #\a))
  11.  
Success #stdin #stdout 0.01s 7908KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
3
https://ideone.com/Xc5SlP
language:
Scheme (chicken 4.13)
created:
138 days ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!