git-checksum? ( str -- ? )

Vocabulary

zealot.factor

Inputs

str

an object

Outputs

?

an object

Definition

USING: combinators.short-circuit hex-strings kernel sequences ;

IN: zealot.factor

: git-checksum? ( str -- ? )
    { [ length 40 = ] [ [ hex-digit? ] all? ] } 1&& ;