void mycln(char *ch, int *len) {
  int i, j, flag, cnt;
  i = 0;
  j = 0;
  flag = 0;
  cnt = 0;
  while (ch[j]) {
    ch[i] = ch[j];
    if (flag) {
      if (ch[j] < '0' || ch[j] > '9') {
        flag = 0;
        cnt = 0;
      } else
        cnt++;
    }
    if (ch[j] == '.')
      flag = 1;
    if (flag && cnt > 3)
      j++;
    else {
      i++;
      j++;
    }
  }
  *len = i;
}


x86 assembly (clang, -O0):
<mycln>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
movl   $0x0,-0x14(%rbp)
movl   $0x0,-0x18(%rbp)
movl   $0x0,-0x1c(%rbp)
movl   $0x0,-0x20(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x18(%rbp),%rcx
cmpb   $0x0,(%rax,%rcx,1)
je     11fa <mycln+0xfa>
mov    -0x8(%rbp),%rax
movslq -0x18(%rbp),%rcx
mov    (%rax,%rcx,1),%dl
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
cmpl   $0x0,-0x1c(%rbp)
je     11a5 <mycln+0xa5>
mov    -0x8(%rbp),%rax
movslq -0x18(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x30,%eax
jl     1184 <mycln+0x84>
mov    -0x8(%rbp),%rax
movslq -0x18(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x39,%eax
jle    1197 <mycln+0x97>
movl   $0x0,-0x1c(%rbp)
movl   $0x0,-0x20(%rbp)
jmp    11a0 <mycln+0xa0>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    11a5 <mycln+0xa5>
mov    -0x8(%rbp),%rax
movslq -0x18(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x2e,%eax
jne    11c1 <mycln+0xc1>
movl   $0x1,-0x1c(%rbp)
cmpl   $0x0,-0x1c(%rbp)
je     11e3 <mycln+0xe3>
cmpl   $0x3,-0x20(%rbp)
jle    11e3 <mycln+0xe3>
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    11f5 <mycln+0xf5>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    1128 <mycln+0x28>
mov    -0x14(%rbp),%ecx
mov    -0x10(%rbp),%rax
mov    %ecx,(%rax)
pop    %rbp
ret

x86 assembly (clang, -O2):
<mycln>:
push   %rbx
mov    (%rdi),%cl
test   %cl,%cl
je     116b <mycln+0x6b>
lea    0x1(%rdi),%rax
xor    %r8d,%r8d
mov    $0x1,%r9d
xor    %r10d,%r10d
xor    %edx,%edx
xor    %r11d,%r11d
jmp    1159 <mycln+0x59>
xchg   %ax,%ax
lea    -0x3a(%rcx),%ebx
add    $0x1,%r10d
xor    %edx,%edx
cmp    $0xf6,%bl
setae  %dl
cmovb  %r8d,%r10d
cmp    $0x2e,%cl
cmove  %r9d,%edx
test   %edx,%edx
sete   %cl
cmp    $0x4,%r10d
setl   %bl
or     %cl,%bl
movzbl %bl,%ecx
add    %ecx,%r11d
movzbl (%rax),%ecx
add    $0x1,%rax
test   %cl,%cl
je     116e <mycln+0x6e>
mov    %r11d,%ebx
mov    %cl,(%rdi,%rbx,1)
movzbl -0x1(%rax),%ecx
test   %edx,%edx
jne    1120 <mycln+0x20>
xor    %edx,%edx
jmp    1133 <mycln+0x33>
xor    %r11d,%r11d
mov    %r11d,(%rsi)
pop    %rbx
ret

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

LLVM IR (-O2):
define void @mycln(i8* nocapture %0, i32* nocapture writeonly %1) {
%3 = load i8, i8* %0
%4 = icmp eq i8 %3, 0
br i1 %4, label %37, label %5
5: ; preds = %2, %23
%6 = phi i64 [ %33, %23 ], [ 0, %2 ]
%7 = phi i8 [ %35, %23 ], [ %3, %2 ]
%8 = phi i8* [ %34, %23 ], [ %0, %2 ]
%9 = phi i32 [ %25, %23 ], [ 0, %2 ]
%10 = phi i32 [ %27, %23 ], [ 0, %2 ]
%11 = phi i32 [ %32, %23 ], [ 0, %2 ]
%12 = zext i32 %11 to i64
%13 = getelementptr inbounds i8, i8* %0, i64 %12
store i8 %7, i8* %13
%14 = icmp eq i32 %10, 0
%15 = load i8, i8* %8
br i1 %14, label %23, label %16
16: ; preds = %5
%17 = add i8 %15, -58
%18 = icmp ult i8 %17, -10
%19 = add nsw i32 %9, 1
%20 = xor i1 %18, true
%21 = zext i1 %20 to i32
%22 = select i1 %18, i32 0, i32 %19
br label %23
23: ; preds = %5, %16
%24 = phi i32 [ %21, %16 ], [ 0, %5 ]
%25 = phi i32 [ %22, %16 ], [ %9, %5 ]
%26 = icmp eq i8 %15, 46
%27 = select i1 %26, i32 1, i32 %24
%28 = icmp eq i32 %27, 0
%29 = icmp slt i32 %25, 4
%30 = select i1 %28, i1 true, i1 %29
%31 = zext i1 %30 to i32
%32 = add nuw nsw i32 %11, %31
%33 = add nuw i64 %6, 1
%34 = getelementptr inbounds i8, i8* %0, i64 %33
%35 = load i8, i8* %34
%36 = icmp eq i8 %35, 0
br i1 %36, label %37, label %5
37: ; preds = %23, %2
%38 = phi i32 [ 0, %2 ], [ %32, %23 ]
store i32 %38, i32* %1
ret void
}