The Algorithms logo
The Algorithms
Acerca deDonar

Abs Min

A
M
namespace Algorithms.Math

module AbsMin =
    let absMin (x: int list) =
        let mutable j = x.[0]

        for i in x do
            if abs i < abs j then j <- i

        j