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