#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() {
  double M[12][12], soma = 0, cont_n = 0;
  int i, j, L;
  char T;
  scanf(" %c", &T);
  for (i = 0; i < 12; i++) {
    for (j = 0; j < 12; j++) {
      scanf(" %lf", &M[i][j]);
      if (j < 6) {
        if (j > i && i < 5) {
          soma += M[i][j];
          cont_n++;
        }
      } else if (j > 5) {
        if (j < 11 - i && i < 5) {
          soma += M[i][j];
          cont_n++;
        }
      }
    }
  }
  switch (T) {
  case 'S':
    printf("%0.1lf\n", soma);
    break;
  case 'M':
    printf("%0.1lf\n", soma / cont_n);
    break;
  }
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x4c0,%rsp
movl   $0x0,-0x4(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x498(%rbp)
ff
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x4a0(%rbp)
ff
lea    0xeb9(%rip),%rdi
lea    -0x4ad(%rbp),%rsi
mov    $0x0,%al
call   1040 <scanf@plt>
movl   $0x0,-0x4a4(%rbp)
cmpl   $0xc,-0x4a4(%rbp)
jge    12ee <main+0x1ce>
movl   $0x0,-0x4a8(%rbp)
cmpl   $0xc,-0x4a8(%rbp)
jge    12d5 <main+0x1b5>
movslq -0x4a4(%rbp),%rax
lea    -0x490(%rbp),%rsi
imul   $0x60,%rax,%rax
add    %rax,%rsi
movslq -0x4a8(%rbp),%rax
shl    $0x3,%rax
add    %rax,%rsi
lea    0xe57(%rip),%rdi
mov    $0x0,%al
call   1040 <scanf@plt>
cmpl   $0x6,-0x4a8(%rbp)
jge    1236 <main+0x116>
mov    -0x4a8(%rbp),%eax
cmp    -0x4a4(%rbp),%eax
jle    1231 <main+0x111>
cmpl   $0x5,-0x4a4(%rbp)
jge    1231 <main+0x111>
movslq -0x4a4(%rbp),%rcx
lea    -0x490(%rbp),%rax
imul   $0x60,%rcx,%rcx
add    %rcx,%rax
movslq -0x4a8(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
addsd  -0x498(%rbp),%xmm0
ff
movsd  %xmm0,-0x498(%rbp)
ff
movsd  0xddf(%rip),%xmm0
addsd  -0x4a0(%rbp),%xmm0
ff
movsd  %xmm0,-0x4a0(%rbp)
ff
jmp    12bc <main+0x19c>
cmpl   $0x5,-0x4a8(%rbp)
jle    12b7 <main+0x197>
mov    -0x4a8(%rbp),%eax
mov    $0xb,%ecx
sub    -0x4a4(%rbp),%ecx
cmp    %ecx,%eax
jge    12b2 <main+0x192>
cmpl   $0x5,-0x4a4(%rbp)
jge    12b2 <main+0x192>
movslq -0x4a4(%rbp),%rcx
lea    -0x490(%rbp),%rax
imul   $0x60,%rcx,%rcx
add    %rcx,%rax
movslq -0x4a8(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
addsd  -0x498(%rbp),%xmm0
ff
movsd  %xmm0,-0x498(%rbp)
ff
movsd  0xd5e(%rip),%xmm0
addsd  -0x4a0(%rbp),%xmm0
ff
movsd  %xmm0,-0x4a0(%rbp)
ff
jmp    12b7 <main+0x197>
jmp    12bc <main+0x19c>
jmp    12c1 <main+0x1a1>
mov    -0x4a8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x4a8(%rbp)
jmp    117e <main+0x5e>
jmp    12da <main+0x1ba>
mov    -0x4a4(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x4a4(%rbp)
jmp    1167 <main+0x47>
movsbl -0x4ad(%rbp),%eax
mov    %eax,-0x4b4(%rbp)
sub    $0x4d,%eax
je     1336 <main+0x216>
jmp    1309 <main+0x1e9>
mov    -0x4b4(%rbp),%eax
sub    $0x53,%eax
jne    1352 <main+0x232>
jmp    131d <main+0x1fd>
movsd  -0x498(%rbp),%xmm0
ff
lea    0xce5(%rip),%rdi
call   1030 <printf@plt>
jmp    1352 <main+0x232>
movsd  -0x498(%rbp),%xmm0
ff
divsd  -0x4a0(%rbp),%xmm0
ff
lea    0xcc4(%rip),%rdi
call   1030 <printf@plt>
xor    %eax,%eax
add    $0x4c0,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x4a8,%rsp
lea    0xed0(%rip),%rdi
lea    0xf(%rsp),%rsi
xor    %eax,%eax
call   1040 <scanf@plt>
xorpd  %xmm0,%xmm0
lea    0x20(%rsp),%r14
lea    0xeb8(%rip),%r15
xor    %r12d,%r12d
xorpd  %xmm1,%xmm1
movsd  %xmm1,0x18(%rsp)
jmp    1182 <main+0x62>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
add    $0x1,%r12
add    $0x60,%r14
cmp    $0xc,%r12
je     1359 <main+0x239>
movsd  %xmm0,0x10(%rsp)
lea    (%r12,%r12,2),%r13
shl    $0x5,%r13
lea    (%rsp,%r13,1),%rsi
add    $0x20,%rsi
mov    %r15,%rdi
xor    %eax,%eax
call   1040 <scanf@plt>
lea    (%rsp,%r13,1),%rbx
add    $0x28,%rbx
mov    %r15,%rdi
mov    %rbx,%rsi
xor    %eax,%eax
call   1040 <scanf@plt>
test   %r12,%r12
jne    11e0 <main+0xc0>
movsd  0x10(%rsp),%xmm0
addsd  (%rbx),%xmm0
movsd  %xmm0,0x10(%rsp)
movsd  0x18(%rsp),%xmm0
addsd  0xe26(%rip),%xmm0
movsd  %xmm0,0x18(%rsp)
lea    (%rsp,%r13,1),%rbx
add    $0x30,%rbx
mov    %r15,%rdi
mov    %rbx,%rsi
xor    %eax,%eax
call   1040 <scanf@plt>
cmp    $0x1,%r12
ja     121f <main+0xff>
movsd  0x10(%rsp),%xmm0
addsd  (%rbx),%xmm0
movsd  %xmm0,0x10(%rsp)
movsd  0x18(%rsp),%xmm0
addsd  0xde7(%rip),%xmm0
movsd  %xmm0,0x18(%rsp)
lea    (%rsp,%r13,1),%rbx
add    $0x38,%rbx
mov    %r15,%rdi
mov    %rbx,%rsi
xor    %eax,%eax
call   1040 <scanf@plt>
cmp    $0x2,%r12
ja     125e <main+0x13e>
movsd  0x10(%rsp),%xmm0
addsd  (%rbx),%xmm0
movsd  %xmm0,0x10(%rsp)
movsd  0x18(%rsp),%xmm0
addsd  0xda8(%rip),%xmm0
movsd  %xmm0,0x18(%rsp)
lea    (%rsp,%r13,1),%rbx
add    $0x40,%rbx
mov    %r15,%rdi
mov    %rbx,%rsi
xor    %eax,%eax
call   1040 <scanf@plt>
cmp    $0x3,%r12
ja     129d <main+0x17d>
movsd  0x10(%rsp),%xmm0
addsd  (%rbx),%xmm0
movsd  %xmm0,0x10(%rsp)
movsd  0x18(%rsp),%xmm0
addsd  0xd69(%rip),%xmm0
movsd  %xmm0,0x18(%rsp)
lea    (%rsp,%r13,1),%rbx
add    $0x48,%rbx
mov    %r15,%rdi
mov    %rbx,%rsi
xor    %eax,%eax
call   1040 <scanf@plt>
cmp    $0x4,%r12
ja     12e0 <main+0x1c0>
movsd  0x10(%rsp),%xmm0
addsd  (%rbx),%xmm0
movsd  0x18(%rsp),%xmm1
addsd  0xd30(%rip),%xmm1
movsd  %xmm1,0x18(%rsp)
jmp    12e6 <main+0x1c6>
nopl   0x0(%rax,%rax,1)
movsd  0x10(%rsp),%xmm0
mov    $0xb,%r13d
sub    %r12,%r13
mov    $0x6,%ebp
mov    $0x30,%ebx
jmp    1318 <main+0x1f8>
nopl   0x0(%rax,%rax,1)
movsd  0x10(%rsp),%xmm0
add    $0x1,%rbp
add    $0x8,%rbx
cmp    $0xc,%rbp
je     1170 <main+0x50>
movsd  %xmm0,0x10(%rsp)
lea    (%r14,%rbx,1),%rsi
mov    %r15,%rdi
xor    %eax,%eax
call   1040 <scanf@plt>
cmp    $0x4,%r12
ja     1300 <main+0x1e0>
cmp    %r13,%rbp
jae    1300 <main+0x1e0>
movsd  0x10(%rsp),%xmm0
addsd  (%r14,%rbp,8),%xmm0
movsd  0x18(%rsp),%xmm1
addsd  0xcaf(%rip),%xmm1
movsd  %xmm1,0x18(%rsp)
jmp    1306 <main+0x1e6>
movsbl 0xf(%rsp),%eax
cmp    $0x53,%eax
je     136e <main+0x24e>
cmp    $0x4d,%eax
jne    137a <main+0x25a>
divsd  0x18(%rsp),%xmm0
lea    0xc9c(%rip),%rdi
call   1030 <printf@plt>
xor    %eax,%eax
add    $0x4a8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

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