Palindrome detection: Difference between revisions

Content added Content deleted

Inline

@@ Line 477: / Line 477: @@
 =={{header|Arturo}}==
+<lang rebol>palindrome?: $[seq] -> seq = reverse seq
-<lang arturo>isPalindrome: @(seq) -> seq = [reverse seq]
+loop ["abba" "boom" "radar" "civic" "great"] 'wrd [
+	print [wrd ": palindrome?" palindrome? wrd]
-loop #("abba" "boom" "radar" "civic" "great") {
+]</lang>
-	print & + ": isPalindrome? " + [isPalindrome &]
-}
-</lang>
 {{out}}
-<pre>abba: isPalindrome? true
+<pre>abba : palindrome? true
-boom: isPalindrome? false
+boom : palindrome? false
-radar: isPalindrome? true
+radar : palindrome? true
-civic: isPalindrome? true
+civic : palindrome? true
-great: isPalindrome? false</pre>
+great : palindrome? false</pre>
 =={{header|AutoHotkey}}==