Palindrome detection: Difference between revisions

Palindrome detection (view source)

Revision as of 02:13, 1 July 2024

1,316 bytes added , 4 days ago

→‎{{header|ed}}: Minor grammatical fix

Aartaka

104

edits

Revision as of 08:49, 30 April 2024 (view source) Not a robot (talk \| contribs) (add Refal) ← Older edit		Revision as of 02:13, 1 July 2024 (view source) Aartaka (talk \| contribs) (→‎{{header\|ed}}: Minor grammatical fix) Newer edit →
(7 intermediate revisions by 4 users not shown)
Line 1,911: ;;(equal? (string->list string) (reverse (string->list string))))) </syntaxhighlight> =={{header\|ed}}== A limitation: due to ed having no built-in loops, the part with palindrome beginning/end matching has to be repeated as many times as there are palindrome levels. As a sane default, 15 is used here. }</syntaxhighlight lang="sed">▼ # by Artyom Bologov H ,p g/^(.)(.+)\1$/s//\2/ g/^(.)(.+)\1$/s//\2/ g/^(.)(.+)\1$/s//\2/ g/^(.)(.+)\1$/s//\2/ g/^(.)(.+)\1$/s//\2/ g/^(.)(.+)\1$/s//\2/ g/^(.)(.+)\1$/s//\2/ g/^(.)(.+)\1$/s//\2/ g/^(.)(.+)\1$/s//\2/ g/^(.)(.+)\1$/s//\2/ g/^(.)(.+)\1$/s//\2/ g/^(.)(.+)\1$/s//\2/ g/^(.)(.+)\1$/s//\2/ g/^(.)(.+)\1$/s//\2/ g/^(.)(.+)\1$/s//\2/ v/^(.)(.+)\1$\|^.$/s/.*/Not a palindrome!/ g/^.$/s//Palindrome!/ ,p Q </syntaxhighlight> {{out}} <pre>$ cat palindrome.ed \| ed -lEGs palindrome.input rotor racecar level rosetta Palindrome! Palindrome! Palindrome! Not a palindrome!</pre> =={{header\|Eiffel}}== Line 3,259 ⟶ 3,300: =={{header\|langur}}== <syntaxhighlight lang="langur">~~val .ispal = fn(.s) len(.s) > 0 and .s == reverse .s~~ val ispal = fn s:len(s) > 0 and s == reverse(s) val .tests = h{ "": false, "z": true, Line 3,278 ⟶ 3,320: } for .word in sort(keys .(tests)) { val .foundpal = .ispal(.word) writeln .word, ": ", .foundpal, if(.foundpal == .tests[.word]: ""; " (FAILED TEST)") } ▲}</syntaxhighlight> </syntaxhighlight> {{out}} Line 4,129 ⟶ 4,172: writeln('input was not palindrome'); end.</syntaxhighlight> =={{header\|PascalABC.NET}}== <syntaxhighlight lang="delphi"> function IsPalindrome(s: string) := s = s[::-1]; begin Println(IsPalindrome('arozaupalanalapuazora')); Println(IsPalindrome('abcd')); end. </syntaxhighlight> {{out}} <pre> True False </pre> =={{header\|Perl}}== Line 5,996 ⟶ 6,054: Does not ignore spaces. <syntaxhighlight lang="uiua">≍⇌."tacocat"</syntaxhighlight> ===Extra Credit=== Ignores whitespace, converts A-Z to lowercase, only checks a-z, includes tests. <syntaxhighlight lang="uiua">IsPal ← ≍⇌.+×32<@a.▽:⟜∊:/⊂+⊙¤"Aa"⇡26 IsPal "A man, a plan, a canal: Panama!" </syntaxhighlight> =={{header\|UNIX Shell}}==