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