haversineDist ( as bs -- d )


Vocabulary
rosetta-code.haversine-formula

Inputs
asan object
bsan object


Outputs
dan object


Definition
USING: arrays kernel math math.functions math.vectors sequences
;

IN: rosetta-code.haversine-formula

: haversineDist ( as bs -- d )
[ [ deg>rad ] map ] bi@
[ [ swap - haversin ] 2map ]
[ [ first cos ] bi@ * 1 swap 2array ] 2bi vdot
haversininv R_earth * ;