haversin ( x -- y )

Vocabulary

rosetta-code.haversine-formula

Inputs

x

an object

Outputs

y

an object

Definition

USING: kernel math math.functions ;

IN: rosetta-code.haversine-formula

: haversin ( x -- y ) cos 1 swap - 2 / ;