#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 */
int /*<<< orphan*/ is_prime(int /*<<< orphan*/);
int /*<<< orphan*/ mknum(int, char *);
int istrunc(int d, char *n) {
  int i;
  if (!is_prime(mknum(d, n)))
    return 0;
  for (i = 1; i < d; i++)
    if (!is_prime(mknum(d - i, n)) || !is_prime(mknum(d - i, n + i)))
      return 0;
  return 1;
}


x86 assembly (clang, -O0):
<istrunc>:
push   %rbp
mov    %rsp,%rbp
sub    $0x20,%rsp
mov    %edi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    -0x8(%rbp),%edi
mov    -0x10(%rbp),%rsi
call   1040 <mknum@plt>
mov    %eax,%edi
call   1030 <is_prime@plt>
cmp    $0x0,%eax
jne    1157 <istrunc+0x37>
movl   $0x0,-0x4(%rbp)
jmp    11d5 <istrunc+0xb5>
movl   $0x1,-0x14(%rbp)
mov    -0x14(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    11ce <istrunc+0xae>
mov    -0x8(%rbp),%edi
sub    -0x14(%rbp),%edi
mov    -0x10(%rbp),%rsi
call   1040 <mknum@plt>
mov    %eax,%edi
call   1030 <is_prime@plt>
cmp    $0x0,%eax
je     11af <istrunc+0x8f>
mov    -0x8(%rbp),%edi
sub    -0x14(%rbp),%edi
mov    -0x10(%rbp),%rsi
movslq -0x14(%rbp),%rax
add    %rax,%rsi
call   1040 <mknum@plt>
mov    %eax,%edi
call   1030 <is_prime@plt>
cmp    $0x0,%eax
jne    11bb <istrunc+0x9b>
movl   $0x0,-0x4(%rbp)
jmp    11d5 <istrunc+0xb5>
jmp    11c0 <istrunc+0xa0>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    115e <istrunc+0x3e>
movl   $0x1,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x20,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<istrunc>:
push   %rbp
push   %r15
push   %r14
push   %r12
push   %rbx
mov    %rsi,%r12
mov    %edi,%ebp
call   1040 <mknum@plt>
mov    %eax,%edi
call   1030 <is_prime@plt>
xor    %r14d,%r14d
test   %eax,%eax
je     118d <istrunc+0x6d>
cmp    $0x2,%ebp
jl     1187 <istrunc+0x67>
mov    %ebp,%r15d
add    $0xffffffff,%ebp
mov    $0x1,%ebx
mov    %ebp,%edi
mov    %r12,%rsi
call   1040 <mknum@plt>
mov    %eax,%edi
call   1030 <is_prime@plt>
test   %eax,%eax
je     118d <istrunc+0x6d>
lea    (%r12,%rbx,1),%rsi
mov    %ebp,%edi
call   1040 <mknum@plt>
mov    %eax,%edi
call   1030 <is_prime@plt>
test   %eax,%eax
je     118d <istrunc+0x6d>
add    $0x1,%rbx
add    $0xffffffff,%ebp
cmp    %rbx,%r15
jne    1150 <istrunc+0x30>
mov    $0x1,%r14d
mov    %r14d,%eax
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define i32 @istrunc(i32 %0, i8* %1) {
%3 = alloca i32
%4 = alloca i32
%5 = alloca i8*
%6 = alloca i32
store i32 %0, i32* %4
store i8* %1, i8** %5
%7 = load i32, i32* %4
%8 = load i8*, i8** %5
%9 = call i32 @mknum(i32 %7, i8* %8)
%10 = call i32 @is_prime(i32 %9)
%11 = icmp ne i32 %10, 0
br i1 %11, label %13, label %12
12: ; preds = %2
store i32 0, i32* %3
br label %43
13: ; preds = %2
store i32 1, i32* %6
br label %14
14: ; preds = %39, %13
%15 = load i32, i32* %6
%16 = load i32, i32* %4
%17 = icmp slt i32 %15, %16
br i1 %17, label %18, label %42
18: ; preds = %14
%19 = load i32, i32* %4
%20 = load i32, i32* %6
%21 = sub nsw i32 %19, %20
%22 = load i8*, i8** %5
%23 = call i32 @mknum(i32 %21, i8* %22)
%24 = call i32 @is_prime(i32 %23)
%25 = icmp ne i32 %24, 0
br i1 %25, label %26, label %37
26: ; preds = %18
%27 = load i32, i32* %4
%28 = load i32, i32* %6
%29 = sub nsw i32 %27, %28
%30 = load i8*, i8** %5
%31 = load i32, i32* %6
%32 = sext i32 %31 to i64
%33 = getelementptr inbounds i8, i8* %30, i64 %32
%34 = call i32 @mknum(i32 %29, i8* %33)
%35 = call i32 @is_prime(i32 %34)
%36 = icmp ne i32 %35, 0
br i1 %36, label %38, label %37
37: ; preds = %26, %18
store i32 0, i32* %3
br label %43
38: ; preds = %26
br label %39
39: ; preds = %38
%40 = load i32, i32* %6
%41 = add nsw i32 %40, 1
store i32 %41, i32* %6
br label %14
42: ; preds = %14
store i32 1, i32* %3
br label %43
43: ; preds = %42, %37, %12
%44 = load i32, i32* %3
ret i32 %44
}

LLVM IR (-O2):
define i32 @istrunc(i32 %0, i8* %1) {
%3 = tail call i32 @mknum(i32 %0, i8* %1)
%4 = tail call i32 @is_prime(i32 %3)
%5 = icmp eq i32 %4, 0
br i1 %5, label %25, label %6
6: ; preds = %2
%7 = icmp sgt i32 %0, 1
br i1 %7, label %8, label %25
8: ; preds = %6
%9 = zext i32 %0 to i64
br label %12
10: ; preds = %19
%11 = icmp eq i64 %24, %9
br i1 %11, label %25, label %12
12: ; preds = %8, %10
%13 = phi i64 [ 1, %8 ], [ %24, %10 ]
%14 = trunc i64 %13 to i32
%15 = sub nsw i32 %0, %14
%16 = tail call i32 @mknum(i32 %15, i8* %1)
%17 = tail call i32 @is_prime(i32 %16)
%18 = icmp eq i32 %17, 0
br i1 %18, label %25, label %19
19: ; preds = %12
%20 = getelementptr inbounds i8, i8* %1, i64 %13
%21 = tail call i32 @mknum(i32 %15, i8* %20)
%22 = tail call i32 @is_prime(i32 %21)
%23 = icmp eq i32 %22, 0
%24 = add nuw nsw i64 %13, 1
br i1 %23, label %25, label %10
25: ; preds = %19, %12, %10, %6, %2
%26 = phi i32 [ 0, %2 ], [ 1, %6 ], [ 0, %19 ], [ 0, %12 ], [ 1, %10 ]
ret i32 %26
}