Centralisation des mémos


[Perl] strrev - Inverser une chaîne

Ajouté par BoboTiG le 27/01/2011 à 17:20

sub strrev { my @t = split //, shift; my $i = $#t; my $rav = q{}; while ( $i >= 0 ) { $rav .= $t[$i]; --$i; } return $rav; }

moc.liamg@gitobob - Accueil - Rechercher - Proposer un mémo - 192 mémos (2)