Math::NumSeq::DigitExtract -- one of the digits of integers 0 upwards
use Math::NumSeq::DigitExtract; my $seq = Math::NumSeq::DigitExtract->new (extract_type => 'median'); my ($i, $value) = $seq->next;
In progress ...
Extract one of the digits from the index i. extract_type (a string) can be
extract_type
"low" least significant digit "high" most significant digit "second_low" second least significant digit "second_high" second most significant digit "middle" middle digit "minimum" smallest digit "maximum" largest digit "mean" average sum/n "geometric_mean" nthroot(product) "quadratic_mean" sqrt(sumsquares/n) "median" middle digit when sorted "mode" most frequent digit
For "middle" and "median" when there's an even number of digits the average (mean) of the two middle ones is returned, or the round parameter can be "ceil" or "floor" to go to the more/less significant for the middle or the higher/lower for the median.
round
For the averages the result is a fractional value in general, but the round parameter "ceil" or "floor can round to the next integer.
See "FUNCTIONS" in Math::NumSeq for the behaviour common to all path classes.
$seq = Math::NumSeq::DigitExtract->new (length => $integer)
Create and return a new sequence object.
$value = $seq->ith($i)
Return the $i'th value from the sequence.
$i
Math::NumSeq, Math::NumSeq::Digit
http://user42.tuxfamily.org/math-numseq/index.html
Copyright 2012 Kevin Ryde
Math-NumSeq is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version.
Math-NumSeq is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
You should have received a copy of the GNU General Public License along with Math-NumSeq. If not, see <http://www.gnu.org/licenses/>.
To install Math::NumSeq, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Math::NumSeq
CPAN shell
perl -MCPAN -e shell install Math::NumSeq
For more information on module installation, please visit the detailed CPAN module installation guide.