Δημοσιεύτηκε: 09 Σεπ 2011, 00:20
από evolgen
Κατάφερα και πάλεψα το πρώτο, με αρκετή δυσκολία μιας και έχω απειροελάχιστη γνώση από functional programming και καλύτερη γνώση σε στυλ C.
Δεν ξέρω πόσο σωστό είναι, ωστόσο τη δουλειά του -φαίνεται να- την κάνει.
Spoiler: show
Κώδικας: Επιλογή όλων
#!/usr/bin/perl -w

(@ARGV == 2) or die "Usage: ./ex1.pl number1 number2";
my $n = $ARGV[0];
my $i = $ARGV[1];

foo($n);
print '$n: ' . "\t " . $n . "\n";
print '$i: ' . "\t+" . $i . "\n";
print "Result:" . "\t " . $res. "\n";

sub foo
{
$p = $_[0];
foo2($i);
}

sub foo2
{
$res = $p + $_[0];
return($res);
}


Για τα άλλα δύο, λέω να τα αφήσω για τώρα καθώς δεν είναι καθόλου στο επίπεδό μου και να κάτσω να διαβάσω το βιβλίο που πρότεινες παραπάνω. :P