Fonte: http://openh4ck.altervista.org/phpBB2/viewtopic.php?t=568
forse un po' banale, ma lo posto ugualmente. L'esercizio consiste nel trovare lettere doppie, togliere la doppia e printarla. Un esempio:
stringa: 01hello_boyss0122
l'output è qualcosa del genere:
nuova stringa = 01helo_boys012
rimosse = ls2
n rimossi = 3
Mie soluzioni:
Php:
Perl:
Bye
forse un po' banale, ma lo posto ugualmente. L'esercizio consiste nel trovare lettere doppie, togliere la doppia e printarla. Un esempio:
stringa: 01hello_boyss0122
l'output è qualcosa del genere:
nuova stringa = 01helo_boys012
rimosse = ls2
n rimossi = 3
Mie soluzioni:
Php:
Codice:
<?php
error_reporting(0);
if($argc < 2)
die("Usage: ".$argv[0]." <string>");
for($i=0;$i<strlen($argv[1]);$i++)
if($argv[1][$i] != $argv[1][$i+1])
$out[0] .= $argv[1][$i];
else
$out[1] .= $argv[1][$i];
print "String passed: ".$argv[1]."\n";
print "New string: ".$out[0]."\n";
print "Letters removed: ".$out[1]."\n";
print "Numbers of removed: ".strlen($out[1])."\n";
?>
Codice:
#!/usr/bin/perl -w
$a = shift or die("Usage: name.pl <string>");
@str = split //, $a;
for($i=0;$i<$#str+1;$i++) {
if($str[$i] ne $str[$i+1]) {
$out1 .= $str[$i];
} else {
$out2 .= $str[$i];
}
}
print "String passed: ".$a."\n";
print "New string: ".$out1."\n";
print "Letters removed: ".$out2."\n";
print "Numbers of removed: ".length($out2)."\n";