Opened by Crian at 2004-05-14 16:21
User since
2004-06-18
3 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-06-18
3 Artikel
BenutzerIn
Ja war schon klar, allerdings werden die änderungen zu 5.1 besprochen,
also von g++ >= 3.0 ...
mfg Dirk
also von g++ >= 3.0 ...
mfg Dirk
use strict;
my @a =([0,0,1,0,0,0,1,0],[1,0,0,1,0,1,1,0],[0,1,0,0,1,1,1,0],[1,1,0,1,0,1,1,0]);for(my $b = 0; $b <= $#a;$b++){my $c = 1;my @d =@{$a[$b]};my $e;while(@d){my $f = shift(@d);if($f){$e += eval{my $g = 1;for (my $h = 1; $h < $c; $h++){$g *= 2;}return $g;};}$c++}print chr($e);}print "\n";
my @a =([0,0,1,0,0,0,1,0],[1,0,0,1,0,1,1,0],[0,1,0,0,1,1,1,0],[1,1,0,1,0,1,1,0]);for(my $b = 0; $b <= $#a;$b++){my $c = 1;my @d =@{$a[$b]};my $e;while(@d){my $f = shift(@d);if($f){$e += eval{my $g = 1;for (my $h = 1; $h < $c; $h++){$g *= 2;}return $g;};}$c++}print chr($e);}print "\n";