#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 */
scalar_t__ isdigit(char const);
__attribute__((__pure__)) int isnumerical(const char *s) {
  if (*s == '+' || *s == '-')
    s++;
  if (s[0] == '.' && !s[1])
    return 0;
  while (isdigit(*s))
    s++;
  if (*s == '.') {
    s++;
    while (isdigit(*s))
      s++;
  }
  return *s ? 0 : 1;
}


x86 assembly (clang, -O0):
<isnumerical>:
push   %rbp
mov    %rsp,%rbp
sub    $0x10,%rsp
mov    %rdi,-0x10(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2b,%eax
je     113c <isnumerical+0x2c>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2d,%eax
jne    1148 <isnumerical+0x38>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2e,%eax
jne    1172 <isnumerical+0x62>
mov    -0x10(%rbp),%rax
cmpb   $0x0,0x1(%rax)
jne    1172 <isnumerical+0x62>
movl   $0x0,-0x4(%rbp)
jmp    11fd <isnumerical+0xed>
jmp    1177 <isnumerical+0x67>
mov    -0x10(%rbp),%rax
movsbl (%rax),%edi
call   1030 <isdigit@plt>
cmp    $0x0,%rax
je     119e <isnumerical+0x8e>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    1177 <isnumerical+0x67>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2e,%eax
jne    11e6 <isnumerical+0xd6>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%edi
call   1030 <isdigit@plt>
cmp    $0x0,%rax
je     11e1 <isnumerical+0xd1>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    11ba <isnumerical+0xaa>
jmp    11e6 <isnumerical+0xd6>
mov    -0x10(%rbp),%rax
movsbl (%rax),%edx
mov    $0x1,%eax
xor    %ecx,%ecx
cmp    $0x0,%edx
cmovne %ecx,%eax
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x10,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<isnumerical>:
push   %rbx
mov    %rdi,%rbx
mov    (%rdi),%al
cmp    $0x2d,%al
je     111e <isnumerical+0xe>
cmp    $0x2b,%al
jne    1125 <isnumerical+0x15>
mov    0x1(%rbx),%al
add    $0x1,%rbx
cmp    $0x2e,%al
jne    112f <isnumerical+0x1f>
cmpb   $0x0,0x1(%rbx)
je     117d <isnumerical+0x6d>
movsbl %al,%edi
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
call   1030 <isdigit@plt>
test   %rax,%rax
je     1154 <isnumerical+0x44>
movsbl 0x1(%rbx),%edi
add    $0x1,%rbx
jmp    1140 <isnumerical+0x30>
mov    (%rbx),%cl
cmp    $0x2e,%cl
jne    1174 <isnumerical+0x64>
add    $0x1,%rbx
nop
movsbl (%rbx),%edi
call   1030 <isdigit@plt>
add    $0x1,%rbx
test   %rax,%rax
jne    1160 <isnumerical+0x50>
mov    -0x1(%rbx),%cl
xor    %eax,%eax
test   %cl,%cl
sete   %al
pop    %rbx
ret
xor    %eax,%eax
pop    %rbx
ret

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

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