extra/sequences/squish/squish.factor

   1 USING: combinators.short-circuit fry make math kernel sequences ;
   2 IN: sequences.squish
   3
   4 : (squish) ( seq quot: ( obj -- ? ) -- )
   5     2dup call [ '[ _ (squish) ] each ] [ drop , ] if ; inline recursive
   6
   7 : squish ( seq quot exemplar -- seq' )
   8     [ [ (squish) ] ] dip make ; inline
   9
  10 : squish-strings ( seq -- seq' )
  11     [ { [ sequence? ] [ integer? not ] } 1&& ] "" squish ;
  12