unsigned long codePerm(unsigned n, unsigned perm[]) {
  unsigned p[100], i, pos;
  unsigned long r, result;
  result = 0;
  for (i = 0; i < n; i++)
    p[i] = i + 1;
  for (pos = 0; pos < n; pos++) {
    r = 0;
    while (perm[pos] != p[r])
      r++;
    result = result * (n - pos) + r;
    for (i = r + 1; i < n; i++)
      p[i - 1] = p[i];
  }
  return result;
}


x86 assembly (clang, -O0):
<codePerm>:
push   %rbp
mov    %rsp,%rbp
sub    $0x140,%rsp
mov    %edi,-0x4(%rbp)
mov    %rsi,-0x10(%rbp)
movq   $0x0,-0x1b8(%rbp)
movl   $0x0,-0x1a4(%rbp)
mov    -0x1a4(%rbp),%eax
cmp    -0x4(%rbp),%eax
jae    1160 <codePerm+0x60>
mov    -0x1a4(%rbp),%ecx
add    $0x1,%ecx
mov    -0x1a4(%rbp),%eax
mov    %ecx,-0x1a0(%rbp,%rax,4)
mov    -0x1a4(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1a4(%rbp)
jmp    1127 <codePerm+0x27>
movl   $0x0,-0x1a8(%rbp)
mov    -0x1a8(%rbp),%eax
cmp    -0x4(%rbp),%eax
jae    124c <codePerm+0x14c>
movq   $0x0,-0x1b0(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x1a8(%rbp),%ecx
mov    (%rax,%rcx,4),%eax
mov    -0x1b0(%rbp),%rcx
cmp    -0x1a0(%rbp,%rcx,4),%eax
je     11bc <codePerm+0xbc>
mov    -0x1b0(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x1b0(%rbp)
jmp    1184 <codePerm+0x84>
mov    -0x1b8(%rbp),%rax
mov    -0x4(%rbp),%ecx
sub    -0x1a8(%rbp),%ecx
mov    %ecx,%ecx
imul   %rcx,%rax
add    -0x1b0(%rbp),%rax
mov    %rax,-0x1b8(%rbp)
mov    -0x1b0(%rbp),%rax
add    $0x1,%rax
mov    %eax,-0x1a4(%rbp)
mov    -0x1a4(%rbp),%eax
cmp    -0x4(%rbp),%eax
jae    1233 <codePerm+0x133>
mov    -0x1a4(%rbp),%eax
mov    -0x1a0(%rbp,%rax,4),%ecx
mov    -0x1a4(%rbp),%eax
sub    $0x1,%eax
mov    %eax,%eax
mov    %ecx,-0x1a0(%rbp,%rax,4)
mov    -0x1a4(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1a4(%rbp)
jmp    11f1 <codePerm+0xf1>
jmp    1238 <codePerm+0x138>
mov    -0x1a8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1a8(%rbp)
jmp    116a <codePerm+0x6a>
mov    -0x1b8(%rbp),%rax
add    $0x140,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<codePerm>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x128,%rsp
test   %edi,%edi
je     132c <codePerm+0x22c>
mov    %edi,%r9d
mov    %edi,%r15d
cmp    $0x8,%edi
jae    112b <codePerm+0x2b>
xor    %ecx,%ecx
jmp    1210 <codePerm+0x110>
mov    %r15d,%ecx
and    $0xfffffff8,%ecx
lea    -0x8(%rcx),%rax
mov    %rax,%rbx
shr    $0x3,%rbx
add    $0x1,%rbx
test   %rax,%rax
je     1351 <codePerm+0x251>
mov    %rbx,%rax
and    $0xfffffffffffffffe,%rax
movaps 0xeb9(%rip),%xmm1
movaps 0xec2(%rip),%xmm0
xor    %edx,%edx
pcmpeqd %xmm8,%xmm8
movdqa 0xec2(%rip),%xmm9
movdqa 0xeca(%rip),%xmm4
movdqa 0xed2(%rip),%xmm5
movdqa 0xeda(%rip),%xmm6
cs nopw 0x0(%rax,%rax,1)
movaps %xmm0,%xmm7
shufps $0x88,%xmm1,%xmm7
movaps %xmm7,%xmm2
psubd  %xmm8,%xmm2
movaps %xmm7,%xmm3
paddd  %xmm9,%xmm3
movdqa %xmm2,-0x70(%rsp,%rdx,4)
movdqa %xmm3,-0x60(%rsp,%rdx,4)
movaps %xmm7,%xmm2
paddd  %xmm4,%xmm2
paddd  %xmm5,%xmm7
movdqa %xmm2,-0x50(%rsp,%rdx,4)
movdqa %xmm7,-0x40(%rsp,%rdx,4)
add    $0x10,%rdx
paddq  %xmm6,%xmm0
paddq  %xmm6,%xmm1
add    $0xfffffffffffffffe,%rax
jne    1190 <codePerm+0x90>
shufps $0x88,%xmm1,%xmm0
test   $0x1,%bl
je     1204 <codePerm+0x104>
pcmpeqd %xmm1,%xmm1
movaps %xmm0,%xmm2
psubd  %xmm1,%xmm2
paddd  0xe38(%rip),%xmm0
movdqa %xmm2,-0x70(%rsp,%rdx,4)
movdqa %xmm0,-0x60(%rsp,%rdx,4)
cmp    %r15,%rcx
je     1220 <codePerm+0x120>
nopl   0x0(%rax)
lea    0x1(%rcx),%rax
mov    %eax,-0x70(%rsp,%rcx,4)
mov    %rax,%rcx
cmp    %rax,%r15
jne    1210 <codePerm+0x110>
test   %r9d,%r9d
je     132c <codePerm+0x22c>
lea    -0x1(%r9),%eax
mov    %rax,-0x78(%rsp)
lea    0x1(%r9),%r10d
lea    0x3(%r9),%eax
mov    %eax,-0x7c(%rsp)
xor    %r12d,%r12d
mov    %r9d,%edi
xor    %eax,%eax
jmp    126c <codePerm+0x16c>
nopl   0x0(%rax,%rax,1)
lea    (%r14,%rbx,1),%rax
add    $0xffffffffffffffff,%rax
add    $0x1,%r12
add    $0xffffffff,%r10d
add    $0xffffffff,%edi
cmp    %r15,%r12
je     1330 <codePerm+0x230>
mov    %rax,%r11
mov    %edi,%edi
mov    (%rsi,%r12,4),%eax
xor    %ebx,%ebx
nopw   0x0(%rax,%rax,1)
mov    %rbx,%rbp
add    $0x1,%rbx
cmp    -0x70(%rsp,%rbp,4),%eax
jne    1280 <codePerm+0x180>
mov    %r11,%r14
imul   %rdi,%r14
cmp    %r9d,%ebx
jae    1250 <codePerm+0x150>
lea    -0x1(%rbx),%rcx
mov    %ebx,%eax
mov    %r15d,%r8d
sub    %ebx,%r8d
mov    -0x78(%rsp),%r13
sub    %rbx,%r13
test   $0x3,%r8b
je     12da <codePerm+0x1da>
mov    -0x7c(%rsp),%edx
sub    %bpl,%dl
movzbl %dl,%ebp
and    $0x3,%ebp
mov    -0x70(%rsp,%rax,4),%edx
mov    %ecx,%ecx
mov    %edx,-0x70(%rsp,%rcx,4)
mov    %rax,%rcx
add    $0x1,%rax
add    $0xffffffff,%ebp
jne    12c0 <codePerm+0x1c0>
lea    -0x1(%rax),%rcx
cmp    $0x3,%r13d
jb     1250 <codePerm+0x150>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
mov    -0x70(%rsp,%rax,4),%edx
mov    %ecx,%ecx
mov    %edx,-0x70(%rsp,%rcx,4)
lea    0x1(%rax),%ecx
mov    -0x6c(%rsp,%rax,4),%edx
mov    %eax,%ebp
mov    %edx,-0x70(%rsp,%rbp,4)
lea    0x2(%rax),%edx
mov    -0x68(%rsp,%rax,4),%ebp
mov    %ebp,-0x70(%rsp,%rcx,4)
lea    0x3(%rax),%rcx
mov    -0x64(%rsp,%rax,4),%ebp
mov    %ebp,-0x70(%rsp,%rdx,4)
add    $0x4,%rax
cmp    %r15d,%eax
jb     12f0 <codePerm+0x1f0>
jmp    1250 <codePerm+0x150>
xor    %eax,%eax
jmp    133f <codePerm+0x23f>
mov    %r10d,%eax
imul   %rax,%r11
lea    (%r11,%rbx,1),%rax
add    $0xffffffffffffffff,%rax
add    $0x128,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
movaps 0xca8(%rip),%xmm0
xor    %edx,%edx
test   $0x1,%bl
jne    11e5 <codePerm+0xe5>
jmp    1204 <codePerm+0x104>

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

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