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

1
Task/Aliquot-sequence-classifications/00META.yaml Normal file
View file

@ -0,0 +1 @@
--- {}

11
Task/Aliquot-sequence-classifications/Perl-6/aliquot-sequence-classifications.pl6
View file

@ -1,9 +1,9 @@
sub propdivsum (\x) {
my @l = x > 1, gather for 2 .. x.sqrt.floor -> \d {
my \y = x div d;
if y * d == x { take d; take y unless y == d }
my @l = x > 1;
(2 .. x.sqrt.floor).map: -> \d {
unless x % d { my \y = x div d; y == d ?? @l.push: d !! @l.append: d,y }
}
[+] gather @l.deepmap(*.take);
sum @l;
}
multi quality (0,1) { 'perfect ' }
@ -24,8 +24,7 @@ sub aliquotidian ($x) {
}
%seen{$this} = $to;
}
"$x non-terminating";
"$x non-terminating\t[{@seq}]";
}
aliquotidian($_).say for flat