![]() |
|< 1 2 >| | ![]() |
17 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
use strict;
use warnings;
my $x = shift(); #Übergabe sichern
my $n = 1; #$n auf 1 setzen
while($x) { #Solange $x war ist
$_ +=$n*chop($x); #Addiere $n*letztes Element von $x und entferne es
$n *= 2; #Und $n man 2 und in $n sichern
}
print $_ . "\n"; #Und ausgeben
![]() |
|< 1 2 >| | ![]() |
17 Einträge, 2 Seiten |