RosettaCodeData/Task/Test-a-function/Oforth/test-a-function.fth

4 lines
90 B
Forth

test: [ "abcd" isPalindrome ]
test: ["abba" isPalindrome ]
test: [ "abcba" isPalindrome ]