Test a function: Difference between revisions
→{{header|Perl 6}}: Include code to make a runnable example
No edit summary |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Include code to make a runnable example) |
||
Line 1,171:
=={{header|Perl 6}}==
<lang perl6>use Test;
sub palin( Str $string) { so $string.lc.comb(/\w/) eq $string.flip.lc.comb(/\w/) }
my %tests =
|