Select Code to Download

sub i{my$a=pdl$_[0];minimum_ind(abs($a-$_[1]))}

sub i{my$a=pdl$_[0];minimum_ind abs$a-pop}