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

September Morn Update

Browse source
This commit is contained in:
Ingy döt Net 2019-09-12 10:33:56 -07:00
parent 4e2d22a71d
commit aac6731f2c
6856 changed files with 141342 additions and 21127 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Task/Non-continuous-subsequences/Perl/non-continuous-subsequences.pl
View file

@ -1,6 +1,7 @@
my ($max, @current);
sub non_continuous {
my ($idx, $has_gap, $found) = @_;
my ($idx, $has_gap) = @_;
my $found;
for ($idx .. $max) {
push @current, $_;
@ -13,5 +14,5 @@ sub non_continuous {
$found;
}
$max = 20; # 1048365 sequences, 10 seconds-ish
$max = 20;
print "found ", non_continuous(1), " sequences\n";