2 popcnt - number of bit that match a given value
8 x number (real or integer)
14 Count the number of bits in abs(x) that match bitval. The default
15 bitval is 1 which counts the number of 1 bits.
17 The popcnt function is equivalent to #x when x is an integer.
20 ; print popcnt(32767), popcnt(3/2), popcnt(pi(),0), popcnt(pi(),1)
23 ; print popcnt(randombit(128), 0), popcnt(randombit(128), 1)
30 long zpopcnt(ZVALUE z, int bitval)
35 ## Copyright (C) 1999 Landon Curt Noll
37 ## Calc is open software; you can redistribute it and/or modify it under
38 ## the terms of the version 2.1 of the GNU Lesser General Public License
39 ## as published by the Free Software Foundation.
41 ## Calc is distributed in the hope that it will be useful, but WITHOUT
42 ## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
43 ## or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General
44 ## Public License for more details.
46 ## A copy of version 2.1 of the GNU Lesser General Public License is
47 ## distributed with calc under the filename COPYING-LGPL. You should have
48 ## received a copy with calc; if not, write to Free Software Foundation, Inc.
49 ## 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
51 ## @(#) $Revision: 30.1 $
52 ## @(#) $Id: popcnt,v 30.1 2007/03/16 11:10:42 chongo Exp $
53 ## @(#) $Source: /usr/local/src/cmd/calc/help/RCS/popcnt,v $
55 ## Under source code control: 1997/09/11 04:20:02
56 ## File existed as early as: 1997
58 ## chongo <was here> /\oo/\ http://www.isthe.com/chongo/
59 ## Share and enjoy! :-) http://www.isthe.com/chongo/tech/comp/calc/