int isomorphic(s, p, map)
char *s, *p, *map;
{
  int i;
  char revmap[128];
  if (strlen(s) != strlen(p))
    return 0;
  for (i = 0; i < 128; i++)
    map[i] = revmap[i] = 0;
  while (*p) {
    if (!map[*p]) {
      if (!revmap[*s]) {
        map[*p] = *s;
        revmap[*s] = *p;
      } else
        return 0;
    } else if (map[*p] != *s || revmap[*s] != *p)
      return 0;
    p++;
    s++;
  }
  return 1;
}


x86 assembly (clang, -O0):
<isomorphic>:
push   %rbp
mov    %rsp,%rbp
sub    $0xc0,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %rdx,-0x20(%rbp)
mov    -0x10(%rbp),%rdi
call   1030 <strlen@plt>
mov    %rax,-0xb8(%rbp)
mov    -0x18(%rbp),%rdi
call   1030 <strlen@plt>
mov    %rax,%rcx
mov    -0xb8(%rbp),%rax
cmp    %rcx,%rax
je     115f <isomorphic+0x4f>
movl   $0x0,-0x4(%rbp)
jmp    128a <isomorphic+0x17a>
movl   $0x0,-0x24(%rbp)
cmpl   $0x80,-0x24(%rbp)
jge    1199 <isomorphic+0x89>
movslq -0x24(%rbp),%rax
movb   $0x0,-0xb0(%rbp,%rax,1)
mov    -0x20(%rbp),%rax
movslq -0x24(%rbp),%rcx
movb   $0x0,(%rax,%rcx,1)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1166 <isomorphic+0x56>
jmp    119e <isomorphic+0x8e>
mov    -0x18(%rbp),%rax
cmpb   $0x0,(%rax)
je     1283 <isomorphic+0x173>
mov    -0x20(%rbp),%rax
mov    -0x18(%rbp),%rcx
movsbq (%rcx),%rcx
cmpb   $0x0,(%rax,%rcx,1)
jne    1217 <isomorphic+0x107>
mov    -0x10(%rbp),%rax
movsbq (%rax),%rax
cmpb   $0x0,-0xb0(%rbp,%rax,1)
jne    1206 <isomorphic+0xf6>
mov    -0x10(%rbp),%rax
mov    (%rax),%dl
mov    -0x20(%rbp),%rax
mov    -0x18(%rbp),%rcx
movsbq (%rcx),%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x18(%rbp),%rax
mov    (%rax),%cl
mov    -0x10(%rbp),%rax
movsbq (%rax),%rax
mov    %cl,-0xb0(%rbp,%rax,1)
jmp    1212 <isomorphic+0x102>
movl   $0x0,-0x4(%rbp)
jmp    128a <isomorphic+0x17a>
jmp    1266 <isomorphic+0x156>
mov    -0x20(%rbp),%rax
mov    -0x18(%rbp),%rcx
movsbq (%rcx),%rcx
movsbl (%rax,%rcx,1),%eax
mov    -0x10(%rbp),%rcx
movsbl (%rcx),%ecx
cmp    %ecx,%eax
jne    1255 <isomorphic+0x145>
mov    -0x10(%rbp),%rax
movsbq (%rax),%rax
movsbl -0xb0(%rbp,%rax,1),%eax
ff
mov    -0x18(%rbp),%rcx
movsbl (%rcx),%ecx
cmp    %ecx,%eax
je     1261 <isomorphic+0x151>
movl   $0x0,-0x4(%rbp)
jmp    128a <isomorphic+0x17a>
jmp    1266 <isomorphic+0x156>
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    119e <isomorphic+0x8e>
movl   $0x1,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0xc0,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<isomorphic>:
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x80,%rsp
mov    %rdx,%r13
mov    %rsi,%r14
mov    %rdi,%r15
call   1030 <strlen@plt>
mov    %rax,%r12
mov    %r14,%rdi
call   1030 <strlen@plt>
mov    %rax,%rcx
xor    %eax,%eax
cmp    %rcx,%r12
jne    1203 <isomorphic+0xf3>
xorps  %xmm0,%xmm0
movaps %xmm0,0x70(%rsp)
movaps %xmm0,0x60(%rsp)
movaps %xmm0,0x50(%rsp)
movaps %xmm0,0x40(%rsp)
movaps %xmm0,0x30(%rsp)
movaps %xmm0,0x20(%rsp)
movaps %xmm0,0x10(%rsp)
movaps %xmm0,(%rsp)
movups %xmm0,0x70(%r13)
movups %xmm0,0x60(%r13)
movups %xmm0,0x50(%r13)
movups %xmm0,0x40(%r13)
movups %xmm0,0x30(%r13)
movups %xmm0,0x20(%r13)
movups %xmm0,0x10(%r13)
movups %xmm0,0x0(%r13)
mov    (%r14),%dl
test   %dl,%dl
je     11fe <isomorphic+0xee>
xor    %ecx,%ecx
jmp    11be <isomorphic+0xae>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
movzbl 0x1(%r14,%rcx,1),%edx
add    $0x1,%rcx
test   %dl,%dl
je     11fe <isomorphic+0xee>
movsbq %dl,%rax
movsbq 0x0(%r13,%rax,1),%rsi
movzbl (%r15,%rcx,1),%ebx
test   %rsi,%rsi
je     11e0 <isomorphic+0xd0>
xor    %eax,%eax
cmp    %bl,%sil
jne    1203 <isomorphic+0xf3>
cmp    %dl,(%rsp,%rsi,1)
je     11b0 <isomorphic+0xa0>
jmp    1203 <isomorphic+0xf3>
movsbq %bl,%rdx
cmpb   $0x0,(%rsp,%rdx,1)
jne    1214 <isomorphic+0x104>
mov    %bl,0x0(%r13,%rax,1)
movzbl (%r14,%rcx,1),%eax
movsbq (%r15,%rcx,1),%rdx
mov    %al,(%rsp,%rdx,1)
jmp    11b0 <isomorphic+0xa0>
mov    $0x1,%eax
add    $0x80,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
ret
xor    %eax,%eax
jmp    1203 <isomorphic+0xf3>

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

