Palindrome pairs: Difference between revisions

=={{header|Factor}}==

<lang factor>USING: formatting kernel math.combinatorics qw sequences ;

IN: rosetta-code.palindrome-pairs

: palindrome? ( seq -- ? ) dup reverse = ;

qw{ abcd dcba lls s sssll } 2 [

dup reverse [

dup concat palindrome?

[ "," join "(%s)\n" printf ] [ drop ] if

] bi@

] each-combination</lang>

{{out}}

<pre>

(abcd,dcba)

(dcba,abcd)

(s,lls)

(lls,sssll)

</pre>