13 Feb
2003
13 Feb
'03
10:29 p.m.
Am Donnerstag, dem 13. Februar 2003 um 21:14:48, schrieb Thomas Guettler:
adg beh cfi
Dieser Fall ist merkwürdig, wie bereits Reinhard bemerkt hat. Folgendes perl-Programm reproduziert deine Beispiele:
my $string = 'abcdefghijkl'; #my $string = 'abcdefghi'; #my $string = 'abcdefgh';
my $rows = int((length($string) - 1) / 4) + 1; for(my $i = 0; $i < $rows; $i ++) { for(my $j = $i; $j < length($string); $j += $rows) { print(substr($string, $j, 1)); } print "\n"; }
Torsten
--
Torsten Werner +49 162 3123004
email@twerner42.de http://www.twerner42.de