Font
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
[thread]5618[/thread]

Zahl und Zeichen zusammenzählen (page 2)



<< |< 1 2 >| >> 16 entries, 2 pages
SirLant
 2003-08-14 22:25
#83127 #83127
User since
2003-08-04
516 articles
BenutzerIn
[default_avatar]
Achso, dann ist das natürlich logisch :)
--Programming today is a race between Software Enginers striving to build bigger and better idiot-proof Programs,
and the Universe trying to produce bigger and better idiots.
So far, the Universe is winning!
Strat
 2003-08-15 03:04
#83128 #83128
User since
2003-08-04
5246 articles
ModeratorIn
[Homepage] [default_avatar]
wuerde da einfach folgendes schreiben:
Code (perl): (dl )
1
2
3
4
my @array = qw (+1 -43 +5 -5 +3);
my &#36sum = ;
&#36_ >  and &#36sum += &#36_ for @array;
print &#36sum;
\n\n

<!--EDIT|Strat|1060903564-->
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
Ronnie
 2003-08-15 03:22
#83129 #83129
User since
2003-08-14
2022 articles
BenutzerIn
[default_avatar]
ungefähr das selbe in Grün:
Code: (dl )
1
2
3
my @array = qw (-45 -355 +1 +55 -23);
for $a (@array) {$sum += $a if ($a > 0)}
print $sum;


Gruss,
Ronnie
Relais
 2003-08-15 03:24
#83130 #83130
User since
2003-08-06
2239 articles
ModeratorIn
[Homepage] [default_avatar]
[quote=Ronnie,15.08.2003, 01:22]ungefähr das selbe in Grün:
Code: (dl )
1
2
3
my @array = qw (-45 -355 +1 +55 -23);
for $a (@array) {$sum += $a if ($a > 0)}
print $sum;


Gruss,
Ronnie[/quote]
Der Unterschied ist, daß Du dem Kind einen Namen gibst.
Erst denken, dann posten -- Frankfurt.pm-Treffen am Dienstag 07.01.2020 im Café Diesseits
22. Deutscher Perl-Workshop 04. bis 06.03.2020 in Erlangen.
Frankfurt Perl-Workshop 2020-1 ca. Mai-Juni 2020 im Haus der Jugend

Winter is Coming
Strat
 2003-08-15 04:13
#83131 #83131
User since
2003-08-04
5246 articles
ModeratorIn
[Homepage] [default_avatar]
[quote=Ishka,15.08.2003, 02:08]*schnief* warum gibt es immer solchne Monsterdiskussionen... ;) (man sehe sich die erste Antwort an)[/quote]
weil die unnoetigerweise einen regulaeren ausdruck verwendet ;-)
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
Ishka
 2003-08-15 04:08
#83132 #83132
User since
2003-08-04
771 articles
HausmeisterIn
[Homepage] [default_avatar]
*schnief* warum gibt es immer solchne Monsterdiskussionen... ;) (man sehe sich die erste Antwort an)
sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}
<< |< 1 2 >| >> 16 entries, 2 pages



View all threads created 2003-08-14 20:53.