找到数组中两个数字之间最小绝对差的最佳算法

对于第一个，我已经定义了一个二进制搜索函数，它查找排序数组中被插入数字的位置。现在我启动排序数组，只有给定数组的第一个数字，并从第二个元素开始对给定的数组进行迭代。对于每个数字，我在排序的数组中找到它的位置。如果该位置的数字是这个数字，则差值为0，这是最低的数值，所以我退出循环。否则，我在该点将数字插入排序的数组，然后检查该数字与该数组中的前一个和下一个数字之间的差异。然后我存储此结果的最小值和以前的结果，并以此方式继续。

第二：我使用quicksort对数组进行排序。 (范围太大，所以我认为基数排序不会那么有效)。然后我重复一遍，如果两个连续的数字相等，则用0的答案展开，否则存储该数字与之前的数字和先前结果之间的差异的最小值。

哪一个会更有效率？

有没有更好的算法？

Stackoverflow在这方面有很多职位，但是他们没有什么帮助。以下是我在Perl中的代码：

sub position {
    my @list   = @{$_[0]};
    my $target = $_[1];

    my ($low,$high) = (0,(scalar @list)-1);

    while ($low <= $high) {
        $mid = int(($high + $low)/2);

        if ( $list[$mid] == $target ) {

            return $mid;
        }
        elsif ( $target < $list[$mid] ) {

            $high = $mid - 1; 
        }
        else {

            $low = $mid + 1;
        }
    }
    $low;
}
sub max { $_[0] > $_[1] ? $_[0] : $_[1]; }
sub min { $_[0] > $_[1] ? $_[1] : $_[0]; }

$ans        = 10_000_000_000;
@numbers    = (234,56,1,34...123); #given array
($max,$min) = @num[0,0];
@sorted     = ($numbers[0]);

for ( @num[1 .. $#num] ) {
    $pos = position(@sorted,$_);

    if ( $sorted[$pos] == $_ ) { 

        $ans = 0;
        last;
    }
    splice @sorted,$pos,$_;

    if ( $#sorted == $pos ) { 

        $ans = min($_-$sorted[-2],$ans);
    }
    elsif ( 0 == $pos ) {

        $ans = min($sorted[1]-$_,$ans);
    }
    else { 

        $ans = min(min(abs($sorted[$pos-1]-$_),abs($sorted[$pos+1]-$_)),$ans);
    }
    $max = max($_,$max);
    $min = min($_,$min);
}
print "$ansn";