max-palindrome ( seq -- palindrome )

Vocabulary

project-euler.004.private

Inputs

seq

an object

Outputs

palindrome

an object

Definition

USING: kernel project-euler.common sequences sorting ;

IN: project-euler.004.private

: max-palindrome ( seq -- palindrome )
    sort [ palindrome? ] find-last nip ;