escape-simplest ( str -- str' )

Vocabulary

escape-strings

Inputs

str

an object

Outputs

str'

an object

Definition

USING: assocs combinators kernel math.statistics sequences ;

IN: escape-strings

: escape-simplest ( str -- str' )
    dup histogram {
        { [ dup 34 of not ] [ drop "\"" "\"" surround ] }
        [ drop escape-string ]
    } cond ;