prune-curries ( seq -- seq' )

Vocabulary

fry.private

Inputs

seq

an object

Outputs

seq'

an object

Definition

USING: kernel math sequences ;

IN: fry.private

: prune-curries ( seq -- seq' )
    dup [ empty? not ] find
    [ [ 1 + tail ] dip but-last prefix ] [ 2drop { } ] if* ;