11 lines
142 B
Text
11 lines
142 B
Text
|
palindrome?: function [s][
|
||
|
|
s = reverse s
|
||
|
|
]
|
||
|
|
|
||
|
|
tests: [
|
||
|
|
[true? palindrome? "aba"]
|
||
|
|
[false? palindrome? "ab" ]
|
||
|
|
]
|
||
|
|
|
||
|
|
loop tests => ensure
|