RosettaCodeData/Task/Strip-control-codes-and-extended-characters-from-a-string/Factor/strip-control-codes-and-extended-characters-from-a-string.factor

USING: ascii kernel sequences ;

: strip-control-codes ( str -- str' ) [ control? not ] filter ;

: strip-control-codes-and-extended ( str -- str' )
    strip-control-codes [ ascii? ] filter ;