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