#!/usr/bin/perl -w
# Copyright 2010, 2011, 2012, 2013, 2014, 2015 Kevin Ryde
# This file is part of Math-PlanePath.
#
# Math-PlanePath 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-PlanePath 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-PlanePath. If not, see <http://www.gnu.org/licenses/>.
use
5.004;
use
strict;
use
Test;
plan
tests
=> 47;
use
MyTestHelpers;
BEGIN { MyTestHelpers::nowarnings(); }
use
MyOEIS;
# uncomment this to run the ### lines
#use Smart::Comments '###';
my
$path
= Math::PlanePath::HilbertSides->new;
#------------------------------------------------------------------------------
# A096268 - morphism turn 1=straight,0=not-straight
# but OFFSET=0 is turn at N=1, so "next turn"
MyOEIS::compare_values
(
anum
=>
'A096268'
,
func
=>
sub
{
my
(
$count
) =
@_
;
my
$seq
= Math::NumSeq::PlanePathTurn->new (
planepath
=>
'HilbertSides'
,
turn_type
=>
'Straight'
);
my
@got
;
while
(
@got
<
$count
) {
my
(
$i
,
$value
) =
$seq
->
next
;
push
@got
,
$value
;
}
return
\
@got
;
});
#------------------------------------------------------------------------------
exit
0;