You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
12 lines
208 B
Perl
12 lines
208 B
Perl
5 years ago
|
for ( 1 .. 10 ) {
|
||
|
print square( $_ ), " ";
|
||
|
}
|
||
|
|
||
|
print "\n";
|
||
|
|
||
|
sub square
|
||
|
{
|
||
|
$value = shift; # use shift to get first argument
|
||
|
return $value ** 2; # returns the result of $value ** 2
|
||
|
}
|