Examples collection
/ P06 - Find out whether a list is a palindrome.
P06 - Find out whether a list is a palindrome.
use v6;
sub palindromic(@list) {
return True if @list < 2;
my $start = 0;
my $end = @list.end;
my $mid_start = floor(@list / 2 - 1);
my $mid_end = ceiling(@list / 2);
@list[$start .. $mid_start] ~~ @list[$mid_end .. $end].reverse.list;
}
my @examples = [
[[< a b c d E >], False],
[[< a b c b a >], True],
[[< a b b E >], False],
[[< E b b a>], False],
[[< a b b a >], True],
[[< a >], True],
[[< a a >], True],
[[< E a >], False] ];
for @examples -> ($list, $result) {
my $is-result = $result ?? "" !! "not ";
if palindromic($list) != $result {
die "{$list.perl} was expected {$is-result}to be a palindrome, but isn't";
}
else {
say $list ~ " is {$is-result}a palindrome";
}
}
# vim: expandtab shiftwidth=4 ft=perl6
See Also P04-topo.pl
P04 - Find the number of elements in a list.
P06-topo.pl
P06 - Find out whether a list is a palindrome.
P08-eric256.pl
P08 - Eliminate consecutive duplicates of list elements.
P08-topo.pl
P08 - Eliminate consecutive duplicates of list elements.
P08-viklund.pl
P08 - Eliminate consecutive duplicates of list elements.
P09-rje.pl
P09 - Pack consecutive duplicates of list elements into sublists.
P09-scottp.pl
P09 - Pack consecutive duplicates of list elements into sublists.
P09-topo.pl
P09 - Pack consecutive duplicate elements of a list into sublists.
P09-unobe.pl
P09 - Pack consecutive duplicates of list elements into sublists.
P13-rhebus.pl
P13 - Run-length encoding of a list (direct solution).
P15-rhebus.pl
P15 - Replicate the elements of a list a given number of times.
P15-topo.pl
P15 - Replicate the elements of a list a given number of times.
P15-unobe.pl
P15 - Replicate the elements of a list a given number of times.
P17-topo.pl
P17 - Split a list into two parts; the length of the first part is given.
P17-unobe.pl
P17 - Split a list into two parts; the length of the first part is given.
P18-topo.pl
P18 - Extract a slice from a list. Indices start at 1.
P21-scottp.pl
P21 - Insert an element at a given position into an array.
P21-topo.pl
P21 - Insert an element at a given position into a list.
P22-scottp.pl
P22 - Create a list containing all integers within a given range.
P22-topo.pl
P22 - Create a list containing all integers within a given range.
P23-topo.pl
P23 - Extract a given number of randomly selected elements from a list.
P24-topo.pl
P24 - Draw N different random numbers from the set 1..M.
P25-topo.pl
P25 - Generate a random permutation of the elements of a list.
P26-topo.pl
P26 - Generate the combinations of k distinct objects chosen from the n elements of a list.
P31-rhebus.pl
P31 - Determine whether a given integer number is prime.
P32-rhebus.pl
P32 - Determine the greatest common divisor of two positive integer
P33-rhebus.pl
P33 - Determine whether two positive integer numbers are coprime.
P35-rhebus.pl
P35 - Determine the prime factors of a given positive integer.
P36-ovid.pl
P36 - Determine the prime factors of a given positive integer (2).
P36-rhebus.pl
P36 - Determine the prime factors of a given positive integer (2).
P37-rhebus.pl
P37 - Calculate Euler's totient function phi(m) (improved).
š¦ / Examples collection
/ P06 - Find out whether a list is a palindrome.
The Camelia image is copyright 2009 by Larry Wall. "Raku" is trademark of the Yet Another Society.
All rights reserved.