Δημοσιεύτηκε: 08 Αύγ 2011, 17:07
αναγραμματισμός
Παραγοντικό
- Κώδικας: Επιλογή όλων
perl -e "print (@ARGV[1] eq scalar(reverse @ARGV[0])?'TRUE':'FALSE')" abc cba
Παραγοντικό
- Κώδικας: Επιλογή όλων
perl -e '$a=1; map{$a*=$_} (1..$ARGV[0]); print $a' 4