LLVM IR (-O2):
define i32 @isomorphic(i8* nocapture %0, i8* nocapture %1, i8* nocapture %2) {
%4 = alloca [128 x i8]
%5 = getelementptr inbounds [128 x i8], [128 x i8]* %4, i64 0, i64 0
%6 = tail call i64 @strlen(i8* dereferenceable(1) %0)
%7 = tail call i64 @strlen(i8* dereferenceable(1) %1)
%8 = icmp eq i64 %6, %7
br i1 %8, label %9, label %44
9: ; preds = %3
%10 = getelementptr inbounds [128 x i8], [128 x i8]* %4, i64 0, i64 0
%11 = load i8, i8* %1
%12 = icmp eq i8 %11, 0
br i1 %12, label %44, label %13
13: ; preds = %9, %39
%14 = phi i8 [ %42, %39 ], [ %11, %9 ]
%15 = phi i8* [ %40, %39 ], [ %1, %9 ]
%16 = phi i8* [ %41, %39 ], [ %0, %9 ]
%17 = sext i8 %14 to i64
%18 = getelementptr inbounds i8, i8* %2, i64 %17
%19 = load i8, i8* %18
%20 = icmp eq i8 %19, 0
%21 = load i8, i8* %16
br i1 %20, label %22, label %32
22: ; preds = %13
%23 = sext i8 %21 to i64
%24 = getelementptr inbounds [128 x i8], [128 x i8]* %4, i64 0, i64 %23
%25 = load i8, i8* %24
%26 = icmp eq i8 %25, 0
br i1 %26, label %27, label %44
27: ; preds = %22
store i8 %21, i8* %18
%28 = load i8, i8* %15
%29 = load i8, i8* %16
%30 = sext i8 %29 to i64
%31 = getelementptr inbounds [128 x i8], [128 x i8]* %4, i64 0, i64 %30
store i8 %28, i8* %31
br label %39
32: ; preds = %13
%33 = icmp eq i8 %19, %21
br i1 %33, label %34, label %44
34: ; preds = %32
%35 = sext i8 %19 to i64
%36 = getelementptr inbounds [128 x i8], [128 x i8]* %4, i64 0, i64 %35
%37 = load i8, i8* %36
%38 = icmp eq i8 %37, %14
br i1 %38, label %39, label %44
39: ; preds = %34, %27
%40 = getelementptr inbounds i8, i8* %15, i64 1
%41 = getelementptr inbounds i8, i8* %16, i64 1
%42 = load i8, i8* %40
%43 = icmp eq i8 %42, 0
br i1 %43, label %44, label %13
44: ; preds = %22, %34, %32, %39, %9, %3
%45 = phi i32 [ 0, %3 ], [ 1, %9 ], [ 0, %22 ], [ 0, %34 ], [ 0, %32 ], [ 1, %39 ]
ret i32 %45
}