a_number(l) char *l;
{
  register int j;
  for (j = 0; l[j] != '\0'; j++)
    if ('0' <= l[j] && l[j] <= '9')
      continue;
    else
      return (0);
  if (l[0] == '\0')
    return (0);
  return (1);
}


x86 assembly (clang, -O0):
<a_number>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
movl   $0x0,-0x14(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x0,%eax
je     1171 <a_number+0x71>
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsbl (%rax,%rcx,1),%ecx
mov    $0x30,%eax
cmp    %ecx,%eax
jg     1157 <a_number+0x57>
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x39,%eax
jg     1157 <a_number+0x57>
jmp    1163 <a_number+0x63>
movl   $0x0,-0x4(%rbp)
jmp    1194 <a_number+0x94>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    110f <a_number+0xf>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
jne    118d <a_number+0x8d>
movl   $0x0,-0x4(%rbp)
jmp    1194 <a_number+0x94>
movl   $0x1,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<a_number>:
mov    (%rdi),%cl
test   %cl,%cl
je     1121 <a_number+0x21>
add    $0x1,%rdi
mov    %ecx,%eax
nopl   0x0(%rax)
add    $0xd0,%al
cmp    $0xa,%al
jae    1129 <a_number+0x29>
movzbl (%rdi),%eax
add    $0x1,%rdi
test   %al,%al
jne    1110 <a_number+0x10>
xor    %eax,%eax
test   %cl,%cl
setne  %al
ret
xor    %eax,%eax
ret

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

LLVM IR (-O2):
define i32 @a_number(i8* nocapture %0) {
%2 = load i8, i8* %0
%3 = icmp eq i8 %2, 0
br i1 %3, label %14, label %8
4: ; preds = %8
%5 = getelementptr inbounds i8, i8* %0, i64 %13
%6 = load i8, i8* %5
%7 = icmp eq i8 %6, 0
br i1 %7, label %14, label %8
8: ; preds = %1, %4
%9 = phi i64 [ %13, %4 ], [ 0, %1 ]
%10 = phi i8 [ %6, %4 ], [ %2, %1 ]
%11 = add i8 %10, -48
%12 = icmp ult i8 %11, 10
%13 = add nuw i64 %9, 1
br i1 %12, label %4, label %17
14: ; preds = %4, %1
%15 = icmp ne i8 %2, 0
%16 = zext i1 %15 to i32
br label %17
17: ; preds = %8, %14
%18 = phi i32 [ %16, %14 ], [ 0, %8 ]
ret i32 %18
}