#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_alpha(unsigned int const, unsigned int);
int in_alpha(const unsigned int jisdata[], const int length, const int in_posn,
             unsigned int *p_end, unsigned int *p_cost, unsigned int *p_pcent,
             unsigned int gs1) {
  int two_alphas;
  if (in_posn < (int)*p_end) {
    if (gs1 && *p_pcent) {
      two_alphas = in_posn < length - 1 && is_alpha(jisdata[in_posn + 1], gs1);
      *p_cost = two_alphas ? 33 : 36;
      *p_pcent = 0;
    }
    return 1;
  }
  if (!is_alpha(jisdata[in_posn], gs1)) {
    *p_end = 0;
    *p_pcent = 0;
    return 0;
  }
  if (gs1 && jisdata[in_posn] == '%') {
    *p_end = in_posn + 1;
    *p_cost = 66;
    *p_pcent = 0;
    return 1;
  }
  two_alphas = in_posn < length - 1 && is_alpha(jisdata[in_posn + 1], gs1);
  *p_end = two_alphas ? in_posn + 2 : in_posn + 1;
  *p_cost = two_alphas ? 33 : 36;
  *p_pcent = two_alphas && gs1 && jisdata[in_posn + 1] == '%';
  return 1;
}


x86 assembly (clang, -O0):
<in_alpha>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    0x10(%rbp),%eax
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
mov    %edx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
mov    %r9,-0x30(%rbp)
mov    -0x18(%rbp),%eax
mov    -0x20(%rbp),%rcx
cmp    (%rcx),%eax
jge    11c9 <in_alpha+0xb9>
cmpl   $0x0,0x10(%rbp)
je     11bd <in_alpha+0xad>
mov    -0x30(%rbp),%rax
cmpl   $0x0,(%rax)
je     11bd <in_alpha+0xad>
mov    -0x18(%rbp),%ecx
mov    -0x14(%rbp),%edx
sub    $0x1,%edx
xor    %eax,%eax
cmp    %edx,%ecx
mov    %al,-0x35(%rbp)
jge    118f <in_alpha+0x7f>
mov    -0x10(%rbp),%rax
mov    -0x18(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
mov    (%rax,%rcx,4),%edi
mov    0x10(%rbp),%esi
call   1030 <is_alpha@plt>
cmp    $0x0,%rax
setne  %al
mov    %al,-0x35(%rbp)
mov    -0x35(%rbp),%al
and    $0x1,%al
movzbl %al,%eax
mov    %eax,-0x34(%rbp)
mov    -0x34(%rbp),%edx
mov    $0x24,%ecx
mov    $0x21,%eax
cmp    $0x0,%edx
cmovne %eax,%ecx
mov    -0x28(%rbp),%rax
mov    %ecx,(%rax)
mov    -0x30(%rbp),%rax
movl   $0x0,(%rax)
movl   $0x1,-0x4(%rbp)
jmp    131e <in_alpha+0x20e>
mov    -0x10(%rbp),%rax
movslq -0x18(%rbp),%rcx
mov    (%rax,%rcx,4),%edi
mov    0x10(%rbp),%esi
call   1030 <is_alpha@plt>
cmp    $0x0,%rax
jne    1206 <in_alpha+0xf6>
mov    -0x20(%rbp),%rax
movl   $0x0,(%rax)
mov    -0x30(%rbp),%rax
movl   $0x0,(%rax)
movl   $0x0,-0x4(%rbp)
jmp    131e <in_alpha+0x20e>
cmpl   $0x0,0x10(%rbp)
je     124e <in_alpha+0x13e>
mov    -0x10(%rbp),%rax
movslq -0x18(%rbp),%rcx
cmpl   $0x25,(%rax,%rcx,4)
jne    124e <in_alpha+0x13e>
mov    -0x18(%rbp),%ecx
add    $0x1,%ecx
mov    -0x20(%rbp),%rax
mov    %ecx,(%rax)
mov    -0x28(%rbp),%rax
movl   $0x42,(%rax)
mov    -0x30(%rbp),%rax
movl   $0x0,(%rax)
movl   $0x1,-0x4(%rbp)
jmp    131e <in_alpha+0x20e>
mov    -0x18(%rbp),%ecx
mov    -0x14(%rbp),%edx
sub    $0x1,%edx
xor    %eax,%eax
cmp    %edx,%ecx
mov    %al,-0x36(%rbp)
jge    1286 <in_alpha+0x176>
mov    -0x10(%rbp),%rax
mov    -0x18(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
mov    (%rax,%rcx,4),%edi
mov    0x10(%rbp),%esi
call   1030 <is_alpha@plt>
cmp    $0x0,%rax
setne  %al
mov    %al,-0x36(%rbp)
mov    -0x36(%rbp),%al
and    $0x1,%al
movzbl %al,%eax
mov    %eax,-0x34(%rbp)
cmpl   $0x0,-0x34(%rbp)
je     12a9 <in_alpha+0x199>
mov    -0x18(%rbp),%eax
add    $0x2,%eax
mov    %eax,-0x3c(%rbp)
jmp    12b2 <in_alpha+0x1a2>
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
mov    -0x3c(%rbp),%ecx
mov    -0x20(%rbp),%rax
mov    %ecx,(%rax)
mov    -0x34(%rbp),%edx
mov    $0x24,%ecx
mov    $0x21,%eax
cmp    $0x0,%edx
cmovne %eax,%ecx
mov    -0x28(%rbp),%rax
mov    %ecx,(%rax)
xor    %eax,%eax
cmpl   $0x0,-0x34(%rbp)
mov    %al,-0x3d(%rbp)
je     1309 <in_alpha+0x1f9>
xor    %eax,%eax
cmpl   $0x0,0x10(%rbp)
mov    %al,-0x3d(%rbp)
je     1309 <in_alpha+0x1f9>
mov    -0x10(%rbp),%rax
mov    -0x18(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
cmpl   $0x25,(%rax,%rcx,4)
sete   %al
mov    %al,-0x3d(%rbp)
mov    -0x3d(%rbp),%al
and    $0x1,%al
movzbl %al,%ecx
mov    -0x30(%rbp),%rax
mov    %ecx,(%rax)
movl   $0x1,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<in_alpha>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x18,%rsp
mov    %r9,%rbx
mov    %r8,%r15
mov    %edx,%ebp
mov    %esi,%r14d
mov    0x50(%rsp),%r13d
cmp    %edx,(%rcx)
jle    1183 <in_alpha+0x73>
mov    $0x1,%eax
test   %r13d,%r13d
je     1246 <in_alpha+0x136>
cmpl   $0x0,(%rbx)
je     1246 <in_alpha+0x136>
add    $0xffffffff,%r14d
mov    $0x24,%eax
cmp    %ebp,%r14d
jle    1174 <in_alpha+0x64>
movslq %ebp,%rax
mov    0x4(%rdi,%rax,4),%edi
mov    %r13d,%esi
call   1030 <is_alpha@plt>
xor    %ecx,%ecx
test   %rax,%rax
sete   %cl
lea    (%rcx,%rcx,2),%eax
add    $0x21,%eax
mov    %eax,(%r15)
mov    $0x1,%eax
xor    %ecx,%ecx
jmp    1244 <in_alpha+0x134>
mov    %rcx,%r12
mov    %r15,0x10(%rsp)
mov    %rbx,0x8(%rsp)
movslq %ebp,%r15
mov    %rdi,%rbx
mov    (%rdi,%r15,4),%edi
mov    %r13d,%esi
call   1030 <is_alpha@plt>
test   %rax,%rax
je     121b <in_alpha+0x10b>
test   %r13d,%r13d
je     11ca <in_alpha+0xba>
mov    %rbx,%rax
cmpl   $0x25,(%rbx,%r15,4)
jne    11ca <in_alpha+0xba>
add    $0x1,%ebp
mov    %ebp,(%r12)
mov    0x10(%rsp),%rax
movl   $0x42,(%rax)
jmp    1238 <in_alpha+0x128>
add    $0xffffffff,%r14d
lea    0x1(%rbp),%eax
cmp    %ebp,%r14d
jle    1229 <in_alpha+0x119>
movslq %eax,%r14
mov    (%rbx,%r14,4),%edi
mov    %r13d,%r15d
mov    %r13d,%esi
mov    %eax,%r13d
call   1030 <is_alpha@plt>
test   %rax,%rax
mov    %r13d,%eax
je     1229 <in_alpha+0x119>
add    $0x2,%ebp
mov    %ebp,(%r12)
mov    0x10(%rsp),%rax
movl   $0x21,(%rax)
mov    $0x1,%eax
test   %r15d,%r15d
je     123d <in_alpha+0x12d>
xor    %ecx,%ecx
cmpl   $0x25,(%rbx,%r14,4)
sete   %cl
jmp    123f <in_alpha+0x12f>
movl   $0x0,(%r12)
xor    %ecx,%ecx
xor    %eax,%eax
jmp    123f <in_alpha+0x12f>
mov    %eax,(%r12)
mov    0x10(%rsp),%rax
movl   $0x24,(%rax)
mov    $0x1,%eax
xor    %ecx,%ecx
mov    0x8(%rsp),%rbx
mov    %ecx,(%rbx)
add    $0x18,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define i32 @in_alpha(i32* %0, i32 %1, i32 %2, i32* %3, i32* %4, i32* %5, i32 %6) {
%8 = alloca i32
%9 = alloca i32*
%10 = alloca i32
%11 = alloca i32
%12 = alloca i32*
%13 = alloca i32*
%14 = alloca i32*
%15 = alloca i32
%16 = alloca i32
store i32* %0, i32** %9
store i32 %1, i32* %10
store i32 %2, i32* %11
store i32* %3, i32** %12
store i32* %4, i32** %13
store i32* %5, i32** %14
store i32 %6, i32* %15
%17 = load i32, i32* %11
%18 = load i32*, i32** %12
%19 = load i32, i32* %18
%20 = icmp slt i32 %17, %19
br i1 %20, label %21, label %53
21: ; preds = %7
%22 = load i32, i32* %15
%23 = icmp ne i32 %22, 0
br i1 %23, label %24, label %52
24: ; preds = %21
%25 = load i32*, i32** %14
%26 = load i32, i32* %25
%27 = icmp ne i32 %26, 0
br i1 %27, label %28, label %52
28: ; preds = %24
%29 = load i32, i32* %11
%30 = load i32, i32* %10
%31 = sub nsw i32 %30, 1
%32 = icmp slt i32 %29, %31
br i1 %32, label %33, label %43
33: ; preds = %28
%34 = load i32*, i32** %9
%35 = load i32, i32* %11
%36 = add nsw i32 %35, 1
%37 = sext i32 %36 to i64
%38 = getelementptr inbounds i32, i32* %34, i64 %37
%39 = load i32, i32* %38
%40 = load i32, i32* %15
%41 = call i64 @is_alpha(i32 %39, i32 %40)
%42 = icmp ne i64 %41, 0
br label %43
43: ; preds = %33, %28
%44 = phi i1 [ false, %28 ], [ %42, %33 ]
%45 = zext i1 %44 to i32
store i32 %45, i32* %16
%46 = load i32, i32* %16
%47 = icmp ne i32 %46, 0
%48 = zext i1 %47 to i64
%49 = select i1 %47, i32 33, i32 36
%50 = load i32*, i32** %13
store i32 %49, i32* %50
%51 = load i32*, i32** %14
store i32 0, i32* %51
br label %52
52: ; preds = %43, %24, %21
store i32 1, i32* %8
br label %132
53: ; preds = %7
%54 = load i32*, i32** %9
%55 = load i32, i32* %11
%56 = sext i32 %55 to i64
%57 = getelementptr inbounds i32, i32* %54, i64 %56
%58 = load i32, i32* %57
%59 = load i32, i32* %15
%60 = call i64 @is_alpha(i32 %58, i32 %59)
%61 = icmp ne i64 %60, 0
br i1 %61, label %65, label %62
62: ; preds = %53
%63 = load i32*, i32** %12
store i32 0, i32* %63
%64 = load i32*, i32** %14
store i32 0, i32* %64
store i32 0, i32* %8
br label %132
65: ; preds = %53
%66 = load i32, i32* %15
%67 = icmp ne i32 %66, 0
br i1 %67, label %68, label %81
68: ; preds = %65
%69 = load i32*, i32** %9
%70 = load i32, i32* %11
%71 = sext i32 %70 to i64
%72 = getelementptr inbounds i32, i32* %69, i64 %71
%73 = load i32, i32* %72
%74 = icmp eq i32 %73, 37
br i1 %74, label %75, label %81
75: ; preds = %68
%76 = load i32, i32* %11
%77 = add nsw i32 %76, 1
%78 = load i32*, i32** %12
store i32 %77, i32* %78
%79 = load i32*, i32** %13
store i32 66, i32* %79
%80 = load i32*, i32** %14
store i32 0, i32* %80
store i32 1, i32* %8
br label %132
81: ; preds = %68, %65
%82 = load i32, i32* %11
%83 = load i32, i32* %10
%84 = sub nsw i32 %83, 1
%85 = icmp slt i32 %82, %84
br i1 %85, label %86, label %96
86: ; preds = %81
%87 = load i32*, i32** %9
%88 = load i32, i32* %11
%89 = add nsw i32 %88, 1
%90 = sext i32 %89 to i64
%91 = getelementptr inbounds i32, i32* %87, i64 %90
%92 = load i32, i32* %91
%93 = load i32, i32* %15
%94 = call i64 @is_alpha(i32 %92, i32 %93)
%95 = icmp ne i64 %94, 0
br label %96
96: ; preds = %86, %81
%97 = phi i1 [ false, %81 ], [ %95, %86 ]
%98 = zext i1 %97 to i32
store i32 %98, i32* %16
%99 = load i32, i32* %16
%100 = icmp ne i32 %99, 0
br i1 %100, label %101, label %104
101: ; preds = %96
%102 = load i32, i32* %11
%103 = add nsw i32 %102, 2
br label %107
104: ; preds = %96
%105 = load i32, i32* %11
%106 = add nsw i32 %105, 1
br label %107
107: ; preds = %104, %101
%108 = phi i32 [ %103, %101 ], [ %106, %104 ]
%109 = load i32*, i32** %12
store i32 %108, i32* %109
%110 = load i32, i32* %16
%111 = icmp ne i32 %110, 0
%112 = zext i1 %111 to i64
%113 = select i1 %111, i32 33, i32 36
%114 = load i32*, i32** %13
store i32 %113, i32* %114
%115 = load i32, i32* %16
%116 = icmp ne i32 %115, 0
br i1 %116, label %117, label %128
117: ; preds = %107
%118 = load i32, i32* %15
%119 = icmp ne i32 %118, 0
br i1 %119, label %120, label %128
120: ; preds = %117
%121 = load i32*, i32** %9
%122 = load i32, i32* %11
%123 = add nsw i32 %122, 1
%124 = sext i32 %123 to i64
%125 = getelementptr inbounds i32, i32* %121, i64 %124
%126 = load i32, i32* %125
%127 = icmp eq i32 %126, 37
br label %128
128: ; preds = %120, %117, %107
%129 = phi i1 [ false, %117 ], [ false, %107 ], [ %127, %120 ]
%130 = zext i1 %129 to i32
%131 = load i32*, i32** %14
store i32 %130, i32* %131
store i32 1, i32* %8
br label %132
132: ; preds = %128, %75, %62, %52
%133 = load i32, i32* %8
ret i32 %133
}

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