int czarna_magia(int podstawa, int *cyfry, long int *suma_cyfr, int ilosc,
                 int maksimum, int poziom) {
  if (*suma_cyfr % (podstawa - 1) == 0)
    return 1;
  if (ilosc == 0)
    return 0;
  for (int i = maksimum; i > 0; --i) {
    if (cyfry[i] > 0) {
      cyfry[i] -= 1;
      *suma_cyfr -= i;
      if (czarna_magia(podstawa, cyfry, suma_cyfr, ilosc - 1, i, poziom + 1))
        return 1;
      *suma_cyfr += i;
      cyfry[i] += 1;
    }
  }
  return 0;
}


x86 assembly (clang, -O0):
<czarna_magia>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %edi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %ecx,-0x1c(%rbp)
mov    %r8d,-0x20(%rbp)
mov    %r9d,-0x24(%rbp)
mov    -0x18(%rbp),%rax
mov    (%rax),%rax
mov    -0x8(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
cqto
idiv   %rcx
cmp    $0x0,%rdx
jne    1159 <czarna_magia+0x49>
movl   $0x1,-0x4(%rbp)
jmp    1223 <czarna_magia+0x113>
cmpl   $0x0,-0x1c(%rbp)
jne    116f <czarna_magia+0x5f>
movl   $0x0,-0x4(%rbp)
jmp    1223 <czarna_magia+0x113>
mov    -0x20(%rbp),%eax
mov    %eax,-0x28(%rbp)
cmpl   $0x0,-0x28(%rbp)
jle    121c <czarna_magia+0x10c>
mov    -0x10(%rbp),%rax
movslq -0x28(%rbp),%rcx
cmpl   $0x0,(%rax,%rcx,4)
jle    1209 <czarna_magia+0xf9>
mov    -0x10(%rbp),%rax
movslq -0x28(%rbp),%rcx
mov    (%rax,%rcx,4),%edx
sub    $0x1,%edx
mov    %edx,(%rax,%rcx,4)
movslq -0x28(%rbp),%rdx
mov    -0x18(%rbp),%rax
mov    (%rax),%rcx
sub    %rdx,%rcx
mov    %rcx,(%rax)
mov    -0x8(%rbp),%edi
mov    -0x10(%rbp),%rsi
mov    -0x18(%rbp),%rdx
mov    -0x1c(%rbp),%ecx
sub    $0x1,%ecx
mov    -0x28(%rbp),%r8d
mov    -0x24(%rbp),%r9d
add    $0x1,%r9d
call   1030 <czarna_magia@plt>
cmp    $0x0,%eax
je     11ea <czarna_magia+0xda>
movl   $0x1,-0x4(%rbp)
jmp    1223 <czarna_magia+0x113>
movslq -0x28(%rbp),%rcx
mov    -0x18(%rbp),%rax
add    (%rax),%rcx
mov    %rcx,(%rax)
mov    -0x10(%rbp),%rax
movslq -0x28(%rbp),%rcx
mov    (%rax,%rcx,4),%edx
add    $0x1,%edx
mov    %edx,(%rax,%rcx,4)
jmp    120e <czarna_magia+0xfe>
mov    -0x28(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x28(%rbp)
jmp    1175 <czarna_magia+0x65>
movl   $0x0,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<czarna_magia>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
mov    %r9d,0x4(%rsp)
mov    %ecx,%r15d
mov    %rdx,%rbx
mov    %rsi,%rbp
mov    %edi,%r12d
mov    (%rdx),%rcx
lea    -0x1(%r12),%esi
movslq %esi,%rdi
mov    %rcx,%rax
or     %rdi,%rax
shr    $0x20,%rax
je     114d <czarna_magia+0x3d>
mov    %rcx,%rax
cqto
idiv   %rdi
jmp    1153 <czarna_magia+0x43>
mov    %ecx,%eax
xor    %edx,%edx
div    %esi
mov    $0x1,%eax
test   %rdx,%rdx
je     11df <czarna_magia+0xcf>
test   %r15d,%r15d
je     11d6 <czarna_magia+0xc6>
test   %r8d,%r8d
jle    11d6 <czarna_magia+0xc6>
add    $0xffffffff,%r15d
addl   $0x1,0x4(%rsp)
mov    %r8d,%r13d
mov    %r13,%r14
neg    %r14
jmp    1191 <czarna_magia+0x81>
nop
lea    -0x1(%r13),%rax
add    $0x1,%r14
cmp    $0x1,%r13
mov    %rax,%r13
jle    11d6 <czarna_magia+0xc6>
mov    0x0(%rbp,%r13,4),%eax
test   %eax,%eax
jle    1180 <czarna_magia+0x70>
add    $0xffffffff,%eax
mov    %eax,0x0(%rbp,%r13,4)
add    %r14,%rcx
mov    %rcx,(%rbx)
mov    %r12d,%edi
mov    %rbp,%rsi
mov    %rbx,%rdx
mov    %r15d,%ecx
mov    %r13d,%r8d
mov    0x4(%rsp),%r9d
call   1030 <czarna_magia@plt>
test   %eax,%eax
jne    11da <czarna_magia+0xca>
mov    (%rbx),%rcx
add    %r13,%rcx
mov    %rcx,(%rbx)
addl   $0x1,0x0(%rbp,%r13,4)
jmp    1180 <czarna_magia+0x70>
xor    %eax,%eax
jmp    11df <czarna_magia+0xcf>
mov    $0x1,%eax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

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