int is_monotonic(n, t)
int n;
double *t;
{
  int is_ascending;
  if (t[n - 1] < t[n])
    is_ascending = 1;
  else if (t[n - 1] > t[n])
    is_ascending = 0;
  else
    return 0;
  while (n > 0) {
    n--;
    if (is_ascending == 1 ? t[n] >= t[n + 1] : t[n] <= t[n + 1])
      return 0;
  };
  return 1;
}


x86 assembly (clang, -O0):
<is_monotonic>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x8(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm1
mov    -0x10(%rbp),%rax
movslq -0x8(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd %xmm1,%xmm0
jbe    1140 <is_monotonic+0x40>
movl   $0x1,-0x14(%rbp)
jmp    1182 <is_monotonic+0x82>
mov    -0x10(%rbp),%rax
mov    -0x8(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x8(%rbp),%rcx
ucomisd (%rax,%rcx,8),%xmm0
jbe    1171 <is_monotonic+0x71>
movl   $0x0,-0x14(%rbp)
jmp    117d <is_monotonic+0x7d>
movl   $0x0,-0x4(%rbp)
jmp    120f <is_monotonic+0x10f>
jmp    1182 <is_monotonic+0x82>
jmp    1187 <is_monotonic+0x87>
cmpl   $0x0,-0x8(%rbp)
jle    1208 <is_monotonic+0x108>
mov    -0x8(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x8(%rbp)
cmpl   $0x1,-0x14(%rbp)
jne    11ce <is_monotonic+0xce>
mov    -0x10(%rbp),%rax
movslq -0x8(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x8(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
ucomisd (%rax,%rcx,8),%xmm0
jae    11f7 <is_monotonic+0xf7>
jmp    1203 <is_monotonic+0x103>
mov    -0x10(%rbp),%rax
movslq -0x8(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
mov    -0x10(%rbp),%rax
mov    -0x8(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd %xmm1,%xmm0
jb     1203 <is_monotonic+0x103>
movl   $0x0,-0x4(%rbp)
jmp    120f <is_monotonic+0x10f>
jmp    1187 <is_monotonic+0x87>
movl   $0x1,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<is_monotonic>:
movslq %edi,%rax
movsd  -0x8(%rsi,%rax,8),%xmm0
movsd  (%rsi,%rax,8),%xmm1
xor    %eax,%eax
ucomisd %xmm1,%xmm0
je     115a <is_monotonic+0x5a>
test   %edi,%edi
jle    115b <is_monotonic+0x5b>
mov    %edi,%ecx
add    $0x1,%rcx
jmp    1140 <is_monotonic+0x40>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
ucomisd %xmm2,%xmm3
jae    115a <is_monotonic+0x5a>
add    $0xffffffffffffffff,%rcx
cmp    $0x1,%rcx
jbe    115b <is_monotonic+0x5b>
lea    -0x2(%rcx),%edx
ucomisd %xmm0,%xmm1
movsd  (%rsi,%rdx,8),%xmm2
movsd  -0x8(%rsi,%rcx,8),%xmm3
jbe    1130 <is_monotonic+0x30>
ucomisd %xmm3,%xmm2
jb     1136 <is_monotonic+0x36>
ret
mov    $0x1,%eax
ret

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

LLVM IR (-O2):
define i32 @is_monotonic(i32 %0, double* nocapture %1) {
%3 = add nsw i32 %0, -1
%4 = sext i32 %3 to i64
%5 = getelementptr inbounds double, double* %1, i64 %4
%6 = load double, double* %5
%7 = sext i32 %0 to i64
%8 = getelementptr inbounds double, double* %1, i64 %7
%9 = load double, double* %8
%10 = fcmp olt double %6, %9
%11 = fcmp ueq double %6, %9
br i1 %11, label %30, label %12
12: ; preds = %2
%13 = icmp sgt i32 %0, 0
br i1 %13, label %14, label %30
14: ; preds = %12
%15 = zext i32 %0 to i64
br label %16
16: ; preds = %14, %28
%17 = phi i64 [ %15, %14 ], [ %18, %28 ]
%18 = add nsw i64 %17, -1
%19 = and i64 %18, 4294967295
%20 = getelementptr inbounds double, double* %1, i64 %19
%21 = load double, double* %20
%22 = getelementptr inbounds double, double* %1, i64 %17
%23 = load double, double* %22
br i1 %10, label %24, label %26
24: ; preds = %16
%25 = fcmp ult double %21, %23
br i1 %25, label %28, label %30
26: ; preds = %16
%27 = fcmp ugt double %21, %23
br i1 %27, label %28, label %30
28: ; preds = %26, %24
%29 = icmp ugt i64 %17, 1
br i1 %29, label %16, label %30
30: ; preds = %26, %24, %28, %12, %2
%31 = phi i32 [ 0, %2 ], [ 1, %12 ], [ 0, %26 ], [ 0, %24 ], [ 1, %28 ]
ret i32 %31
}