You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

20 lines
263 B

#!/usr/bin/perl -w
use strict;
use warnings;
use 5.010;
sub mirroir
{
my $chaine = join(' ',@_);
my $mirroir;
my $i = 0;
my $taille = length($chaine);
until($i == $taille)
{
$mirroir .= chop($chaine);
$i++;
}
return $mirroir;
}
say mirroir(@ARGV);