#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*/);
int /*<<< orphan*/ scanf(char *, int *);
int /*<<< orphan*/ sqrt(double);
int main(void) {
  int num, score[1000], i;
  double average, sigma, sum;
  while (1) {
    scanf("%d", &num);
    if (num == 0)
      break;
    sum = 0;
    for (i = 0; i < num; i++) {
      scanf("%d", &score[i]);
      sum += score[i];
    }
    average = 1.0 * sum / num;
    sum = 0;
    for (i = 0; i < num; i++)
      sum += (score[i] - average) * (score[i] - average);
    sigma = sum / num;
    printf("%.8lf\n", sqrt(sigma));
  }
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0xfd0,%rsp
movl   $0x0,-0x4(%rbp)
lea    0xebf(%rip),%rdi
lea    -0x8(%rbp),%rsi
call   1040 <scanf@plt>
cmpl   $0x0,-0x8(%rbp)
jne    1161 <main+0x31>
jmp    12b4 <main+0x184>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0xfd0(%rbp)
ff
movl   $0x0,-0xfb4(%rbp)
mov    -0xfb4(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    11da <main+0xaa>
movslq -0xfb4(%rbp),%rax
lea    -0xfb0(%rbp),%rsi
shl    $0x2,%rax
add    %rax,%rsi
lea    0xe67(%rip),%rdi
call   1040 <scanf@plt>
movslq -0xfb4(%rbp),%rax
cvtsi2sdl -0xfb0(%rbp,%rax,4),%xmm0
ff ff
addsd  -0xfd0(%rbp),%xmm0
ff
movsd  %xmm0,-0xfd0(%rbp)
ff
mov    -0xfb4(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xfb4(%rbp)
jmp    1176 <main+0x46>
movsd  0xe1e(%rip),%xmm0
mulsd  -0xfd0(%rbp),%xmm0
ff
cvtsi2sdl -0x8(%rbp),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0xfc0(%rbp)
ff
xorps  %xmm0,%xmm0
movsd  %xmm0,-0xfd0(%rbp)
ff
movl   $0x0,-0xfb4(%rbp)
mov    -0xfb4(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    127b <main+0x14b>
movslq -0xfb4(%rbp),%rax
cvtsi2sdl -0xfb0(%rbp,%rax,4),%xmm0
ff ff
subsd  -0xfc0(%rbp),%xmm0
ff
movslq -0xfb4(%rbp),%rax
cvtsi2sdl -0xfb0(%rbp,%rax,4),%xmm2
ff ff
subsd  -0xfc0(%rbp),%xmm2
ff
movsd  -0xfd0(%rbp),%xmm1
ff
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0xfd0(%rbp)
ff
mov    -0xfb4(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xfb4(%rbp)
jmp    1210 <main+0xe0>
movsd  -0xfd0(%rbp),%xmm0
ff
cvtsi2sdl -0x8(%rbp),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0xfc8(%rbp)
ff
movsd  -0xfc8(%rbp),%xmm0
ff
call   1050 <sqrt@plt>
mov    %eax,%esi
lea    0xd61(%rip),%rdi
call   1030 <printf@plt>
jmp    1142 <main+0x12>
xor    %eax,%eax
add    $0xfd0,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0xfb8,%rsp
lea    0xeb8(%rip),%rdi
lea    0x4(%rsp),%rsi
call   1040 <scanf@plt>
mov    0x4(%rsp),%eax
test   %eax,%eax
je     12d2 <main+0x1a2>
lea    0x10(%rsp),%r13
lea    0xe96(%rip),%r12
lea    0xe92(%rip),%r14
lea    0x4(%rsp),%r15
jmp    11b5 <main+0x85>
nopl   0x0(%rax,%rax,1)
xorps  %xmm1,%xmm1
cvtsi2sd %eax,%xmm1
xorpd  %xmm0,%xmm0
divsd  %xmm1,%xmm0
call   1050 <sqrt@plt>
mov    %r14,%rdi
mov    %eax,%esi
call   1030 <printf@plt>
mov    %r12,%rdi
mov    %r15,%rsi
call   1040 <scanf@plt>
mov    0x4(%rsp),%eax
test   %eax,%eax
je     12d2 <main+0x1a2>
test   %eax,%eax
jle    1180 <main+0x50>
xorps  %xmm4,%xmm4
mov    %r13,%rbx
xor    %ebp,%ebp
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movsd  %xmm4,0x8(%rsp)
mov    %r12,%rdi
mov    %rbx,%rsi
call   1040 <scanf@plt>
movsd  0x8(%rsp),%xmm4
xorps  %xmm0,%xmm0
cvtsi2sdl (%rbx),%xmm0
addsd  %xmm0,%xmm4
add    $0x1,%rbp
movslq 0x4(%rsp),%rax
add    $0x4,%rbx
cmp    %rax,%rbp
jl     11d0 <main+0xa0>
mov    %eax,%ecx
xorps  %xmm1,%xmm1
cvtsi2sd %ecx,%xmm1
test   %ecx,%ecx
jle    1187 <main+0x57>
divsd  %xmm1,%xmm4
lea    -0x1(%rcx),%rdx
mov    %ecx,%eax
and    $0x3,%eax
cmp    $0x3,%rdx
jae    1230 <main+0x100>
xorpd  %xmm0,%xmm0
xor    %edx,%edx
jmp    129d <main+0x16d>
and    $0xfffffffc,%ecx
xorpd  %xmm0,%xmm0
xor    %edx,%edx
nopl   0x0(%rax)
xorps  %xmm2,%xmm2
cvtsi2sdl 0x10(%rsp,%rdx,4),%xmm2
subsd  %xmm4,%xmm2
mulsd  %xmm2,%xmm2
xorps  %xmm3,%xmm3
cvtsi2sdl 0x14(%rsp,%rdx,4),%xmm3
addsd  %xmm0,%xmm2
subsd  %xmm4,%xmm3
mulsd  %xmm3,%xmm3
addsd  %xmm2,%xmm3
xorps  %xmm2,%xmm2
cvtsi2sdl 0x18(%rsp,%rdx,4),%xmm2
subsd  %xmm4,%xmm2
mulsd  %xmm2,%xmm2
addsd  %xmm3,%xmm2
xorps  %xmm0,%xmm0
cvtsi2sdl 0x1c(%rsp,%rdx,4),%xmm0
subsd  %xmm4,%xmm0
mulsd  %xmm0,%xmm0
addsd  %xmm2,%xmm0
add    $0x4,%rdx
cmp    %rdx,%rcx
jne    1240 <main+0x110>
test   %rax,%rax
je     118b <main+0x5b>
lea    (%rsp,%rdx,4),%rcx
add    $0x10,%rcx
xor    %edx,%edx
xorps  %xmm2,%xmm2
cvtsi2sdl (%rcx,%rdx,4),%xmm2
subsd  %xmm4,%xmm2
mulsd  %xmm2,%xmm2
addsd  %xmm2,%xmm0
add    $0x1,%rdx
cmp    %rdx,%rax
jne    12b0 <main+0x180>
jmp    118b <main+0x5b>
xor    %eax,%eax
add    $0xfb8,%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 = [7 x i8] c"%.8lf\0A\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca i32
%3 = alloca [1000 x i32]
%4 = alloca i32
%5 = alloca double
%6 = alloca double
%7 = alloca double
store i32 0, i32* %1
br label %8
8: ; preds = %0, %63
%9 = call i32 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %2)
%10 = load i32, i32* %2
%11 = icmp eq i32 %10, 0
br i1 %11, label %12, label %13
12: ; preds = %8
br label %71
13: ; preds = %8
store double 0.000000e+00, double* %7
store i32 0, i32* %4
br label %14
14: ; preds = %30, %13
%15 = load i32, i32* %4
%16 = load i32, i32* %2
%17 = icmp slt i32 %15, %16
br i1 %17, label %18, label %33
18: ; preds = %14
%19 = load i32, i32* %4
%20 = sext i32 %19 to i64
%21 = getelementptr inbounds [1000 x i32], [1000 x i32]* %3, i64 0, i64 %20
%22 = call i32 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %21)
%23 = load i32, i32* %4
%24 = sext i32 %23 to i64
%25 = getelementptr inbounds [1000 x i32], [1000 x i32]* %3, i64 0, i64 %24
%26 = load i32, i32* %25
%27 = sitofp i32 %26 to double
%28 = load double, double* %7
%29 = fadd double %28, %27
store double %29, double* %7
br label %30
30: ; preds = %18
%31 = load i32, i32* %4
%32 = add nsw i32 %31, 1
store i32 %32, i32* %4
br label %14
33: ; preds = %14
%34 = load double, double* %7
%35 = fmul double 1.000000e+00, %34
%36 = load i32, i32* %2
%37 = sitofp i32 %36 to double
%38 = fdiv double %35, %37
store double %38, double* %5
store double 0.000000e+00, double* %7
store i32 0, i32* %4
br label %39
39: ; preds = %60, %33
%40 = load i32, i32* %4
%41 = load i32, i32* %2
%42 = icmp slt i32 %40, %41
br i1 %42, label %43, label %63
43: ; preds = %39
%44 = load i32, i32* %4
%45 = sext i32 %44 to i64
%46 = getelementptr inbounds [1000 x i32], [1000 x i32]* %3, i64 0, i64 %45
%47 = load i32, i32* %46
%48 = sitofp i32 %47 to double
%49 = load double, double* %5
%50 = fsub double %48, %49
%51 = load i32, i32* %4
%52 = sext i32 %51 to i64
%53 = getelementptr inbounds [1000 x i32], [1000 x i32]* %3, i64 0, i64 %52
%54 = load i32, i32* %53
%55 = sitofp i32 %54 to double
%56 = load double, double* %5
%57 = fsub double %55, %56
%58 = load double, double* %7
%59 = call double @llvm.fmuladd.f64(double %50, double %57, double %58)
store double %59, double* %7
br label %60
60: ; preds = %43
%61 = load i32, i32* %4
%62 = add nsw i32 %61, 1
store i32 %62, i32* %4
br label %39
63: ; preds = %39
%64 = load double, double* %7
%65 = load i32, i32* %2
%66 = sitofp i32 %65 to double
%67 = fdiv double %64, %66
store double %67, double* %6
%68 = load double, double* %6
%69 = call i32 @sqrt(double %68)
%70 = call i32 @printf(i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str.1, i64 0, i64 0), i32 %69)
br label %8
71: ; preds = %12
ret i32 0
}

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