RosettaCodeData/Task/Palindrome-detection/TUSCRIPT/palindrome-detection.tu

10 lines
149 B
Turing

$$ MODE TUSCRIPT
pal ="ingirumimusnocteetconsumimurigni"
pal_r=TURN(pal)
SELECT pal
CASE $pal_r
PRINT "true"
DEFAULT
PRINT/ERROR "untrue"
ENDSELECT