#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
int /*<<< orphan*/ printf(char *, int);
int /*<<< orphan*/ scanf(char *, int *, ...);
int main() {
  int n, k;
  int array[100];
  int changes = 0, i, j;
  int one, two;
  scanf(" %d %d", &n, &k);
  for (i = 0; i < n; i++) {
    scanf(" %d", &array[i]);
  }
  for (i = 0; i < k; i++) {
    one = 0;
    two = 0;
    for (j = 0; j < n / k; j++) {
      if (array[i + k * j] == 1)
        one++;
      else
        two++;
    }
    if (one > two) {
      changes += two;
    } else
      changes += one;
  }
  printf("%d\n", changes);
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x1c0,%rsp
movl   $0x0,-0x4(%rbp)
movl   $0x0,-0x1a4(%rbp)
lea    0xebd(%rip),%rdi
lea    -0x8(%rbp),%rsi
lea    -0xc(%rbp),%rdx
mov    $0x0,%al
call   1040 <scanf@plt>
movl   $0x0,-0x1a8(%rbp)
mov    -0x1a8(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    11a2 <main+0x82>
movslq -0x1a8(%rbp),%rax
lea    -0x1a0(%rbp),%rsi
shl    $0x2,%rax
add    %rax,%rsi
lea    0xe7c(%rip),%rdi
mov    $0x0,%al
call   1040 <scanf@plt>
mov    -0x1a8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1a8(%rbp)
jmp    115c <main+0x3c>
movl   $0x0,-0x1a8(%rbp)
mov    -0x1a8(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    12ae <main+0x18e>
movl   $0x0,-0x1b0(%rbp)
movl   $0x0,-0x1b4(%rbp)
movl   $0x0,-0x1ac(%rbp)
mov    -0x1ac(%rbp),%eax
mov    %eax,-0x1b8(%rbp)
mov    -0x8(%rbp),%eax
cltd
idivl  -0xc(%rbp)
mov    %eax,%ecx
mov    -0x1b8(%rbp),%eax
cmp    %ecx,%eax
jge    125a <main+0x13a>
mov    -0x1a8(%rbp),%eax
mov    -0xc(%rbp),%ecx
imul   -0x1ac(%rbp),%ecx
add    %ecx,%eax
cltq
cmpl   $0x1,-0x1a0(%rbp,%rax,4)
01
jne    1232 <main+0x112>
mov    -0x1b0(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1b0(%rbp)
jmp    1241 <main+0x121>
mov    -0x1b4(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1b4(%rbp)
jmp    1246 <main+0x126>
mov    -0x1ac(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1ac(%rbp)
jmp    11d9 <main+0xb9>
mov    -0x1b0(%rbp),%eax
cmp    -0x1b4(%rbp),%eax
jle    1283 <main+0x163>
mov    -0x1b4(%rbp),%eax
add    -0x1a4(%rbp),%eax
mov    %eax,-0x1a4(%rbp)
jmp    1295 <main+0x175>
mov    -0x1b0(%rbp),%eax
add    -0x1a4(%rbp),%eax
mov    %eax,-0x1a4(%rbp)
jmp    129a <main+0x17a>
mov    -0x1a8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1a8(%rbp)
jmp    11ac <main+0x8c>
mov    -0x1a4(%rbp),%esi
lea    0xd4c(%rip),%rdi
call   1030 <printf@plt>
xor    %eax,%eax
add    $0x1c0,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %rbx
sub    $0x1a8,%rsp
lea    0xecc(%rip),%rdi
xor    %r15d,%r15d
lea    0x8(%rsp),%rsi
lea    0xc(%rsp),%rdx
xor    %eax,%eax
call   1040 <scanf@plt>
mov    0x8(%rsp),%eax
test   %eax,%eax
jle    117f <main+0x5f>
lea    0x10(%rsp),%rbx
lea    0xea7(%rip),%r14
xor    %ebp,%ebp
xchg   %ax,%ax
mov    %r14,%rdi
mov    %rbx,%rsi
xor    %eax,%eax
call   1040 <scanf@plt>
add    $0x1,%rbp
movslq 0x8(%rsp),%rax
add    $0x4,%rbx
cmp    %rax,%rbp
jl     1160 <main+0x40>
mov    0xc(%rsp),%r14d
test   %r14d,%r14d
jle    1259 <main+0x139>
cltd
idiv   %r14d
mov    %eax,%r10d
and    $0xfffffffe,%r10d
lea    0x0(,%r14,8),%r11
xor    %r9d,%r9d
lea    0x10(%rsp),%r8
xor    %r15d,%r15d
jmp    11c9 <main+0xa9>
nopl   (%rax)
cmp    %ebp,%ebx
cmova  %ebp,%ebx
add    %ebx,%r15d
add    $0x1,%r9
add    $0x4,%r8
cmp    %r14,%r9
je     1259 <main+0x139>
mov    $0x0,%ebx
mov    $0x0,%ebp
test   %eax,%eax
jle    11b0 <main+0x90>
xor    %edi,%edi
cmp    $0x1,%eax
jne    11f0 <main+0xd0>
xor    %ebp,%ebp
xor    %ebx,%ebx
jmp    1232 <main+0x112>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
mov    %r8,%rdx
xor    %ebp,%ebp
xor    %ebx,%ebx
nopw   0x0(%rax,%rax,1)
xor    %esi,%esi
xor    %ecx,%ecx
cmpl   $0x1,(%rdx)
setne  %sil
sete   %cl
add    %ebx,%ecx
add    %ebp,%esi
xor    %ebp,%ebp
xor    %ebx,%ebx
cmpl   $0x1,(%rdx,%r14,4)
setne  %bpl
sete   %bl
add    %ecx,%ebx
add    %esi,%ebp
add    $0x2,%rdi
add    %r11,%rdx
cmp    %rdi,%r10
jne    1200 <main+0xe0>
test   $0x1,%al
je     11b0 <main+0x90>
imul   %r14,%rdi
add    %r9,%rdi
xor    %ecx,%ecx
xor    %edx,%edx
cmpl   $0x1,0x10(%rsp,%rdi,4)
setne  %cl
sete   %dl
add    %edx,%ebx
add    %ecx,%ebp
jmp    11b0 <main+0x90>
lea    0xda7(%rip),%rdi
mov    %r15d,%esi
call   1030 <printf@plt>
xor    %eax,%eax
add    $0x1a8,%rsp
pop    %rbx
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [7 x i8] c" %d %d\00"
@.str.1 = [4 x i8] c" %d\00"
@.str.2 = [4 x i8] c"%d\0A\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca i32
%3 = alloca i32
%4 = alloca [100 x i32]
%5 = alloca i32
%6 = alloca i32
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
store i32 0, i32* %1
store i32 0, i32* %5
%10 = call i32 (i8*, i32*, ...) @scanf(i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str, i64 0, i64 0), i32* %2, i32* %3)
store i32 0, i32* %6
br label %11
11: ; preds = %20, %0
%12 = load i32, i32* %6
%13 = load i32, i32* %2
%14 = icmp slt i32 %12, %13
br i1 %14, label %15, label %23
15: ; preds = %11
%16 = load i32, i32* %6
%17 = sext i32 %16 to i64
%18 = getelementptr inbounds [100 x i32], [100 x i32]* %4, i64 0, i64 %17
%19 = call i32 (i8*, i32*, ...) @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), i32* %18)
br label %20
20: ; preds = %15
%21 = load i32, i32* %6
%22 = add nsw i32 %21, 1
store i32 %22, i32* %6
br label %11
23: ; preds = %11
store i32 0, i32* %6
br label %24
24: ; preds = %68, %23
%25 = load i32, i32* %6
%26 = load i32, i32* %3
%27 = icmp slt i32 %25, %26
br i1 %27, label %28, label %71
28: ; preds = %24
store i32 0, i32* %8
store i32 0, i32* %9
store i32 0, i32* %7
br label %29
29: ; preds = %52, %28
%30 = load i32, i32* %7
%31 = load i32, i32* %2
%32 = load i32, i32* %3
%33 = sdiv i32 %31, %32
%34 = icmp slt i32 %30, %33
br i1 %34, label %35, label %55
35: ; preds = %29
%36 = load i32, i32* %6
%37 = load i32, i32* %3
%38 = load i32, i32* %7
%39 = mul nsw i32 %37, %38
%40 = add nsw i32 %36, %39
%41 = sext i32 %40 to i64
%42 = getelementptr inbounds [100 x i32], [100 x i32]* %4, i64 0, i64 %41
%43 = load i32, i32* %42
%44 = icmp eq i32 %43, 1
br i1 %44, label %45, label %48
45: ; preds = %35
%46 = load i32, i32* %8
%47 = add nsw i32 %46, 1
store i32 %47, i32* %8
br label %51
48: ; preds = %35
%49 = load i32, i32* %9
%50 = add nsw i32 %49, 1
store i32 %50, i32* %9
br label %51
51: ; preds = %48, %45
br label %52
52: ; preds = %51
%53 = load i32, i32* %7
%54 = add nsw i32 %53, 1
store i32 %54, i32* %7
br label %29
55: ; preds = %29
%56 = load i32, i32* %8
%57 = load i32, i32* %9
%58 = icmp sgt i32 %56, %57
br i1 %58, label %59, label %63
59: ; preds = %55
%60 = load i32, i32* %9
%61 = load i32, i32* %5
%62 = add nsw i32 %61, %60
store i32 %62, i32* %5
br label %67
63: ; preds = %55
%64 = load i32, i32* %8
%65 = load i32, i32* %5
%66 = add nsw i32 %65, %64
store i32 %66, i32* %5
br label %67
67: ; preds = %63, %59
br label %68
68: ; preds = %67
%69 = load i32, i32* %6
%70 = add nsw i32 %69, 1
store i32 %70, i32* %6
br label %24
71: ; preds = %24
%72 = load i32, i32* %5
%73 = call i32 @printf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.2, i64 0, i64 0), i32 %72)
ret i32 0
}

