#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 /*<<< orphan*/ scanf(char *, int *);
int main() {
  int i, j, c, len, num, temp, t, res;
  int arr[100001];
  while (1) {
    c = len = 0;
    scanf("%d", &num);
    if (num == -1)
      break;
    for (i = 0; i < num; i++) {
      scanf("%d", &arr[i]);
      c += arr[i];
    }
    if (c / num != (float)c / num) {
      printf("-1\n");
      continue;
    }
    temp = c / num;
    for (i = 0; i < num; i++)
      len += ((arr[i] - temp) >= 0 ? (arr[i] - temp) : -(arr[i] - temp));
    printf("%d\n", len / 2);
  }
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x61ac0,%rsp
movl   $0x0,-0x4(%rbp)
movl   $0x0,-0x14(%rbp)
movl   $0x0,-0x10(%rbp)
lea    0xeb9(%rip),%rdi
lea    -0x18(%rbp),%rsi
call   1040 <scanf@plt>
cmpl   $0xffffffff,-0x18(%rbp)
jne    115f <main+0x3f>
jmp    128e <main+0x16e>
movl   $0x0,-0x8(%rbp)
mov    -0x8(%rbp),%eax
cmp    -0x18(%rbp),%eax
jge    11af <main+0x8f>
movslq -0x8(%rbp),%rax
lea    -0x61ab0(%rbp),%rsi
shl    $0x2,%rax
add    %rax,%rsi
lea    0xe75(%rip),%rdi
call   1040 <scanf@plt>
movslq -0x8(%rbp),%rax
mov    -0x61ab0(%rbp,%rax,4),%eax
add    -0x10(%rbp),%eax
mov    %eax,-0x10(%rbp)
mov    -0x8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x8(%rbp)
jmp    1166 <main+0x46>
mov    -0x10(%rbp),%eax
cltd
idivl  -0x18(%rbp)
cvtsi2ss %eax,%xmm0
cvtsi2ssl -0x10(%rbp),%xmm1
cvtsi2ssl -0x18(%rbp),%xmm2
divss  %xmm2,%xmm1
ucomiss %xmm1,%xmm0
jne    11dc <main+0xbc>
jp     11dc <main+0xbc>
jmp    11ef <main+0xcf>
lea    0xe20(%rip),%rdi
mov    $0x0,%al
call   1030 <printf@plt>
jmp    1132 <main+0x12>
mov    -0x10(%rbp),%eax
cltd
idivl  -0x18(%rbp)
mov    %eax,-0x1c(%rbp)
movl   $0x0,-0x8(%rbp)
mov    -0x8(%rbp),%eax
cmp    -0x18(%rbp),%eax
jge    126e <main+0x14e>
movslq -0x8(%rbp),%rax
mov    -0x61ab0(%rbp,%rax,4),%eax
sub    -0x1c(%rbp),%eax
cmp    $0x0,%eax
jl     123c <main+0x11c>
movslq -0x8(%rbp),%rax
mov    -0x61ab0(%rbp,%rax,4),%eax
sub    -0x1c(%rbp),%eax
mov    %eax,-0x61ab4(%rbp)
jmp    1254 <main+0x134>
movslq -0x8(%rbp),%rax
mov    -0x61ab0(%rbp,%rax,4),%ecx
sub    -0x1c(%rbp),%ecx
xor    %eax,%eax
sub    %ecx,%eax
mov    %eax,-0x61ab4(%rbp)
mov    -0x61ab4(%rbp),%eax
add    -0x14(%rbp),%eax
mov    %eax,-0x14(%rbp)
mov    -0x8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x8(%rbp)
jmp    1200 <main+0xe0>
mov    -0x14(%rbp),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,%esi
lea    0xd85(%rip),%rdi
mov    $0x0,%al
call   1030 <printf@plt>
jmp    1132 <main+0x12>
xor    %eax,%eax
add    $0x61ac0,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x61a98,%rsp
lea    0xeb8(%rip),%rdi
lea    0xc(%rsp),%rsi
call   1050 <scanf@plt>
mov    0xc(%rsp),%esi
cmp    $0xffffffff,%esi
je     13a2 <main+0x272>
lea    0xe9a(%rip),%r13
lea    0xe9a(%rip),%r14
lea    0xc(%rsp),%r15
jmp    11a0 <main+0x70>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
mov    %r14,%rdi
call   1030 <puts@plt>
mov    %r13,%rdi
mov    %r15,%rsi
call   1050 <scanf@plt>
mov    0xc(%rsp),%esi
cmp    $0xffffffff,%esi
je     13a2 <main+0x272>
mov    $0x0,%ebp
test   %esi,%esi
jle    11df <main+0xaf>
xor    %r12d,%r12d
lea    0x10(%rsp),%rbx
xor    %ebp,%ebp
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
mov    %r13,%rdi
mov    %rbx,%rsi
call   1050 <scanf@plt>
add    (%rbx),%ebp
add    $0x1,%r12
movslq 0xc(%rsp),%rsi
add    $0x4,%rbx
cmp    %rsi,%r12
jl     11c0 <main+0x90>
mov    %ebp,%eax
cltd
idiv   %esi
xorps  %xmm0,%xmm0
cvtsi2ss %eax,%xmm0
xorps  %xmm1,%xmm1
cvtsi2ss %ebp,%xmm1
xorps  %xmm2,%xmm2
cvtsi2ss %esi,%xmm2
divss  %xmm2,%xmm1
ucomiss %xmm0,%xmm1
jne    1180 <main+0x50>
jp     1180 <main+0x50>
test   %esi,%esi
jle    1220 <main+0xf0>
mov    %esi,%ecx
cmp    $0x8,%esi
jae    1227 <main+0xf7>
xor    %edx,%edx
xor    %esi,%esi
jmp    1360 <main+0x230>
xor    %esi,%esi
jmp    1378 <main+0x248>
mov    %ecx,%edx
and    $0xfffffff8,%edx
movd   %eax,%xmm0
pshufd $0x0,%xmm0,%xmm1
lea    -0x8(%rdx),%rsi
mov    %rsi,%rbp
shr    $0x3,%rbp
add    $0x1,%rbp
test   %rsi,%rsi
je     138d <main+0x25d>
mov    %rbp,%rsi
and    $0xfffffffffffffffe,%rsi
pxor   %xmm6,%xmm6
xor    %edi,%edi
pxor   %xmm4,%xmm4
xchg   %ax,%ax
movdqa 0x10(%rsp,%rdi,4),%xmm5
movdqa 0x20(%rsp,%rdi,4),%xmm3
movdqa 0x30(%rsp,%rdi,4),%xmm0
movdqa 0x40(%rsp,%rdi,4),%xmm2
psubd  %xmm1,%xmm5
psubd  %xmm1,%xmm3
movdqa %xmm5,%xmm7
psrad  $0x1f,%xmm7
paddd  %xmm7,%xmm5
pxor   %xmm7,%xmm5
paddd  %xmm6,%xmm5
movdqa %xmm3,%xmm6
psrad  $0x1f,%xmm6
paddd  %xmm6,%xmm3
pxor   %xmm6,%xmm3
paddd  %xmm4,%xmm3
psubd  %xmm1,%xmm0
psubd  %xmm1,%xmm2
movdqa %xmm0,%xmm4
psrad  $0x1f,%xmm4
paddd  %xmm4,%xmm0
pxor   %xmm4,%xmm0
paddd  %xmm5,%xmm0
movdqa %xmm2,%xmm4
psrad  $0x1f,%xmm4
paddd  %xmm4,%xmm2
pxor   %xmm4,%xmm2
paddd  %xmm3,%xmm2
add    $0x10,%rdi
movdqa %xmm0,%xmm6
movdqa %xmm2,%xmm4
add    $0xfffffffffffffffe,%rsi
jne    1260 <main+0x130>
test   $0x1,%bpl
je     1336 <main+0x206>
movdqa 0x10(%rsp,%rdi,4),%xmm3
movdqa 0x20(%rsp,%rdi,4),%xmm4
psubd  %xmm1,%xmm3
psubd  %xmm1,%xmm4
movdqa %xmm3,%xmm1
psrad  $0x1f,%xmm1
paddd  %xmm1,%xmm3
pxor   %xmm1,%xmm3
paddd  %xmm3,%xmm0
movdqa %xmm4,%xmm1
psrad  $0x1f,%xmm1
paddd  %xmm1,%xmm4
pxor   %xmm1,%xmm4
paddd  %xmm4,%xmm2
paddd  %xmm2,%xmm0
pshufd $0xee,%xmm0,%xmm1
paddd  %xmm0,%xmm1
pshufd $0x55,%xmm1,%xmm0
paddd  %xmm1,%xmm0
movd   %xmm0,%esi
cmp    %rcx,%rdx
je     1378 <main+0x248>
cs nopw 0x0(%rax,%rax,1)
nop
mov    0x10(%rsp,%rdx,4),%ebp
sub    %eax,%ebp
mov    %ebp,%edi
neg    %edi
cmovs  %ebp,%edi
add    %edi,%esi
add    $0x1,%rdx
cmp    %rdx,%rcx
jne    1360 <main+0x230>
shr    %esi
lea    0xc82(%rip),%rdi
xor    %eax,%eax
call   1040 <printf@plt>
jmp    1188 <main+0x58>
pxor   %xmm0,%xmm0
xor    %edi,%edi
xorps  %xmm2,%xmm2
test   $0x1,%bpl
jne    12f8 <main+0x1c8>
jmp    1336 <main+0x206>
xor    %eax,%eax
add    $0x61a98,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
@.str = [3 x i8] c"%d\00"
@.str.2 = [4 x i8] c"%d\0A\00"
@str = [3 x i8] c"-1\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca [100001 x i32]
%3 = bitcast i32* %1 to i8*
%4 = bitcast [100001 x i32]* %2 to i8*
%5 = call i32 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %1)
%6 = load i32, i32* %1
%7 = icmp eq i32 %6, -1
br i1 %7, label %131, label %8
8: ; preds = %0, %113
%9 = phi i32 [ %115, %113 ], [ %6, %0 ]
%10 = icmp sgt i32 %9, 0
br i1 %10, label %11, label %22
11: ; preds = %8, %11
%12 = phi i64 [ %18, %11 ], [ 0, %8 ]
%13 = phi i32 [ %17, %11 ], [ 0, %8 ]
%14 = getelementptr inbounds [100001 x i32], [100001 x i32]* %2, i64 0, i64 %12
%15 = call i32 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %14)
%16 = load i32, i32* %14
%17 = add nsw i32 %16, %13
%18 = add nuw nsw i64 %12, 1
%19 = load i32, i32* %1
%20 = sext i32 %19 to i64
%21 = icmp slt i64 %18, %20
br i1 %21, label %11, label %22
22: ; preds = %11, %8
%23 = phi i32 [ 0, %8 ], [ %17, %11 ]
%24 = phi i32 [ %9, %8 ], [ %19, %11 ]
%25 = sdiv i32 %23, %24
%26 = sitofp i32 %25 to float
%27 = sitofp i32 %23 to float
%28 = sitofp i32 %24 to float
%29 = fdiv float %27, %28
%30 = fcmp une float %29, %26
br i1 %30, label %111, label %31
31: ; preds = %22
%32 = icmp sgt i32 %24, 0
br i1 %32, label %33, label %127
33: ; preds = %31
%34 = zext i32 %24 to i64
%35 = icmp ult i32 %24, 8
br i1 %35, label %108, label %36
36: ; preds = %33
%37 = and i64 %34, 4294967288
%38 = insertelement <4 x i32> poison, i32 %25, i64 0
%39 = shufflevector <4 x i32> %38, <4 x i32> poison, <4 x i32> zeroinitializer
%40 = insertelement <4 x i32> poison, i32 %25, i64 0
%41 = shufflevector <4 x i32> %40, <4 x i32> poison, <4 x i32> zeroinitializer
%42 = add nsw i64 %37, -8
%43 = lshr exact i64 %42, 3
%44 = add nuw nsw i64 %43, 1
%45 = and i64 %44, 1
%46 = icmp eq i64 %42, 0
br i1 %46, label %82, label %47
47: ; preds = %36
%48 = and i64 %44, 4611686018427387902
br label %49
49: ; preds = %49, %47
%50 = phi i64 [ 0, %47 ], [ %79, %49 ]
%51 = phi <4 x i32> [ zeroinitializer, %47 ], [ %77, %49 ]
%52 = phi <4 x i32> [ zeroinitializer, %47 ], [ %78, %49 ]
%53 = phi i64 [ 0, %47 ], [ %80, %49 ]
%54 = getelementptr inbounds [100001 x i32], [100001 x i32]* %2, i64 0, i64 %50
%55 = bitcast i32* %54 to <4 x i32>*
%56 = load <4 x i32>, <4 x i32>* %55
%57 = getelementptr inbounds i32, i32* %54, i64 4
%58 = bitcast i32* %57 to <4 x i32>*
%59 = load <4 x i32>, <4 x i32>* %58
%60 = sub nsw <4 x i32> %56, %39
%61 = sub nsw <4 x i32> %59, %41
%62 = call <4 x i32> @llvm.abs.v4i32(<4 x i32> %60, i1 true)
%63 = call <4 x i32> @llvm.abs.v4i32(<4 x i32> %61, i1 true)
%64 = add <4 x i32> %62, %51
%65 = add <4 x i32> %63, %52
%66 = or i64 %50, 8
%67 = getelementptr inbounds [100001 x i32], [100001 x i32]* %2, i64 0, i64 %66
%68 = bitcast i32* %67 to <4 x i32>*
%69 = load <4 x i32>, <4 x i32>* %68
%70 = getelementptr inbounds i32, i32* %67, i64 4
%71 = bitcast i32* %70 to <4 x i32>*
%72 = load <4 x i32>, <4 x i32>* %71
%73 = sub nsw <4 x i32> %69, %39
%74 = sub nsw <4 x i32> %72, %41
%75 = call <4 x i32> @llvm.abs.v4i32(<4 x i32> %73, i1 true)
%76 = call <4 x i32> @llvm.abs.v4i32(<4 x i32> %74, i1 true)
%77 = add <4 x i32> %75, %64
%78 = add <4 x i32> %76, %65
%79 = add nuw i64 %50, 16
%80 = add i64 %53, 2
%81 = icmp eq i64 %80, %48
br i1 %81, label %82, label %49
82: ; preds = %49, %36
%83 = phi <4 x i32> [ undef, %36 ], [ %77, %49 ]
%84 = phi <4 x i32> [ undef, %36 ], [ %78, %49 ]
%85 = phi i64 [ 0, %36 ], [ %79, %49 ]
%86 = phi <4 x i32> [ zeroinitializer, %36 ], [ %77, %49 ]
%87 = phi <4 x i32> [ zeroinitializer, %36 ], [ %78, %49 ]
%88 = icmp eq i64 %45, 0
br i1 %88, label %102, label %89
89: ; preds = %82
%90 = getelementptr inbounds [100001 x i32], [100001 x i32]* %2, i64 0, i64 %85
%91 = bitcast i32* %90 to <4 x i32>*
%92 = load <4 x i32>, <4 x i32>* %91
%93 = getelementptr inbounds i32, i32* %90, i64 4
%94 = bitcast i32* %93 to <4 x i32>*
%95 = load <4 x i32>, <4 x i32>* %94
%96 = sub nsw <4 x i32> %92, %39
%97 = sub nsw <4 x i32> %95, %41
%98 = call <4 x i32> @llvm.abs.v4i32(<4 x i32> %96, i1 true)
%99 = call <4 x i32> @llvm.abs.v4i32(<4 x i32> %97, i1 true)
%100 = add <4 x i32> %98, %86
%101 = add <4 x i32> %99, %87
br label %102
102: ; preds = %82, %89
%103 = phi <4 x i32> [ %83, %82 ], [ %100, %89 ]
%104 = phi <4 x i32> [ %84, %82 ], [ %101, %89 ]
%105 = add <4 x i32> %104, %103
%106 = call i32 @llvm.vector.reduce.add.v4i32(<4 x i32> %105)
%107 = icmp eq i64 %37, %34
br i1 %107, label %127, label %108
108: ; preds = %33, %102
%109 = phi i64 [ 0, %33 ], [ %37, %102 ]
%110 = phi i32 [ 0, %33 ], [ %106, %102 ]
br label %117
111: ; preds = %22
%112 = call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([3 x i8], [3 x i8]* @str, i64 0, i64 0))
br label %113
113: ; preds = %111, %127
%114 = call i32 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %1)
%115 = load i32, i32* %1
%116 = icmp eq i32 %115, -1
br i1 %116, label %131, label %8
117: ; preds = %108, %117
%118 = phi i64 [ %125, %117 ], [ %109, %108 ]
%119 = phi i32 [ %124, %117 ], [ %110, %108 ]
%120 = getelementptr inbounds [100001 x i32], [100001 x i32]* %2, i64 0, i64 %118
%121 = load i32, i32* %120
%122 = sub nsw i32 %121, %25
%123 = call i32 @llvm.abs.i32(i32 %122, i1 true)
%124 = add nuw nsw i32 %123, %119
%125 = add nuw nsw i64 %118, 1
%126 = icmp eq i64 %125, %34
br i1 %126, label %127, label %117
127: ; preds = %117, %102, %31
%128 = phi i32 [ 0, %31 ], [ %106, %102 ], [ %124, %117 ]
%129 = lshr i32 %128, 1
%130 = call i32 (i8*, ...) @printf(i8* dereferenceable(1) getelementptr inbounds ([4 x i8], [4 x i8]* @.str.2, i64 0, i64 0), i32 %129)
br label %113
131: ; preds = %113, %0
ret i32 0
}