go ahead... be a heretic PerlMonks

### Re: Palindrome array

by 2teez (Priest)
 on Dec 29, 2012 at 05:52 UTC ( #1010791=note: print w/replies, xml ) Need Help??

"...Why does the first code work, but not the second one? Can you help me understand..."

using this

```if (@array eq (reverse scalar @array)){..
gives the result you want on the second one.
Does that help or solve the puzzle by any means?

If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me

Replies are listed 'Best First'.
Re^2: Palindrome array
by LanX (Bishop) on Dec 29, 2012 at 17:47 UTC
> if (@array eq (reverse scalar @array)){..

Sorry I can't let this stand uncorrected!

```  DB<108> @array=1..9
=> (1, 2, 3, 4, 5, 6, 7, 8, 9)

DB<109> @array eq (reverse scalar @array)
=> 1

DB<110> @array=0..9
=> (0, 1, 2, 3, 4, 5, 6, 7, 8, 9)

DB<111> @array eq (reverse scalar @array)
=> ""

DB<112> scalar (reverse scalar @array)
=> "01"

DB<113> scalar @array
=> 10

Cheers Rolf

Hi LanX,

```> if (@array eq (reverse scalar @array)){..
"..Sorry I can't let this stand uncorrected!.."
There is really no need to be sorry, because your assertions and "tests" are so correct and right I.

However, I believe Athanasius first caught the message I was trying to pass to the OP, in this line
..The string comparison operator eq puts its operands into scalar context..

++ LanX

I -> Updated.

If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me

I must say I agree with the sentiment expressed by LanX: tossing a beginner a lit firecracker and saying "Does this help?" doesn't really help. I sympathize with your desire to show a pathway to an answer rather than just saying the answer, but that one was just a bit too obscure!

Create A New User
Node Status?
node history
Node Type: note [id://1010791]
help
Chatterbox?
 marto waves [Corion]: Hi marto! [Corion]: I hope you were able to catch up on some sleep

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (4)
As of 2017-11-19 11:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
In order to be able to say "I know Perl", you must have:

Results (279 votes). Check out past polls.

Notices?