Ungerade und Gerade Zahlen

[AlexBausW]

Hi Cheatah,

TIMTOWTDI:

for (my $i=0; $i<1000; $i++) {
  print "\n$i - ", ($i % 2) ? 'ungerade' : 'gerade';
}

Wo wir gerade dabei sind, einen hätte ich auch noch ;-)

($nums = join ' ', (0..999)) =~ s/(\s)(\d+)(\s)/$2.($2 % 2 ? ' - ungerade' : ' - gerade')."\n"/eg;
print $nums;

Und falls man wirklich nur den Ausdruck benötigt, kann man es auch in einer Zeile:

($nums = join ' ', (0..999)) =~ s/(\s)(\d+)(\s)/{ print $2.($2 % 2 ? ' - ungerade' : ' - gerade')."\n"; }/eg;

Gruß AlexBausW

P.S.: Ich liebe an Perl:    ;-)
   [x] TIMTOWTDI
   [x] Reguläre Ausdrücke
   [x] cryptische Einzeiler (nur für den privaten Spaß ;-)