Select Code to Download

###############################
# STRING CONCAT FUNCTION      #
#     BY DR JONATHAN REES     #
###############################

$l = 5;        # $l defines the number of asterisks

&concat($l);    # calls the sub concat passing the 
        # number of concatenations in $l

print $i;    # prints the result

sub concat     {
...
        }

    my $val = $_[0] + 1; 
    for ($k = 1 ; $k < $val ; $k++){ $i = $i.$sym; }

    my $i = '';
    for (1 .. $_[0]) { $i = $i . $sym }

# Concatenate a number of symbols.

...
    for (1 .. $_[1]) { $i = $i . $_[0] }
    return $i;
}