Paste: squish

Author:	slava
Mode:	factor
Date:	Mon, 26 Jan 2009 23:28:57

Plain Text |

: (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 ;

Annotation: fix

Author:	slava
Mode:	factor
Date:	Mon, 26 Jan 2009 23:33:12

Plain Text |

: (squish) ( seq quot: ( obj -- ? ) -- )
    2dup call [ '[ _ (squish) ] each ] [ drop , ] if ; inline recursive

New Annotation

Summary:
Author:
Mode:
Body: