On 2011-12-03 13:38, Binish A.R wrote:
split(/\s+/, $_)[1]
Why put all these extra characters in?
( split )[ 1 ]
But if you happen to like extra characters, here are some:
echo '1 2 3 4' |perl -anle 'do{s/\((.)\)/$1/g;1while
s{([+-])\((...)\)}{$1$2}||s/\(\(([^{}]+)\)\)/($1)/||s/\((.x.)\)/$1/||s/^\((...)\)([+-])/$1$2/||s/(?:^|\b)((?:.[+-])*)\(([^)]+[^(]+)\)((?:[+-].)*)(?:\b|$)/$1$2$3/},s/x/*/g,1e-10>abs(24-eval)and$x{$_}++for
map<{,(,((}$F[$$_[0]]\{+,-,x,/}{,(,((}$F[$$_[1]]\{,)}{+,-,x,/}{,(}$F[$$_[2]]\{,),))}{+,-,x,/}$F[$$_[3]]\{,),))}>,map{@x=@$_;map[($x[0]+$_)%4,($x[1]+$_)%4,($x[2]+$_)%4,($x[3]+$_)%4],0..3}[0,1,2,3],[0,1,3,2],[0,2,1,3],[0,2,3,1],[0,3,1,2],[0,3,2,1]}{$k++,$v+=$x{$_},print"$_
=> $x{$_}"for grep$x{$_},sort keys%x;print"($v,$k)"'
--
Ruud
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
