10 lines
126 B
Perl
10 lines
126 B
Perl
sub repeat {
|
|
my ($sub, $n) = @_;
|
|
$sub->() for 1..$n;
|
|
}
|
|
|
|
sub example {
|
|
print "Example\n";
|
|
}
|
|
|
|
repeat(\&example, 4);
|