aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

2016 Update

Browse source
This commit is contained in:
Tina Müller 2016-12-05 22:15:40 +01:00
parent 948b86eafa
commit dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Task/Self-referential-sequence/Perl-6/self-referential-sequence.pl6
View file

@ -5,7 +5,7 @@ my %seen;
for 1 .. 1000000 -> $m {
next unless $m ~~ /0/; # seed must have a zero
my $j = join '', $m.comb.sort;
next if %seen.exists($j); # already tested a permutation
next if %seen{$j}:exists; # already tested a permutation
%seen{$j} = '';
my @seq := converging($m);
my %elems;
@ -23,7 +23,7 @@ for 1 .. 1000000 -> $m {
};
for @list -> $m {
say "Seed Value(s): ", ~permutations($m).uniq.grep( { .substr(0,1) != 0 } );
say "Seed Value(s): ", my $seeds = ~permutations($m).unique.grep( { .substr(0,1) != 0 } );
my @seq := converging($m);
my %elems;
my $count;
@ -41,7 +41,7 @@ sub permutations ($string, $sofar? = '' ) {
for ^$string.chars -> $idx {
my $this = $string.substr(0,$idx)~$string.substr($idx+1);
my $char = substr($string, $idx,1);
@perms.push( permutations( $this, join '', $sofar, $char ) ) ;
@perms.push( |permutations( $this, join '', $sofar, $char ) );
}
return @perms;
}