[vienna.pm] spass mit split

[Marcel Grunauer]

* * * vienna-pm-list * * *


> foreach(split'','question'){$w+=ord($_);}
> foreach(split'',$w){$n+=$_}
> @n=split'',$n;
> $answer=$n[1].$n[0];
> print $answer;
>
> kann man das irgendwie optimieren?

Sicher.

	print 42;


Oder nicht unbedingt optimiert, aber etwas formschoener:

	$w += ord for split // => 'question';
	$n += $_  for split // => $w;
	print reverse split // => $n;


Marcel

--
Aspect-Oriented Perl            http://codewerk.unixbeard.net/aspects/
cpan> install Aspect

###
You are subscribed to vienna-pm-list as Marcel Grunauer <marcel.gruenauer at chello.at>
http://www.fff.at/fff/vienna.pm/