S.I/Lisp/

_?_is_1.

A1="Sophroniscus is a sculptor."

=_?_is_1.("a sculptor", A1)
-> "Sophroniscus"
        

DEFINE(
    _?_is_1.,
    LAMBDA(
        _1,
        knowledgebase,
        LET(
            predicate,
                FORMAT(
                    " is {1}.",
                    _1),
            knowledgecolumn,
                TOCOL(knowledgebase),
            matches,
                FILTER(
                    knowledgecolumn,
                    ENDSWITH?(
                        knowledgecolumn,
                        predicate)),
            IF(
                ISERROR(matches),
                FALSE,
                TRIMALL(
                    REGEXEXTRACT(
                        matches,
                        FORMAT(
                            "^(.+) is {1}\.$",
                            _1),
                        2))))))
        

Help us optimize this function