Author: | slava |
---|---|
Mode: | factor |
Date: | Mon, 26 Jan 2009 23:28:57 |
: (squish) ( seq quot -- ) 2dup call [ '[ _ (squish) ] each ] [ drop , ] if ; inline recursive : squish ( seq quot exemplar -- seq' ) [ [ (squish) ] ] dip make ; inline : squish-strings ( seq -- seq' ) [ { [ sequence? ] [ integer? not ] } 1&& ] "" squish ;
Author: | slava |
---|---|
Mode: | factor |
Date: | Mon, 26 Jan 2009 23:33:12 |
: (squish) ( seq quot: ( obj -- ? ) -- ) 2dup call [ '[ _ (squish) ] each ] [ drop , ] if ; inline recursive