1Math::NumSeq::DigitCounUts(e3r)Contributed Perl DocumentMaattiho:n:NumSeq::DigitCount(3)
2
3
4

NAME

6       Math::NumSeq::DigitCount -- count of a given digit
7

SYNOPSIS

9        use Math::NumSeq::DigitCount;
10        my $seq = Math::NumSeq::DigitCount->new (radix => 10,
11                                                 digit => 9);
12        my ($i, $value) = $seq->next;
13

DESCRIPTION

15       The count of how many of a given digit is in $i when written out in a
16       given radix.  The default is to count how many 9s in decimal.
17
18           0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, ...
19           starting i=0
20
21       For example i=19 has a single "9" so value=1.
22
23       The "radix" and "digit" options can select a different number base or
24       different digit to count.  For example to count the 0-bits in binary,
25
26           # radix=>2, digit=>0
27           0, 0, 1, 0, 2, 1, 1, 0, 3, 2, 2, 1, 2, 1, 1, 0, 4, 3, 3, 2, ...
28           starting i=0
29
30       i=0 is treated as no digits at all, so it has value=0 for the count of
31       0-bits, and similarly in other bases counting 0 digits.
32
33       Option "digit => -1" gives the highest digit in the radix, ie. radix-1.
34       This is the default, so if "radix" is given the count is of its biggest
35       digit.
36

FUNCTIONS

38       See "FUNCTIONS" in Math::NumSeq for behaviour common to all sequence
39       classes.
40
41       "$seq = Math::NumSeq::DigitCount->new (radix => $r, digit => $d)"
42           Create and return a new sequence object.
43
44           "digit" can be -1 to mean digit radix-1, the highest digit in the
45           radix.
46
47   Random Access
48       "$value = $seq->ith($i)"
49           Return how many of the given "digit" is in $i written in "radix".
50
51       "$bool = $seq->pred($value)"
52           Return true if $value might occur as a digit count, which means
53           simply "$value>=0".
54

SEE ALSO

56       Math::NumSeq, Math::NumSeq::DigitLength,
57       Math::NumSeq::RadixWithoutDigit
58

HOME PAGE

60       <http://user42.tuxfamily.org/math-numseq/index.html>
61

LICENSE

63       Copyright 2010, 2011, 2012, 2013, 2014, 2016, 2017, 2019, 2020 Kevin
64       Ryde
65
66       Math-NumSeq is free software; you can redistribute it and/or modify it
67       under the terms of the GNU General Public License as published by the
68       Free Software Foundation; either version 3, or (at your option) any
69       later version.
70
71       Math-NumSeq is distributed in the hope that it will be useful, but
72       WITHOUT ANY WARRANTY; without even the implied warranty of
73       MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
74       General Public License for more details.
75
76       You should have received a copy of the GNU General Public License along
77       with Math-NumSeq.  If not, see <http://www.gnu.org/licenses/>.
78
79
80
81perl v5.36.0                      2022-07-22       Math::NumSeq::DigitCount(3)
Impressum