fork download 
  1. import Control.Monad
  2. import Control.Applicative
  3. import Data.Char
  4.  
  5. text = "А Роза упала на лапу Азора"
  6. estjPalindrom = (reverse >>= (==)) . map toLower . filter (/=' ')
  7.  
  8. main = print (estjPalindrom text)
Success #stdin #stdout 0s 6220KB
comments (?)
stdin 
Standard input is empty
stdout 
True
https://ideone.com/nQt1Kg
language:
Haskell (ghc 8.4.4)
created:
11 years ago
visibility:
secret

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!