12 lines
208 B
Perl
12 lines
208 B
Perl
|
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
|
||
|
|
}
|