#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 *, double);
int /*<<< orphan*/ scanf(char *, ...);
int main() {
  float M[12][12];
  double sum = 0.0;
  int aux;
  char op;
  scanf("%c%*c", &op);
  for (int i = 0; i < 12; i++)
    for (int j = 0; j < 12; j++)
      scanf(" %f", &M[i][j]);
  for (int i = 0; i < 12; i++) {
    aux = ((12 - i - 1) > i) ? (12 - i - 1) : i;
    for (int j = aux + 1; j < 12; j++)
      sum += M[i][j];
  }
  aux = 12 / 2;
  if (op == 'M')
    sum /= 2 * (aux * (aux - 1) / 2);
  printf("%.1lf\n", sum);
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x280,%rsp
movl   $0x0,-0x4(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x258(%rbp)
ff
lea    0xebc(%rip),%rdi
lea    -0x25d(%rbp),%rsi
mov    $0x0,%al
call   1040 <scanf@plt>
movl   $0x0,-0x264(%rbp)
cmpl   $0xc,-0x264(%rbp)
jge    11de <main+0xbe>
movl   $0x0,-0x268(%rbp)
cmpl   $0xc,-0x268(%rbp)
jge    11c5 <main+0xa5>
movslq -0x264(%rbp),%rax
lea    -0x250(%rbp),%rsi
imul   $0x30,%rax,%rax
add    %rax,%rsi
movslq -0x268(%rbp),%rax
shl    $0x2,%rax
add    %rax,%rsi
lea    0xe5c(%rip),%rdi
mov    $0x0,%al
call   1040 <scanf@plt>
mov    -0x268(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x268(%rbp)
jmp    1173 <main+0x53>
jmp    11ca <main+0xaa>
mov    -0x264(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x264(%rbp)
jmp    115c <main+0x3c>
movl   $0x0,-0x26c(%rbp)
cmpl   $0xc,-0x26c(%rbp)
jge    12be <main+0x19e>
mov    $0xc,%eax
sub    -0x26c(%rbp),%eax
sub    $0x1,%eax
cmp    -0x26c(%rbp),%eax
jle    1228 <main+0x108>
mov    $0xc,%eax
sub    -0x26c(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x274(%rbp)
jmp    1234 <main+0x114>
mov    -0x26c(%rbp),%eax
mov    %eax,-0x274(%rbp)
mov    -0x274(%rbp),%eax
mov    %eax,-0x25c(%rbp)
mov    -0x25c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x270(%rbp)
cmpl   $0xc,-0x270(%rbp)
jge    12a5 <main+0x185>
movslq -0x26c(%rbp),%rcx
lea    -0x250(%rbp),%rax
imul   $0x30,%rcx,%rcx
add    %rcx,%rax
movslq -0x270(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
cvtss2sd %xmm0,%xmm0
addsd  -0x258(%rbp),%xmm0
ff
movsd  %xmm0,-0x258(%rbp)
ff
mov    -0x270(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x270(%rbp)
jmp    124f <main+0x12f>
jmp    12aa <main+0x18a>
mov    -0x26c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x26c(%rbp)
jmp    11e8 <main+0xc8>
movl   $0x6,-0x25c(%rbp)
movsbl -0x25d(%rbp),%eax
cmp    $0x4d,%eax
jne    130d <main+0x1ed>
mov    -0x25c(%rbp),%eax
mov    -0x25c(%rbp),%ecx
sub    $0x1,%ecx
imul   %ecx,%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
shl    $0x1,%eax
cvtsi2sd %eax,%xmm1
movsd  -0x258(%rbp),%xmm0
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x258(%rbp)
ff
movsd  -0x258(%rbp),%xmm0
ff
lea    0xcee(%rip),%rdi
call   1030 <printf@plt>
xor    %eax,%eax
add    $0x280,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %r14
push   %rbx
sub    $0x258,%rsp
lea    0xed7(%rip),%rdi
lea    0xf(%rsp),%rsi
xor    %eax,%eax
call   1040 <scanf@plt>
lea    0xeca(%rip),%r14
xor    %ebx,%ebx
cs nopw 0x0(%rax,%rax,1)
lea    (%rsp,%rbx,1),%rsi
add    $0x10,%rsi
mov    %r14,%rdi
xor    %eax,%eax
call   1040 <scanf@plt>
lea    (%rsp,%rbx,1),%rsi
add    $0x14,%rsi
mov    %r14,%rdi
xor    %eax,%eax
call   1040 <scanf@plt>
lea    (%rsp,%rbx,1),%rsi
add    $0x18,%rsi
mov    %r14,%rdi
xor    %eax,%eax
call   1040 <scanf@plt>
lea    (%rsp,%rbx,1),%rsi
add    $0x1c,%rsi
mov    %r14,%rdi
xor    %eax,%eax
call   1040 <scanf@plt>
lea    (%rsp,%rbx,1),%rsi
add    $0x20,%rsi
mov    %r14,%rdi
xor    %eax,%eax
call   1040 <scanf@plt>
lea    (%rsp,%rbx,1),%rsi
add    $0x24,%rsi
mov    %r14,%rdi
xor    %eax,%eax
call   1040 <scanf@plt>
lea    (%rsp,%rbx,1),%rsi
add    $0x28,%rsi
mov    %r14,%rdi
xor    %eax,%eax
call   1040 <scanf@plt>
lea    (%rsp,%rbx,1),%rsi
add    $0x2c,%rsi
mov    %r14,%rdi
xor    %eax,%eax
call   1040 <scanf@plt>
lea    (%rsp,%rbx,1),%rsi
add    $0x30,%rsi
mov    %r14,%rdi
xor    %eax,%eax
call   1040 <scanf@plt>
lea    (%rsp,%rbx,1),%rsi
add    $0x34,%rsi
mov    %r14,%rdi
xor    %eax,%eax
call   1040 <scanf@plt>
lea    (%rsp,%rbx,1),%rsi
add    $0x38,%rsi
mov    %r14,%rdi
xor    %eax,%eax
call   1040 <scanf@plt>
lea    (%rsp,%rbx,1),%rsi
add    $0x3c,%rsi
mov    %r14,%rdi
xor    %eax,%eax
call   1040 <scanf@plt>
add    $0x30,%rbx
cmp    $0x240,%rbx
jne    1150 <main+0x30>
lea    0x14(%rsp),%rax
xorpd  %xmm0,%xmm0
mov    $0xb,%ecx
xor    %edx,%edx
jmp    1261 <main+0x141>
nopl   0x0(%rax,%rax,1)
add    $0x1,%rdx
add    $0xffffffff,%ecx
add    $0x30,%rax
cmp    $0xc,%rdx
je     129a <main+0x17a>
cmp    %edx,%ecx
mov    %edx,%esi
cmova  %ecx,%esi
mov    $0xb,%edi
sub    %edx,%edi
cmp    %rdi,%rdx
cmovae %edx,%edi
cmp    $0xa,%edi
ja     1250 <main+0x130>
add    $0xffffffffffffffff,%rsi
xchg   %ax,%ax
movss  0x4(%rax,%rsi,4),%xmm1
cvtss2sd %xmm1,%xmm1
addsd  %xmm1,%xmm0
add    $0x1,%rsi
cmp    $0xa,%rsi
jb     1280 <main+0x160>
jmp    1250 <main+0x130>
cmpb   $0x4d,0xf(%rsp)
jne    12a9 <main+0x189>
divsd  0xd57(%rip),%xmm0
lea    0xd62(%rip),%rdi
call   1030 <printf@plt>
xor    %eax,%eax
add    $0x258,%rsp
pop    %rbx
pop    %r14
ret

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

LLVM IR (-O2):
@.str = [6 x i8] c"%c%*c\00"
@.str.1 = [4 x i8] c" %f\00"
@.str.2 = [7 x i8] c"%.1lf\0A\00"
define i32 @main() {
%1 = alloca [12 x [12 x float]]
%2 = alloca i8
%3 = bitcast [12 x [12 x float]]* %1 to i8*
%4 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str, i64 0, i64 0), i8* %2)
br label %5
5: ; preds = %0, %5
%6 = phi i64 [ 0, %0 ], [ %31, %5 ]
%7 = getelementptr inbounds [12 x [12 x float]], [12 x [12 x float]]* %1, i64 0, i64 %6, i64 0
%8 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), float* %7)
%9 = getelementptr inbounds [12 x [12 x float]], [12 x [12 x float]]* %1, i64 0, i64 %6, i64 1
%10 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), float* %9)
%11 = getelementptr inbounds [12 x [12 x float]], [12 x [12 x float]]* %1, i64 0, i64 %6, i64 2
%12 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), float* %11)
%13 = getelementptr inbounds [12 x [12 x float]], [12 x [12 x float]]* %1, i64 0, i64 %6, i64 3
%14 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), float* %13)
%15 = getelementptr inbounds [12 x [12 x float]], [12 x [12 x float]]* %1, i64 0, i64 %6, i64 4
%16 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), float* %15)
%17 = getelementptr inbounds [12 x [12 x float]], [12 x [12 x float]]* %1, i64 0, i64 %6, i64 5
%18 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), float* %17)
%19 = getelementptr inbounds [12 x [12 x float]], [12 x [12 x float]]* %1, i64 0, i64 %6, i64 6
%20 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), float* %19)
%21 = getelementptr inbounds [12 x [12 x float]], [12 x [12 x float]]* %1, i64 0, i64 %6, i64 7
%22 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), float* %21)
%23 = getelementptr inbounds [12 x [12 x float]], [12 x [12 x float]]* %1, i64 0, i64 %6, i64 8
%24 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), float* %23)
%25 = getelementptr inbounds [12 x [12 x float]], [12 x [12 x float]]* %1, i64 0, i64 %6, i64 9
%26 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), float* %25)
%27 = getelementptr inbounds [12 x [12 x float]], [12 x [12 x float]]* %1, i64 0, i64 %6, i64 10
%28 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), float* %27)
%29 = getelementptr inbounds [12 x [12 x float]], [12 x [12 x float]]* %1, i64 0, i64 %6, i64 11
%30 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), float* %29)
%31 = add nuw nsw i64 %6, 1
%32 = icmp eq i64 %31, 12
br i1 %32, label %39, label %5
33: ; preds = %52
%34 = load i8, i8* %2
%35 = icmp eq i8 %34, 77
%36 = fdiv double %53, 3.000000e+01
%37 = select i1 %35, double %36, double %53
%38 = call i32 @printf(i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str.2, i64 0, i64 0), double %37)
ret i32 0
39: ; preds = %5, %52
%40 = phi i64 [ %54, %52 ], [ 0, %5 ]
%41 = phi i32 [ %55, %52 ], [ 11, %5 ]
%42 = phi double [ %53, %52 ], [ 0.000000e+00, %5 ]
%43 = trunc i64 %40 to i32
%44 = sub nuw nsw i32 11, %43
%45 = zext i32 %44 to i64
%46 = icmp ult i64 %40, %45
%47 = select i1 %46, i32 %44, i32 %43
%48 = icmp ult i32 %47, 11
br i1 %48, label %49, label %52
49: ; preds = %39
%50 = call i32 @llvm.umax.i32(i32 %41, i32 %43)
%51 = zext i32 %50 to i64
br label %57
52: ; preds = %57, %39
%53 = phi double [ %42, %39 ], [ %64, %57 ]
%54 = add nuw nsw i64 %40, 1
%55 = add nsw i32 %41, -1
%56 = icmp eq i64 %54, 12
br i1 %56, label %33, label %39
57: ; preds = %49, %57
%58 = phi i64 [ %51, %49 ], [ %60, %57 ]
%59 = phi double [ %42, %49 ], [ %64, %57 ]
%60 = add nuw nsw i64 %58, 1
%61 = getelementptr inbounds [12 x [12 x float]], [12 x [12 x float]]* %1, i64 0, i64 %40, i64 %60
%62 = load float, float* %61
%63 = fpext float %62 to double
%64 = fadd double %59, %63
%65 = icmp ult i64 %58, 10
br i1 %65, label %57, label %52
}