1Math::NumSeq::ConcatNumUbseerrs(C3o)ntributed Perl DocumMeanttha:t:iNounmSeq::ConcatNumbers(3)
2
3
4
6 Math::NumSeq::ConcatNumbers -- concatenate digits of i, i+1
7
9 use Math::NumSeq::ConcatNumbers;
10 my $seq = Math::NumSeq::ConcatNumbers->new;
11 my ($i, $value) = $seq->next;
12
14 The concatenation of i and i+1 as digits, starting from i=0,
15
16 1, 12, 23, 34, 45, 56, 67, 78, 89, 910, 1011, 1112, ...
17
18 The default is decimal, or optional "radix" parameter selects another
19 base.
20
21 Since the two i and i+1 usually have the same number of digits, the
22 resulting concatenated value has an even number of digits. The
23 exception is at i=9 i+1=10, or i=99 i+1=100, etc, i=99..99 when the
24 resulting value has an odd number of digits.
25
26 Being an even number of digits makes power gaps between for instance 89
27 and 1011, then 998999 and 10001001.
28
29 Concat Count
30 Option "concat_count => $c" selects how many of i,i+1,i+2,i+3,etc are
31 concatenated. For example "concat_count => 3" gives
32
33 12, 123, 234, 345, 456, 567, 678, 789, 8910, 91011, 101112, 111213, ...
34
35 "concat_count => 1" means all integers (the same as Math::NumSeq::All).
36
38 See "FUNCTIONS" in Math::NumSeq for the behaviour common to all path
39 classes.
40
41 "$seq = Math::NumSeq::ConcatNumbers->new ()"
42 "$seq = Math::NumSeq::ConcatNumbers->new (radix => $r, concat_count =>
43 $c)"
44 Create and return a new sequence object.
45
46 Random Access
47 "$value = $seq->ith($i)"
48 Return the concatenation of $i, "$i+1", etc.
49
51 Math::NumSeq::All, Math::NumSeq::AllDigits
52
54 <http://user42.tuxfamily.org/math-numseq/index.html>
55
57 Copyright 2011, 2012, 2013, 2014, 2016, 2018, 2019, 2020 Kevin Ryde
58
59 Math-NumSeq is free software; you can redistribute it and/or modify it
60 under the terms of the GNU General Public License as published by the
61 Free Software Foundation; either version 3, or (at your option) any
62 later version.
63
64 Math-NumSeq is distributed in the hope that it will be useful, but
65 WITHOUT ANY WARRANTY; without even the implied warranty of
66 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
67 General Public License for more details.
68
69 You should have received a copy of the GNU General Public License along
70 with Math-NumSeq. If not, see <http://www.gnu.org/licenses/>.
71
72
73
74perl v5.36.0 2022-07-22 Math::NumSeq::ConcatNumbers(3)