File Coverage

blib/lib/Math/NumSeq/AlphabeticalLengthSteps.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

# Copyright 2012, 2015 Kevin Ryde

# This file is part of Math-NumSeq-Alpha.
#
# Math-NumSeq-Alpha 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-Alpha 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-Alpha.  If not, see .



# Should values in cycles be all 0 ?





package Math::NumSeq::AlphabeticalLengthSteps;
use 5.004;
use strict;
use List::Util 'min';

use vars '$VERSION', '@ISA';
$VERSION = 3;
use Math::NumSeq;
use Math::NumSeq::Base::IterateIth;
@ISA = ('Math::NumSeq::Base::IterateIth',
        'Math::NumSeq');
*_is_infinite = \&Math::NumSeq::_is_infinite;

use Math::NumSeq::AlphabeticalLength;

# uncomment this to run the ### lines
#use Smart::Comments;


# use constant name => Math::NumSeq::__('...');
use constant description => Math::NumSeq::__('Steps of alphabetical length until reaching a cycle.');
use constant default_i_start => 1;
use constant characteristic_count => 1;
use constant characteristic_smaller => 1;
use constant characteristic_integer => 1;

*parameter_info_array
  = \&Math::NumSeq::AlphabeticalLength::parameter_info_array;

sub values_min {
  my ($self) = @_;
  ### oeis_anum: $self
  if (defined (my $values_min = $self->{'values_min'})) {
    return $values_min;
  }
  my $i_start = $self->i_start;
  return ($self->{'values_min'}
          = min (map {$self->ith($_)}
                 $i_start .. $i_start + 20));
}

#------------------------------------------------------------------------------
# A133418 single step towards 4

my %oeis_anum = (A005589 => 'A016037', # en cardinals
                );
sub oeis_anum {
  my ($self) = @_;
  return $oeis_anum{$self->{'lenseq'}->oeis_anum || ''};
}

# forty two = 8
# eight = 5
# five = 4
# four = 4

# forty three = 10
# ten = 3
# three = 5
# five = 4
# four = 4
#
# forty three = 11 ... is 5 steps

# forty four = 9
# nine = 4
# four = 4

# fifty seven = 11
# eleven = 6
# size = 3
# three = 5
# five = 4
# four = 4   is 5 steps
#
# fifty seven = 10 ... is 4 steps


#------------------------------------------------------------------------------

sub new {
  ### AlphabeticalLengthSteps new(): @_
  my $self = shift->SUPER::new(@_);
  $self->{'lenseq'} = Math::NumSeq::AlphabeticalLength->new(@_);
  return $self;
}

sub ith {
  my ($self, $i) = @_;
  ### AlphabeticalLengthSteps ith(): $i

  if (_is_infinite($i)) {
    return undef;
  }

  my $count = 0;
  my %seen;
  for (;;) {
    $seen{$i} = undef;
    $i = $self->{'lenseq'}->ith($i);
    if (! defined $i) {
      return undef;
    }
    ### to: $i
    last if exists $seen{$i};
    $count++;
  }

  return $count;
}

1;
__END__