haversininv ( y -- x )

Vocabulary

rosetta-code.haversine-formula

Inputs

y

an object

Outputs

x

an object

Definition

USING: kernel math math.functions ;

IN: rosetta-code.haversine-formula

: haversininv ( y -- x ) 2 * 1 swap - acos ;