#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 */
scalar_t__ is_a_perimeter(int **, int, int, int, int);
int island_perimeter(int **grid, int height, int width) {
  int perimeter = 0;
  for (int y = 0; y < height; y++) {
    for (int x = 0; x < width; x++) {
      if (grid[y][x]) {
        perimeter += is_a_perimeter(grid, y, x - 1, height, width);
        perimeter += is_a_perimeter(grid, y - 1, x, height, width);
        perimeter += is_a_perimeter(grid, y, x + 1, height, width);
        perimeter += is_a_perimeter(grid, y + 1, x, height, width);
      }
    }
  }
  return perimeter;
}


x86 assembly (clang, -O0):
<island_perimeter>:
push   %rbp
mov    %rsp,%rbp
sub    $0x20,%rsp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
movl   $0x0,-0x14(%rbp)
movl   $0x0,-0x18(%rbp)
mov    -0x18(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    1227 <island_perimeter+0x117>
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x10(%rbp),%eax
jge    1214 <island_perimeter+0x104>
mov    -0x8(%rbp),%rax
movslq -0x18(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x1c(%rbp),%rcx
cmpl   $0x0,(%rax,%rcx,4)
je     1201 <island_perimeter+0xf1>
mov    -0x8(%rbp),%rdi
mov    -0x18(%rbp),%esi
mov    -0x1c(%rbp),%edx
sub    $0x1,%edx
mov    -0xc(%rbp),%ecx
mov    -0x10(%rbp),%r8d
call   1030 <is_a_perimeter@plt>
mov    %rax,%rcx
movslq -0x14(%rbp),%rax
add    %rcx,%rax
mov    %eax,-0x14(%rbp)
mov    -0x8(%rbp),%rdi
mov    -0x18(%rbp),%esi
sub    $0x1,%esi
mov    -0x1c(%rbp),%edx
mov    -0xc(%rbp),%ecx
mov    -0x10(%rbp),%r8d
call   1030 <is_a_perimeter@plt>
mov    %rax,%rcx
movslq -0x14(%rbp),%rax
add    %rcx,%rax
mov    %eax,-0x14(%rbp)
mov    -0x8(%rbp),%rdi
mov    -0x18(%rbp),%esi
mov    -0x1c(%rbp),%edx
add    $0x1,%edx
mov    -0xc(%rbp),%ecx
mov    -0x10(%rbp),%r8d
call   1030 <is_a_perimeter@plt>
mov    %rax,%rcx
movslq -0x14(%rbp),%rax
add    %rcx,%rax
mov    %eax,-0x14(%rbp)
mov    -0x8(%rbp),%rdi
mov    -0x18(%rbp),%esi
add    $0x1,%esi
mov    -0x1c(%rbp),%edx
mov    -0xc(%rbp),%ecx
mov    -0x10(%rbp),%r8d
call   1030 <is_a_perimeter@plt>
mov    %rax,%rcx
movslq -0x14(%rbp),%rax
add    %rcx,%rax
mov    %eax,-0x14(%rbp)
jmp    1206 <island_perimeter+0xf6>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1143 <island_perimeter+0x33>
jmp    1219 <island_perimeter+0x109>
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    1130 <island_perimeter+0x20>
mov    -0x14(%rbp),%eax
add    $0x20,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<island_perimeter>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x38,%rsp
mov    %edx,0x8(%rsp)
test   %esi,%esi
jle    1254 <island_perimeter+0x144>
mov    %rdi,%r14
mov    %esi,%ebx
mov    %esi,%eax
mov    %rax,0x20(%rsp)
mov    0x8(%rsp),%eax
mov    %rax,0x30(%rsp)
xor    %r13d,%r13d
xor    %ecx,%ecx
mov    %rdi,0x18(%rsp)
mov    0x8(%rsp),%ebp
jmp    1163 <island_perimeter+0x53>
nop
mov    0x10(%rsp),%rax
mov    %rax,%r13
cmp    0x20(%rsp),%rax
je     1256 <island_perimeter+0x146>
cmpl   $0x0,0x8(%rsp)
jle    1240 <island_perimeter+0x130>
lea    0x1(%r13),%rax
mov    %rax,0x10(%rsp)
lea    -0x1(%r13),%eax
mov    %eax,0xc(%rsp)
xor    %r12d,%r12d
mov    %r13,0x28(%rsp)
jmp    121e <island_perimeter+0x10e>
nopl   0x0(%rax)
lea    -0x1(%r12),%edx
mov    %r14,%rdi
mov    %r13d,%esi
mov    %rcx,%r15
mov    %ebx,%ecx
mov    %ebp,%r8d
call   1030 <is_a_perimeter@plt>
add    %eax,%r15d
mov    %r14,%rdi
mov    0xc(%rsp),%esi
mov    %r12d,%edx
mov    %ebx,%ecx
mov    %ebp,%r8d
call   1030 <is_a_perimeter@plt>
mov    %rax,%r14
add    %r15d,%r14d
mov    %r12,%r15
add    $0x1,%r15
mov    0x18(%rsp),%rdi
mov    %r13d,%esi
mov    %r15d,%edx
mov    %ebx,%ecx
mov    0x8(%rsp),%r8d
call   1030 <is_a_perimeter@plt>
mov    %rax,%r13
add    %r14d,%r13d
mov    %ebx,%ecx
mov    0x18(%rsp),%r14
mov    %r14,%rdi
mov    0x10(%rsp),%rsi
mov    %r12d,%edx
mov    0x8(%rsp),%r8d
call   1030 <is_a_perimeter@plt>
mov    %rax,%rcx
add    %r13d,%ecx
mov    0x28(%rsp),%r13
mov    %r15,%r12
cmp    0x30(%rsp),%r12
je     1150 <island_perimeter+0x40>
mov    (%r14,%r13,8),%rax
cmpl   $0x0,(%rax,%r12,4)
jne    1190 <island_perimeter+0x80>
add    $0x1,%r12
cmp    0x30(%rsp),%r12
jne    121e <island_perimeter+0x10e>
jmp    1150 <island_perimeter+0x40>
nopl   (%rax)
add    $0x1,%r13
mov    %r13,%rax
cmp    0x20(%rsp),%rax
jne    1163 <island_perimeter+0x53>
jmp    1256 <island_perimeter+0x146>
xor    %ecx,%ecx
mov    %ecx,%eax
add    $0x38,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define i32 @island_perimeter(i32** %0, i32 %1, i32 %2) {
%4 = alloca i32**
%5 = alloca i32
%6 = alloca i32
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
store i32** %0, i32*** %4
store i32 %1, i32* %5
store i32 %2, i32* %6
store i32 0, i32* %7
store i32 0, i32* %8
br label %10
10: ; preds = %80, %3
%11 = load i32, i32* %8
%12 = load i32, i32* %5
%13 = icmp slt i32 %11, %12
br i1 %13, label %14, label %83
14: ; preds = %10
store i32 0, i32* %9
br label %15
15: ; preds = %76, %14
%16 = load i32, i32* %9
%17 = load i32, i32* %6
%18 = icmp slt i32 %16, %17
br i1 %18, label %19, label %79
19: ; preds = %15
%20 = load i32**, i32*** %4
%21 = load i32, i32* %8
%22 = sext i32 %21 to i64
%23 = getelementptr inbounds i32*, i32** %20, i64 %22
%24 = load i32*, i32** %23
%25 = load i32, i32* %9
%26 = sext i32 %25 to i64
%27 = getelementptr inbounds i32, i32* %24, i64 %26
%28 = load i32, i32* %27
%29 = icmp ne i32 %28, 0
br i1 %29, label %30, label %75
30: ; preds = %19
%31 = load i32**, i32*** %4
%32 = load i32, i32* %8
%33 = load i32, i32* %9
%34 = sub nsw i32 %33, 1
%35 = load i32, i32* %5
%36 = load i32, i32* %6
%37 = call i64 @is_a_perimeter(i32** %31, i32 %32, i32 %34, i32 %35, i32 %36)
%38 = load i32, i32* %7
%39 = sext i32 %38 to i64
%40 = add nsw i64 %39, %37
%41 = trunc i64 %40 to i32
store i32 %41, i32* %7
%42 = load i32**, i32*** %4
%43 = load i32, i32* %8
%44 = sub nsw i32 %43, 1
%45 = load i32, i32* %9
%46 = load i32, i32* %5
%47 = load i32, i32* %6
%48 = call i64 @is_a_perimeter(i32** %42, i32 %44, i32 %45, i32 %46, i32 %47)
%49 = load i32, i32* %7
%50 = sext i32 %49 to i64
%51 = add nsw i64 %50, %48
%52 = trunc i64 %51 to i32
store i32 %52, i32* %7
%53 = load i32**, i32*** %4
%54 = load i32, i32* %8
%55 = load i32, i32* %9
%56 = add nsw i32 %55, 1
%57 = load i32, i32* %5
%58 = load i32, i32* %6
%59 = call i64 @is_a_perimeter(i32** %53, i32 %54, i32 %56, i32 %57, i32 %58)
%60 = load i32, i32* %7
%61 = sext i32 %60 to i64
%62 = add nsw i64 %61, %59
%63 = trunc i64 %62 to i32
store i32 %63, i32* %7
%64 = load i32**, i32*** %4
%65 = load i32, i32* %8
%66 = add nsw i32 %65, 1
%67 = load i32, i32* %9
%68 = load i32, i32* %5
%69 = load i32, i32* %6
%70 = call i64 @is_a_perimeter(i32** %64, i32 %66, i32 %67, i32 %68, i32 %69)
%71 = load i32, i32* %7
%72 = sext i32 %71 to i64
%73 = add nsw i64 %72, %70
%74 = trunc i64 %73 to i32
store i32 %74, i32* %7
br label %75
75: ; preds = %30, %19
br label %76
76: ; preds = %75
%77 = load i32, i32* %9
%78 = add nsw i32 %77, 1
store i32 %78, i32* %9
br label %15
79: ; preds = %15
br label %80
80: ; preds = %79
%81 = load i32, i32* %8
%82 = add nsw i32 %81, 1
store i32 %82, i32* %8
br label %10
83: ; preds = %10
%84 = load i32, i32* %7
ret i32 %84
}

LLVM IR (-O2):
define i32 @island_perimeter(i32** %0, i32 %1, i32 %2) {
%4 = icmp sgt i32 %1, 0
br i1 %4, label %5, label %21
5: ; preds = %3
%6 = icmp sgt i32 %2, 0
%7 = zext i32 %1 to i64
%8 = zext i32 %2 to i64
br label %9
9: ; preds = %5, %23
%10 = phi i64 [ 0, %5 ], [ %24, %23 ]
%11 = phi i32 [ 0, %5 ], [ %25, %23 ]
br i1 %6, label %14, label %12
12: ; preds = %9
%13 = add nuw nsw i64 %10, 1
br label %23
14: ; preds = %9
%15 = getelementptr inbounds i32*, i32** %0, i64 %10
%16 = add nuw nsw i64 %10, 1
%17 = trunc i64 %10 to i32
%18 = trunc i64 %10 to i32
%19 = add i32 %18, -1
%20 = trunc i64 %16 to i32
br label %27
21: ; preds = %23, %3
%22 = phi i32 [ 0, %3 ], [ %25, %23 ]
ret i32 %22
23: ; preds = %54, %12
%24 = phi i64 [ %13, %12 ], [ %16, %54 ]
%25 = phi i32 [ %11, %12 ], [ %56, %54 ]
%26 = icmp eq i64 %24, %7
br i1 %26, label %21, label %9
27: ; preds = %14, %54
%28 = phi i64 [ 0, %14 ], [ %55, %54 ]
%29 = phi i32 [ %11, %14 ], [ %56, %54 ]
%30 = load i32*, i32** %15
%31 = getelementptr inbounds i32, i32* %30, i64 %28
%32 = load i32, i32* %31
%33 = icmp eq i32 %32, 0
br i1 %33, label %34, label %36
34: ; preds = %27
%35 = add nuw nsw i64 %28, 1
br label %54
36: ; preds = %27
%37 = trunc i64 %28 to i32
%38 = add i32 %37, -1
%39 = tail call i64 @is_a_perimeter(i32** %0, i32 %17, i32 %38, i32 %1, i32 %2)
%40 = trunc i64 %39 to i32
%41 = add i32 %29, %40
%42 = trunc i64 %28 to i32
%43 = tail call i64 @is_a_perimeter(i32** %0, i32 %19, i32 %42, i32 %1, i32 %2)
%44 = trunc i64 %43 to i32
%45 = add i32 %41, %44
%46 = add nuw nsw i64 %28, 1
%47 = trunc i64 %46 to i32
%48 = tail call i64 @is_a_perimeter(i32** %0, i32 %17, i32 %47, i32 %1, i32 %2)
%49 = trunc i64 %48 to i32
%50 = add i32 %45, %49
%51 = tail call i64 @is_a_perimeter(i32** %0, i32 %20, i32 %42, i32 %1, i32 %2)
%52 = trunc i64 %51 to i32
%53 = add i32 %50, %52
br label %54
54: ; preds = %34, %36
%55 = phi i64 [ %35, %34 ], [ %46, %36 ]
%56 = phi i32 [ %29, %34 ], [ %53, %36 ]
%57 = icmp eq i64 %55, %8
br i1 %57, label %23, label %27
}