Why don't you ask your teacher instead? This gives you a great opportunity to show you care about the class and it puts a face on your homework when it comes time to grade it.

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Thank you everyone but I did ask my teacher.

if ($a == $i && $b == $h && $c == $g && $d == $f)    #Final configurat
+ion to tell if it is a palindrome
{
print "PALINDROME!";
}
else
{
print "NOT A PALINDROME!";
}
[download]

That was all i needed to do. I overthought the assignment.

print "\nThis program asks for you to \n
enter any nine character sequence and \n
then tells you if it is a palidrome!\n\n";
[download]

Hmm, so the program asks for a character sequence, and you end up using numercal equasions. That will yield a whole lot of palidromes (and warnings if you did use warnings)

say $a eq $i && $b eq $h && $c eq $g && $d eq $f ? "PALINDROME!" : "No
+t a PALINDROME!";
[download]

much simpler:

$user eq reverse $user and say "You entered a PALINDROME!";
[download]


Enjoy, Have FUN! H.Merijn

... hummm...

I don't see the chop you originally said the teacher wanted you to use.

And are you sure the teacher didn't say chomp?

Try adding this to your program after the input statement, and one of the reasons for your results may become clear (make note especially of where the single quotes are located):

print "'$user'\n";
[download]

Camerontainium:

I'd first suggest:

• Read about the chop function so you can see what it does.
• Read perldoc perlop, paying special attention to the =, == and eq operators.
• Print the values of your variables, so you can see what the values you're using actually are.

This should get you part of the way there. Study up, update your code, and post any further questions you have.

...roboticus

When your only tool is a hammer, all problems look like your thumb.

Here's how I'd do it...

use Modern::Perl;
say "Enter a word... maybe it's a palindrome...?";
chop(my $input = lc <>);
my $reversed = join q(), reverse split q(), $input;
say $reversed eq $input ? "yeah" : "nah";
[download]

... but don't submit that as-is. Learn from it and write your own.

The chop() function I only use once here, to remove the line-break character from the user input. chop not only tells you what the last character was in the string, it also modifies the string! Thus your comparison at the end will never work, because by the time you've chopped $user nine times, it'll be empty.

(Plus comparing an array and a string using "==" doesn't do what you seem to think it will do.)

Here's a version somewhat closer in spirit to your version:

use Modern::Perl;

# Get a line from the user, and remove the
# trailing line break
say "Enter a word...";
chop(my $user = lc <>);

# Keep a copy of the user input because we're
# about to totally destroy $user.
my $original = $user;

# An array that we're going to split the
# input into.
my @userinput;

# Keep going while there's still some input.
while (length $user)
{
    # Chop takes a character from the end
    # of the string. Unshift adds something 
    # to the start of the array. So this
    # reverses the string as it goes!
    
    unshift @userinput, chop $user;
}
# Now join the array back into a string.
my $reversed = join q(), @userinput;

if ($original eq $reversed)
{
    say "PALINDROME";
}
else
{
    say "NOT A PALINDROME";
}
[download]

tobyink, reverse works on strings, too, so you can save yourself the trouble and drop both split and join

Cheers, Sören

Your code is broken:

D:\progs\perl>palindrome.pl
Enter a word...
noon
PALINDROME

D:\progs\perl>palindrome.pl
Enter a word...
ipswich
PALINDROME

D:\progs\perl>palindrome.pl
Enter a word...
bolton
PALINDROME
[download]

The line

    unshift @userinput, chop $user;

needs to be changed to

    push @userinput, chop $user;

The chop() function I only use once here, to remove the line-break character from the user input.

As on many systems the EOL code is two characters long, chop will only remove one and leave you with a "broken" string.

Use chomp to remove the EOL code instead.

CountZero

A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James

My blog: Imperial Deltronics

chop is not great at all, but it was in the project brief. :-)

perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'