Numbers whose count of divisors is prime: Difference between revisions

m
→‎{{header|Raku}}: More generic display code
m (C++ - restored accidentally deleted line)
m (→‎{{header|Raku}}: More generic display code)
Line 667:
my $ceiling = ceiling sqrt 1e5;
 
say display 10:10cols, :fmt('%6d'), (^$ceiling)».² .grep: { .&divisors.is-prime };
 
sub display ($list, :$cols = 10, :$fmt = '%6d', :$title = "{+$list} matching:\n" ) {
sub display {
cache $^clist;
"{+$c} matching:\n"title ~ $clist.batch($^acols)».fmt($^bfmt).join: "\n"
}</lang>
{{out}}
10,333

edits