unsigned long pascal_farleft(unsigned long *b, unsigned long n, int max) {
  unsigned long c, i, k;
  unsigned long cnt, hold, inner;
  cnt = hold = inner = 0;
  for (i = 0; i < n; i++) {
    hold = inner = 0;
    c = k = 1;
    for (; k <= i && cnt < n && c >= hold; k++) {
      b[cnt++] = c;
      hold = c;
      c = c * (i - k) / k;
      ++inner;
      if (inner >= max)
        break;
    }
  }
  return 0;
}


x86 assembly (clang, -O0):
<pascal_farleft>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
movq   $0x0,-0x48(%rbp)
movq   $0x0,-0x40(%rbp)
movq   $0x0,-0x38(%rbp)
movq   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%rax
cmp    -0x10(%rbp),%rax
jae    122e <pascal_farleft+0x12e>
movq   $0x0,-0x48(%rbp)
movq   $0x0,-0x40(%rbp)
movq   $0x1,-0x30(%rbp)
movq   $0x1,-0x20(%rbp)
mov    -0x30(%rbp),%rcx
xor    %eax,%eax
cmp    -0x28(%rbp),%rcx
mov    %al,-0x49(%rbp)
ja     1191 <pascal_farleft+0x91>
mov    -0x38(%rbp),%rcx
xor    %eax,%eax
cmp    -0x10(%rbp),%rcx
mov    %al,-0x49(%rbp)
jae    1191 <pascal_farleft+0x91>
mov    -0x20(%rbp),%rax
cmp    -0x40(%rbp),%rax
setae  %al
mov    %al,-0x49(%rbp)
mov    -0x49(%rbp),%al
test   $0x1,%al
jne    11a1 <pascal_farleft+0xa1>
jmp    1218 <pascal_farleft+0x118>
mov    -0x20(%rbp),%rdx
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    %rcx,%rsi
add    $0x1,%rsi
mov    %rsi,-0x38(%rbp)
mov    %rdx,(%rax,%rcx,8)
mov    -0x20(%rbp),%rax
mov    %rax,-0x40(%rbp)
mov    -0x20(%rbp),%rax
mov    -0x28(%rbp),%rcx
sub    -0x30(%rbp),%rcx
imul   %rcx,%rax
xor    %ecx,%ecx
mov    %ecx,%edx
divq   -0x30(%rbp)
mov    %rax,-0x20(%rbp)
mov    -0x48(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x48(%rbp)
mov    -0x48(%rbp),%rax
movslq -0x14(%rbp),%rcx
cmp    %rcx,%rax
jb     1202 <pascal_farleft+0x102>
jmp    1218 <pascal_farleft+0x118>
jmp    1207 <pascal_farleft+0x107>
mov    -0x30(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x30(%rbp)
jmp    115d <pascal_farleft+0x5d>
jmp    121d <pascal_farleft+0x11d>
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
jmp    112f <pascal_farleft+0x2f>
xor    %eax,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<pascal_farleft>:
push   %r14
push   %rbx
test   %rsi,%rsi
je     11b7 <pascal_farleft+0xb7>
cmp    $0x2,%edx
mov    $0x1,%eax
cmovae %edx,%eax
movslq %eax,%r9
mov    $0xffffffffffffffff,%r8
xor    %r11d,%r11d
xor    %r10d,%r10d
jmp    113d <pascal_farleft+0x3d>
nopl   0x0(%rax)
add    $0x1,%r10
add    $0x1,%r8
cmp    %rsi,%r10
je     11b7 <pascal_farleft+0xb7>
test   %r10,%r10
je     1130 <pascal_farleft+0x30>
cmp    %rsi,%r11
jae    1130 <pascal_farleft+0x30>
add    $0x1,%r11
mov    $0x1,%ecx
mov    %r8,%rbx
mov    %r11,%rdx
mov    $0x1,%r14d
nopl   0x0(%rax)
mov    %rdx,%r11
mov    %r14,-0x8(%rdi,%rdx,8)
cmp    %rcx,%r9
je     1130 <pascal_farleft+0x30>
mov    %rbx,%rax
imul   %r14,%rax
mov    %rax,%rdx
or     %rcx,%rdx
shr    $0x20,%rdx
je     1190 <pascal_farleft+0x90>
xor    %edx,%edx
div    %rcx
cmp    %rcx,%r10
ja     1199 <pascal_farleft+0x99>
jmp    1130 <pascal_farleft+0x30>
nopl   0x0(%rax)
xor    %edx,%edx
div    %ecx
cmp    %rcx,%r10
jbe    1130 <pascal_farleft+0x30>
cmp    %rsi,%r11
jae    1130 <pascal_farleft+0x30>
add    $0x1,%rcx
lea    0x1(%r11),%rdx
add    $0xffffffffffffffff,%rbx
cmp    %r14,%rax
mov    %rax,%r14
jae    1160 <pascal_farleft+0x60>
jmp    1130 <pascal_farleft+0x30>
xor    %eax,%eax
pop    %rbx
pop    %r14
ret

LLVM IR (-O0):
define i64 @pascal_farleft(i64* %0, i64 %1, i32 %2) {
%4 = alloca i64*
%5 = alloca i64
%6 = alloca i32
%7 = alloca i64
%8 = alloca i64
%9 = alloca i64
%10 = alloca i64
%11 = alloca i64
%12 = alloca i64
store i64* %0, i64** %4
store i64 %1, i64* %5
store i32 %2, i32* %6
store i64 0, i64* %12
store i64 0, i64* %11
store i64 0, i64* %10
store i64 0, i64* %8
br label %13
13: ; preds = %58, %3
%14 = load i64, i64* %8
%15 = load i64, i64* %5
%16 = icmp ult i64 %14, %15
br i1 %16, label %17, label %61
17: ; preds = %13
store i64 0, i64* %12
store i64 0, i64* %11
store i64 1, i64* %9
store i64 1, i64* %7
br label %18
18: ; preds = %54, %17
%19 = load i64, i64* %9
%20 = load i64, i64* %8
%21 = icmp ule i64 %19, %20
br i1 %21, label %22, label %30
22: ; preds = %18
%23 = load i64, i64* %10
%24 = load i64, i64* %5
%25 = icmp ult i64 %23, %24
br i1 %25, label %26, label %30
26: ; preds = %22
%27 = load i64, i64* %7
%28 = load i64, i64* %11
%29 = icmp uge i64 %27, %28
br label %30
30: ; preds = %26, %22, %18
%31 = phi i1 [ false, %22 ], [ false, %18 ], [ %29, %26 ]
br i1 %31, label %32, label %57
32: ; preds = %30
%33 = load i64, i64* %7
%34 = load i64*, i64** %4
%35 = load i64, i64* %10
%36 = add i64 %35, 1
store i64 %36, i64* %10
%37 = getelementptr inbounds i64, i64* %34, i64 %35
store i64 %33, i64* %37
%38 = load i64, i64* %7
store i64 %38, i64* %11
%39 = load i64, i64* %7
%40 = load i64, i64* %8
%41 = load i64, i64* %9
%42 = sub i64 %40, %41
%43 = mul i64 %39, %42
%44 = load i64, i64* %9
%45 = udiv i64 %43, %44
store i64 %45, i64* %7
%46 = load i64, i64* %12
%47 = add i64 %46, 1
store i64 %47, i64* %12
%48 = load i64, i64* %12
%49 = load i32, i32* %6
%50 = sext i32 %49 to i64
%51 = icmp uge i64 %48, %50
br i1 %51, label %52, label %53
52: ; preds = %32
br label %57
53: ; preds = %32
br label %54
54: ; preds = %53
%55 = load i64, i64* %9
%56 = add i64 %55, 1
store i64 %56, i64* %9
br label %18
57: ; preds = %52, %30
br label %58
58: ; preds = %57
%59 = load i64, i64* %8
%60 = add i64 %59, 1
store i64 %60, i64* %8
br label %13
61: ; preds = %13
ret i64 0
}

LLVM IR (-O2):
define i64 @pascal_farleft(i64* nocapture writeonly %0, i64 %1, i32 %2) {
%4 = icmp eq i64 %1, 0
br i1 %4, label %38, label %5
5: ; preds = %3
%6 = call i32 @llvm.umax.i32(i32 %2, i32 1)
%7 = sext i32 %6 to i64
%8 = add nsw i64 %7, -1
br label %9
9: ; preds = %5, %34
%10 = phi i64 [ 0, %5 ], [ %35, %34 ]
%11 = phi i64 [ 0, %5 ], [ %36, %34 ]
%12 = icmp eq i64 %11, 0
%13 = icmp uge i64 %10, %1
%14 = select i1 %12, i1 true, i1 %13
br i1 %14, label %34, label %15
15: ; preds = %9
%16 = add i64 %8, %10
br label %17
17: ; preds = %15, %24
%18 = phi i64 [ %21, %24 ], [ %10, %15 ]
%19 = phi i64 [ %28, %24 ], [ 1, %15 ]
%20 = phi i64 [ %27, %24 ], [ 1, %15 ]
%21 = add nuw i64 %18, 1
%22 = getelementptr inbounds i64, i64* %0, i64 %18
store i64 %20, i64* %22
%23 = icmp eq i64 %18, %16
br i1 %23, label %34, label %24
24: ; preds = %17
%25 = sub i64 %11, %19
%26 = mul i64 %25, %20
%27 = udiv i64 %26, %19
%28 = add nuw i64 %19, 1
%29 = icmp ule i64 %11, %19
%30 = icmp uge i64 %21, %1
%31 = select i1 %29, i1 true, i1 %30
%32 = icmp ult i64 %27, %20
%33 = select i1 %31, i1 true, i1 %32
br i1 %33, label %34, label %17
34: ; preds = %24, %17, %9
%35 = phi i64 [ %10, %9 ], [ %21, %17 ], [ %21, %24 ]
%36 = add nuw i64 %11, 1
%37 = icmp eq i64 %36, %1
br i1 %37, label %38, label %9
38: ; preds = %34, %3
ret i64 0
}