LLVM IR (-O2):
@.str = [7 x i8] c" %d %d\00"
@.str.1 = [4 x i8] c" %d\00"
@.str.2 = [4 x i8] c"%d\0A\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca i32
%3 = alloca [100 x i32]
%4 = bitcast i32* %1 to i8*
%5 = bitcast i32* %2 to i8*
%6 = bitcast [100 x i32]* %3 to i8*
%7 = call i32 (i8*, i32*, ...) @scanf(i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str, i64 0, i64 0), i32* %1, i32* %2)
%8 = load i32, i32* %1
%9 = icmp sgt i32 %8, 0
br i1 %9, label %24, label %10
10: ; preds = %24, %0
%11 = phi i32 [ %8, %0 ], [ %29, %24 ]
%12 = load i32, i32* %2
%13 = icmp sgt i32 %12, 0
br i1 %13, label %14, label %90
14: ; preds = %10
%15 = sdiv i32 %11, %12
%16 = icmp sgt i32 %15, 0
%17 = zext i32 %12 to i64
%18 = zext i32 %12 to i64
%19 = zext i32 %15 to i64
%20 = and i64 %19, 1
%21 = icmp eq i32 %15, 1
%22 = and i64 %19, 4294967294
%23 = icmp eq i64 %20, 0
br label %32
24: ; preds = %0, %24
%25 = phi i64 [ %28, %24 ], [ 0, %0 ]
%26 = getelementptr inbounds [100 x i32], [100 x i32]* %3, i64 0, i64 %25
%27 = call i32 (i8*, i32*, ...) @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), i32* %26)
%28 = add nuw nsw i64 %25, 1
%29 = load i32, i32* %1
%30 = sext i32 %29 to i64
%31 = icmp slt i64 %28, %30
br i1 %31, label %24, label %10
32: ; preds = %14, %82
%33 = phi i64 [ 0, %14 ], [ %88, %82 ]
%34 = phi i32 [ 0, %14 ], [ %87, %82 ]
br i1 %16, label %35, label %82
35: ; preds = %32
br i1 %21, label %65, label %36
36: ; preds = %35, %36
%37 = phi i64 [ %62, %36 ], [ 0, %35 ]
%38 = phi i32 [ %61, %36 ], [ 0, %35 ]
%39 = phi i32 [ %58, %36 ], [ 0, %35 ]
%40 = phi i64 [ %63, %36 ], [ 0, %35 ]
%41 = mul nsw i64 %37, %17
%42 = add nuw nsw i64 %41, %33
%43 = getelementptr inbounds [100 x i32], [100 x i32]* %3, i64 0, i64 %42
%44 = load i32, i32* %43
%45 = icmp eq i32 %44, 1
%46 = zext i1 %45 to i32
%47 = add nuw nsw i32 %39, %46
%48 = xor i1 %45, true
%49 = zext i1 %48 to i32
%50 = add nuw nsw i32 %38, %49
%51 = or i64 %37, 1
%52 = mul nsw i64 %51, %17
%53 = add nuw nsw i64 %52, %33
%54 = getelementptr inbounds [100 x i32], [100 x i32]* %3, i64 0, i64 %53
%55 = load i32, i32* %54
%56 = icmp eq i32 %55, 1
%57 = zext i1 %56 to i32
%58 = add nuw nsw i32 %47, %57
%59 = xor i1 %56, true
%60 = zext i1 %59 to i32
%61 = add nuw nsw i32 %50, %60
%62 = add nuw nsw i64 %37, 2
%63 = add i64 %40, 2
%64 = icmp eq i64 %63, %22
br i1 %64, label %65, label %36
65: ; preds = %36, %35
%66 = phi i32 [ undef, %35 ], [ %58, %36 ]
%67 = phi i32 [ undef, %35 ], [ %61, %36 ]
%68 = phi i64 [ 0, %35 ], [ %62, %36 ]
%69 = phi i32 [ 0, %35 ], [ %61, %36 ]
%70 = phi i32 [ 0, %35 ], [ %58, %36 ]
br i1 %23, label %82, label %71
71: ; preds = %65
%72 = mul nsw i64 %68, %17
%73 = add nuw nsw i64 %72, %33
%74 = getelementptr inbounds [100 x i32], [100 x i32]* %3, i64 0, i64 %73
%75 = load i32, i32* %74
%76 = icmp eq i32 %75, 1
%77 = zext i1 %76 to i32
%78 = add nuw nsw i32 %70, %77
%79 = xor i1 %76, true
%80 = zext i1 %79 to i32
%81 = add nuw nsw i32 %69, %80
br label %82
82: ; preds = %71, %65, %32
%83 = phi i32 [ 0, %32 ], [ %66, %65 ], [ %78, %71 ]
%84 = phi i32 [ 0, %32 ], [ %67, %65 ], [ %81, %71 ]
%85 = icmp ugt i32 %83, %84
%86 = select i1 %85, i32 %84, i32 %83
%87 = add nuw nsw i32 %86, %34
%88 = add nuw nsw i64 %33, 1
%89 = icmp eq i64 %88, %18
br i1 %89, label %90, label %32
90: ; preds = %82, %10
%91 = phi i32 [ 0, %10 ], [ %87, %82 ]
%92 = call i32 @printf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.2, i64 0, i64 0), i32 %91)
ret i32 0
}