Rosetta Code

Palindrome detection: Difference between revisions

Page Discussion

Palindrome detection (view source)

Revision as of 09:38, 27 February 2010

183 bytes removed ,  14 years ago
m
→‎{{header|PureBasic}}
Line 959:
=={{header|PureBasic}}==
{{works with|PureBasic|4.41}}
<lang PureBasic>;Procedure Demo program for RosettaCodeis_palindromic(StringToTest.s)
;
Declare is_palindromic(StringToTest.s)
 
If is_palindromic(" 12a4a21 ")
;Do some stuff
EndIf
 
If is_palindromic(" 12343x1 ")
;Do some stuff
EndIf
Procedure is_palindromic(StringToTest.s)
Protected backwards.s=ReverseString(StringToTest)
If StringToTest=backwards
ProcedureReturn #True
Else
ProcedureReturn #False
EndIf
EndProcedure</lang>
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/90327"