Eban numbers: Difference between revisions
m
→{{header|Perl}}: add some headings
Thundergnat (talk | contribs) m (→{{header|Perl}}: Fix mislabled sections. Thanks Gerard!) |
Thundergnat (talk | contribs) m (→{{header|Perl}}: add some headings) |
||
Line 252:
=={{header|Perl}}==
===Exhaustive search===
A couple of 'e'-specific optimizations keep the running time reasonable.
<lang perl>use strict;
Line 299 ⟶ 300:
Number of eban numbers up to 10,000,000: 1599</pre>
===Algorithmically generate / count===
Alternately, a translation of Perl 6. Allows for variable and multi character 'bans'. Does not need to actually generate the *-ban numbers to count them. Display counts up to 10**21.
| |||