Longest palindromic substrings: Difference between revisions
→{{header|Raku}}: Show longest 5 substring groups. Minor edits
Thundergnat (talk | contribs) (→{{header|Raku}}: Show longest 5 substring groups. Minor edits) |
|||
Line 445:
=={{header|Raku}}==
{{works with|Rakudo|2020.09}}
This version regularizes (ignores) case and ignores non
<lang perl6>my @chars = q:to/END/ .lc.comb: /\w/;
Line 508:
}
.unique.sort.put for @cpfoa.grep( *.so ).tail(5).reverse;</lang>
{{out}}
<pre>doninemeninterpretninemeninod godarednuggetafateggunderadog
gohangasalamiimalasagnahog
arwontloversrevoltnowra
imanamregalagermanami mayamoodybabydoomayam ootnolemonsnomelontoo oozyratinasanitaryzoo
ratsliveonnoevilstar</pre>
This isn't particularly optimised but isn't too shabby either. When run against the first million digits of pi: [http://www.eveandersson.com/pi/digits/1000000 http://www.eveandersson.com/pi/digits/1000000]
<pre>9475082805749
|