34 lines
758 B
Text
34 lines
758 B
Text
( ( palindrome
|
||
= a
|
||
. @(!arg:(%?a&utf$!a) ?arg !a)
|
||
& palindrome$!arg
|
||
| utf$!arg
|
||
)
|
||
& ( desep
|
||
= x
|
||
. @(!arg:?x (" "|"-"|",") ?arg)
|
||
& !x desep$!arg
|
||
| !arg
|
||
)
|
||
& "In girum imus nocte et consumimur igni"
|
||
"Я иду с мечем, судия"
|
||
"The quick brown fox"
|
||
"tregða, gón, reiði - er nóg að gert"
|
||
"人人為我,我為人人"
|
||
"가련하시다 사장집 아들딸들아 집장사 다시 하련가"
|
||
: ?candidates
|
||
& whl
|
||
' ( !candidates:%?candidate ?candidates
|
||
& out
|
||
$ ( !candidate
|
||
is
|
||
( palindrome$(low$(str$(desep$!candidate)))
|
||
& indeed
|
||
| not
|
||
)
|
||
a
|
||
palindrome
|
||
)
|
||
)
|
||
&
|
||
);
|