SEDOLs: Difference between revisions
m
→{{header|Perl}}: future-proof for 5.36, explicit :prototype
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: future-proof for 5.36, explicit :prototype) |
|||
Line 2,840:
use POSIX qw(strtol);
sub zip :prototype(&\@\@) {
my $f = shift;
my @a = @{shift()};
Line 2,850:
my @weights = (1, 3, 1, 7, 3, 9);
sub
my $s = shift;
$s =~ /[AEIOU]/ and die "No vowels";
|