fork download
copy 
  1. sub palin {
  2.     s/\Pl//g;uc eq reverse uc
  3. }
  4. while (<DATA>) {
  5.     chomp;
  6.     print "$_ => ",palin()?"yes":"no","\n";
  7. }
  8. __DATA__
  9. Eva, can I stab bats in a cave?
  10. A man, a plan, a canal. Panama!
  11. Madam, I'm Adam Corolla.
  12. 757
  13. Boeing 757
  14. A man, a plan, a big shovel, a canal. Panama!
  15. A man, a plan, a canoe, pasta, heros, rajahs, a coloratura, maps, snipe, percale, macaroni, a gag, a banana bag, a tan, a tag, a banana bag again (or a camel), a crepe, pins, Spam, a rut, a Rolo, cash, a jar, sore hats, a peon, a canal >> __Panama__
Success #stdin #stdout 0.01s 4772KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Eva, can I stab bats in a cave? => yes
A man, a plan, a canal. Panama! => yes
Madam, I'm Adam Corolla. => no
757 => yes
Boeing 757 => no
A man, a plan, a big shovel, a canal. Panama! => no
A man, a plan, a canoe, pasta, heros, rajahs, a coloratura, maps, snipe, percale, macaroni, a gag, a banana bag, a tan, a tag, a banana bag again (or a camel), a crepe, pins, Spam, a rut, a Rolo, cash, a jar, sore hats, a peon, a canal >> __Panama__ => yes
https://ideone.com/0ufdaQ
language:
Perl (perl 5.28.1)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!