normalized ( a b c quot: ( a b c -- a' b' c' ) -- a' b' c' )


Vocabulary
colors.ryb.private

Inputs and outputs
aan object
ban object
can object
quota quotation with stack effect ( a b c -- a' b' c' )
a'an object
b'an object
c'an object


Definition


: normalized
( a b c quot: ( a b c -- a' b' c' ) -- a' b' c' )
[ 3dup min min ] dip over
[ [ - ] curry tri@ ] [ call ] [ [ + ] curry tri@ ] tri* ;
inline