perl -M"warnings" -M"List::Util=min" -nale 'BEGIN{$_=<>;($N,$M)=split;} print min(
    map { $a=$F[$_]; $b=$F[$_+$M-1]; 
        $b <=0 ?abs($a):
        $a>=0 ? $b:
         (abs($a)*2+$b,abs($a)+$b*2) } (0..($N-$M))
    );' <<EOT