search ( -- )

Vocabulary

rosetta-code.amb

Inputs

None

Outputs

None

Definition

USING: backtrack kernel prettyprint splitting ;

IN: rosetta-code.amb

: search ( -- )
    words select dup sentence-match? [ join-words ] [ fail ] if
    . ;