parsed-idx>hash ( seq -- hash )

Vocabulary

git

Inputs

seq

an object

Outputs

hash

an object

Definition

USING: accessors arrays assocs kernel sequences ;

IN: git

: parsed-idx>hash ( seq -- hash )
    H{ } clone [
        [ [ first3 rot [ 3array ] dip ] ] dip [ set-at ] curry
        compose [ [ [ packfile-sha1>> ] [ triples>> ] bi ] ] dip
        [ with each ] curry compose each
    ] keep ;