19 lines
348 B
Text
19 lines
348 B
Text
# by Artyom Bologov
|
|
H
|
|
,p
|
|
g/^(.)(.*)\1$/s//\2/
|
|
g/^(.)(.*)\1$/s//\2/
|
|
g/^(.)(.*)\1$/s//\2/
|
|
g/^(.)(.*)\1$/s//\2/
|
|
g/^(.)(.*)\1$/s//\2/
|
|
g/^(.)(.*)\1$/s//\2/
|
|
g/^(.)(.*)\1$/s//\2/
|
|
g/^(.)(.*)\1$/s//\2/
|
|
g/^(.)(.*)\1$/s//\2/
|
|
g/^(.)(.*)\1$/s//\2/
|
|
g/^(.)(.*)\1$/s//\2/
|
|
g/^(.)(.*)\1$/s//\2/
|
|
v/^(.)(.+)\1$|^.?$/s/.*/Not a palindrome!/
|
|
g/^.?$/s//Palindrome!/
|
|
,p
|
|
Q
|