Super-d numbers: Difference between revisions

m
Undo revision 292769 meh,somewhat slower in some circumstances
m (→‎{{header|Perl 6}}: more efficient exponiation)
m (Undo revision 292769 meh,somewhat slower in some circumstances)
Line 225:
<lang perl6>sub super (\d) {
my \run = d x d;
^∞ .hyper.grep: -> \n { (d * exp(d, n) ** d).Str.contains: run }
}
 
10,333

edits