#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 > 11 - i && i > 6) {
          soma += M[i][j];
          cont_n++;
        }
      } else if (j > 5) {
        if (j < i && i > 6) {
          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    123d <main+0x11d>
mov    -0x4a8(%rbp),%eax
mov    $0xb,%ecx
sub    -0x4a4(%rbp),%ecx
cmp    %ecx,%eax
jle    1238 <main+0x118>
cmpl   $0x6,-0x4a4(%rbp)
jle    1238 <main+0x118>
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  0xdd8(%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
cmp    -0x4a4(%rbp),%eax
jge    12b2 <main+0x192>
cmpl   $0x6,-0x4a4(%rbp)
jle    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   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x4a0,%rsp
lea    0xed1(%rip),%rdi
lea    0xf(%rsp),%rsi
xor    %eax,%eax
call   1040 <scanf@plt>
lea    0x50(%rsp),%r15
xorpd  %xmm0,%xmm0
lea    0xeb9(%rip),%r14
xor    %r12d,%r12d
xorpd  %xmm1,%xmm1
movsd  %xmm1,0x18(%rsp)
jmp    1182 <main+0x62>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
add    $0x1,%r12
add    $0x60,%r15
cmp    $0xc,%r12
je     1348 <main+0x228>
movsd  %xmm0,0x10(%rsp)
lea    (%r12,%r12,2),%r13
shl    $0x5,%r13
lea    (%rsp,%r13,1),%rsi
add    $0x20,%rsi
mov    %r14,%rdi
xor    %eax,%eax
call   1040 <scanf@plt>
lea    (%rsp,%r13,1),%rbx
add    $0x28,%rbx
mov    %r14,%rdi
mov    %rbx,%rsi
xor    %eax,%eax
call   1040 <scanf@plt>
cmp    $0xb,%r12
jne    11e1 <main+0xc1>
movsd  0x10(%rsp),%xmm0
addsd  (%rbx),%xmm0
movsd  %xmm0,0x10(%rsp)
movsd  0x18(%rsp),%xmm0
addsd  0xe25(%rip),%xmm0
movsd  %xmm0,0x18(%rsp)
lea    (%rsp,%r13,1),%rbx
add    $0x30,%rbx
mov    %r14,%rdi
mov    %rbx,%rsi
xor    %eax,%eax
call   1040 <scanf@plt>
cmp    $0xa,%r12
jb     1220 <main+0x100>
movsd  0x10(%rsp),%xmm0
addsd  (%rbx),%xmm0
movsd  %xmm0,0x10(%rsp)
movsd  0x18(%rsp),%xmm0
addsd  0xde6(%rip),%xmm0
movsd  %xmm0,0x18(%rsp)
lea    (%rsp,%r13,1),%rbx
add    $0x38,%rbx
mov    %r14,%rdi
mov    %rbx,%rsi
xor    %eax,%eax
call   1040 <scanf@plt>
cmp    $0x9,%r12
jb     125f <main+0x13f>
movsd  0x10(%rsp),%xmm0
addsd  (%rbx),%xmm0
movsd  %xmm0,0x10(%rsp)
movsd  0x18(%rsp),%xmm0
addsd  0xda7(%rip),%xmm0
movsd  %xmm0,0x18(%rsp)
lea    (%rsp,%r13,1),%rbx
add    $0x40,%rbx
mov    %r14,%rdi
mov    %rbx,%rsi
xor    %eax,%eax
call   1040 <scanf@plt>
cmp    $0x8,%r12
jb     129e <main+0x17e>
movsd  0x10(%rsp),%xmm0
addsd  (%rbx),%xmm0
movsd  %xmm0,0x10(%rsp)
movsd  0x18(%rsp),%xmm0
addsd  0xd68(%rip),%xmm0
movsd  %xmm0,0x18(%rsp)
lea    (%rsp,%r13,1),%rbx
add    $0x48,%rbx
mov    %r14,%rdi
mov    %rbx,%rsi
xor    %eax,%eax
call   1040 <scanf@plt>
cmp    $0x7,%r12
jb     12e0 <main+0x1c0>
movsd  0x10(%rsp),%xmm0
addsd  (%rbx),%xmm0
movsd  0x18(%rsp),%xmm1
addsd  0xd2f(%rip),%xmm1
movsd  %xmm1,0x18(%rsp)
jmp    12e6 <main+0x1c6>
nopl   0x0(%rax)
movsd  0x10(%rsp),%xmm0
mov    $0x6,%ebx
mov    %r15,%r13
jmp    1308 <main+0x1e8>
movsd  0x10(%rsp),%xmm0
add    $0x1,%rbx
add    $0x8,%r13
cmp    $0xc,%rbx
je     1170 <main+0x50>
movsd  %xmm0,0x10(%rsp)
mov    %r14,%rdi
mov    %r13,%rsi
xor    %eax,%eax
call   1040 <scanf@plt>
cmp    $0x7,%r12
jb     12f0 <main+0x1d0>
cmp    %r12,%rbx
jae    12f0 <main+0x1d0>
movsd  0x10(%rsp),%xmm0
addsd  0x0(%r13),%xmm0
movsd  0x18(%rsp),%xmm1
addsd  0xcc0(%rip),%xmm1
movsd  %xmm1,0x18(%rsp)
jmp    12f6 <main+0x1d6>
movsbl 0xf(%rsp),%eax
cmp    $0x53,%eax
je     135d <main+0x23d>
cmp    $0x4d,%eax
jne    1369 <main+0x249>
divsd  0x18(%rsp),%xmm0
lea    0xcad(%rip),%rdi
call   1030 <printf@plt>
xor    %eax,%eax
add    $0x4a0,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
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 %48
27: ; preds = %17
%28 = load i32, i32* %6
%29 = load i32, i32* %5
%30 = sub nsw i32 11, %29
%31 = icmp sgt i32 %28, %30
br i1 %31, label %32, label %47
32: ; preds = %27
%33 = load i32, i32* %5
%34 = icmp sgt i32 %33, 6
br i1 %34, label %35, label %47
35: ; preds = %32
%36 = load i32, i32* %5
%37 = sext i32 %36 to i64
%38 = getelementptr inbounds [12 x [12 x double]], [12 x [12 x double]]* %2, i64 0, i64 %37
%39 = load i32, i32* %6
%40 = sext i32 %39 to i64
%41 = getelementptr inbounds [12 x double], [12 x double]* %38, i64 0, i64 %40
%42 = load double, double* %41
%43 = load double, double* %3
%44 = fadd double %43, %42
store double %44, double* %3
%45 = load double, double* %4
%46 = fadd double %45, 1.000000e+00
store double %46, double* %4
br label %47
47: ; preds = %35, %32, %27
br label %72
48: ; preds = %17
%49 = load i32, i32* %6
%50 = icmp sgt i32 %49, 5
br i1 %50, label %51, label %71
51: ; preds = %48
%52 = load i32, i32* %6
%53 = load i32, i32* %5
%54 = icmp slt i32 %52, %53
br i1 %54, label %55, label %70
55: ; preds = %51
%56 = load i32, i32* %5
%57 = icmp sgt i32 %56, 6
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, %51
br label %71
71: ; preds = %70, %48
br label %72
72: ; preds = %71, %47
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, %78
%6 = phi i64 [ 0, %0 ], [ %79, %78 ]
%7 = phi double [ 0.000000e+00, %0 ], [ %75, %78 ]
%8 = phi double [ 0.000000e+00, %0 ], [ %74, %78 ]
%9 = icmp ugt i64 %6, 6
%10 = getelementptr inbounds [12 x [12 x double]], [12 x [12 x double]]* %1, i64 0, i64 %6, i64 0
%11 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.1, i64 0, i64 0), double* %10)
%12 = getelementptr inbounds [12 x [12 x double]], [12 x [12 x double]]* %1, i64 0, i64 %6, i64 1
%13 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.1, i64 0, i64 0), double* %12)
%14 = icmp eq i64 %6, 11
br i1 %14, label %15, label %19
15: ; preds = %5
%16 = load double, double* %12
%17 = fadd double %7, %16
%18 = fadd double %8, 1.000000e+00
br label %19
19: ; preds = %15, %5
%20 = phi double [ %8, %5 ], [ %18, %15 ]
%21 = phi double [ %7, %5 ], [ %17, %15 ]
%22 = getelementptr inbounds [12 x [12 x double]], [12 x [12 x double]]* %1, i64 0, i64 %6, i64 2
%23 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.1, i64 0, i64 0), double* %22)
%24 = icmp ugt i64 %6, 9
br i1 %24, label %25, label %29
25: ; preds = %19
%26 = load double, double* %22
%27 = fadd double %21, %26
%28 = fadd double %20, 1.000000e+00
br label %29
29: ; preds = %25, %19
%30 = phi double [ %20, %19 ], [ %28, %25 ]
%31 = phi double [ %21, %19 ], [ %27, %25 ]
%32 = getelementptr inbounds [12 x [12 x double]], [12 x [12 x double]]* %1, i64 0, i64 %6, i64 3
%33 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.1, i64 0, i64 0), double* %32)
%34 = icmp ugt i64 %6, 8
br i1 %34, label %35, label %39
35: ; preds = %29
%36 = load double, double* %32
%37 = fadd double %31, %36
%38 = fadd double %30, 1.000000e+00
br label %39
39: ; preds = %35, %29
%40 = phi double [ %30, %29 ], [ %38, %35 ]
%41 = phi double [ %31, %29 ], [ %37, %35 ]
%42 = getelementptr inbounds [12 x [12 x double]], [12 x [12 x double]]* %1, i64 0, i64 %6, i64 4
%43 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.1, i64 0, i64 0), double* %42)
%44 = icmp ugt i64 %6, 7
br i1 %44, label %45, label %49
45: ; preds = %39
%46 = load double, double* %42
%47 = fadd double %41, %46
%48 = fadd double %40, 1.000000e+00
br label %49
49: ; preds = %45, %39
%50 = phi double [ %40, %39 ], [ %48, %45 ]
%51 = phi double [ %41, %39 ], [ %47, %45 ]
%52 = getelementptr inbounds [12 x [12 x double]], [12 x [12 x double]]* %1, i64 0, i64 %6, i64 5
%53 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.1, i64 0, i64 0), double* %52)
br i1 %9, label %54, label %58
54: ; preds = %49
%55 = load double, double* %52
%56 = fadd double %51, %55
%57 = fadd double %50, 1.000000e+00
br label %58
58: ; preds = %49, %54
%59 = phi double [ %50, %49 ], [ %57, %54 ]
%60 = phi double [ %51, %49 ], [ %56, %54 ]
br label %61
61: ; preds = %58, %73
%62 = phi i64 [ 6, %58 ], [ %76, %73 ]
%63 = phi double [ %60, %58 ], [ %75, %73 ]
%64 = phi double [ %59, %58 ], [ %74, %73 ]
%65 = getelementptr inbounds [12 x [12 x double]], [12 x [12 x double]]* %1, i64 0, i64 %6, i64 %62
%66 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.1, i64 0, i64 0), double* %65)
%67 = icmp ult i64 %62, %6
%68 = and i1 %9, %67
br i1 %68, label %69, label %73
69: ; preds = %61
%70 = load double, double* %65
%71 = fadd double %63, %70
%72 = fadd double %64, 1.000000e+00
br label %73
73: ; preds = %69, %61
%74 = phi double [ %64, %61 ], [ %72, %69 ]
%75 = phi double [ %63, %61 ], [ %71, %69 ]
%76 = add nuw nsw i64 %62, 1
%77 = icmp eq i64 %76, 12
br i1 %77, label %78, label %61
78: ; preds = %73
%79 = add nuw nsw i64 %6, 1
%80 = icmp eq i64 %79, 12
br i1 %80, label %81, label %5
81: ; preds = %78
%82 = load i8, i8* %2
%83 = sext i8 %82 to i32
switch i32 %83, label %89 [
i32 83, label %86
i32 77, label %84
]
84: ; preds = %81
%85 = fdiv double %75, %74
br label %86
86: ; preds = %81, %84
%87 = phi double [ %85, %84 ], [ %75, %81 ]
%88 = call i32 @printf(i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str.2, i64 0, i64 0), double %87)
br label %89
89: ; preds = %86, %81
ret i32 0
}