long long EulerTotient_ProductForm(long long num) {
  long long answer = num;
  for (long long i = 2; i * i <= num; i++) {
    if (num % i == 0) {
      while (num % i == 0)
        num /= i;
      answer = answer - (answer / i);
    }
  }
  if (num > 1)
    answer = answer - (answer / num);
  return answer;
}


x86 assembly (clang, -O0):
<EulerTotient_ProductForm>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,-0x10(%rbp)
movq   $0x2,-0x18(%rbp)
mov    -0x18(%rbp),%rax
imul   -0x18(%rbp),%rax
cmp    -0x8(%rbp),%rax
jg     11a4 <EulerTotient_ProductForm+0xa4>
mov    -0x8(%rbp),%rax
cqto
idivq  -0x18(%rbp)
cmp    $0x0,%rdx
jne    118e <EulerTotient_ProductForm+0x8e>
jmp    1144 <EulerTotient_ProductForm+0x44>
mov    -0x8(%rbp),%rax
cqto
idivq  -0x18(%rbp)
cmp    $0x0,%rdx
jne    116e <EulerTotient_ProductForm+0x6e>
mov    -0x18(%rbp),%rcx
mov    -0x8(%rbp),%rax
cqto
idiv   %rcx
mov    %rax,-0x8(%rbp)
jmp    1144 <EulerTotient_ProductForm+0x44>
mov    -0x10(%rbp),%rax
mov    %rax,-0x20(%rbp)
mov    -0x10(%rbp),%rax
cqto
idivq  -0x18(%rbp)
mov    %rax,%rcx
mov    -0x20(%rbp),%rax
sub    %rcx,%rax
mov    %rax,-0x10(%rbp)
jmp    1193 <EulerTotient_ProductForm+0x93>
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
jmp    1118 <EulerTotient_ProductForm+0x18>
cmpq   $0x1,-0x8(%rbp)
jle    11cf <EulerTotient_ProductForm+0xcf>
mov    -0x10(%rbp),%rax
mov    %rax,-0x28(%rbp)
mov    -0x10(%rbp),%rax
cqto
idivq  -0x8(%rbp)
mov    %rax,%rcx
mov    -0x28(%rbp),%rax
sub    %rcx,%rax
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<EulerTotient_ProductForm>:
cmp    $0x4,%rdi
jge    1130 <EulerTotient_ProductForm+0x30>
mov    %rdi,%rcx
cmp    $0x1,%rcx
jle    1203 <EulerTotient_ProductForm+0x103>
mov    %rdi,%rax
or     %rcx,%rax
shr    $0x20,%rax
je     11fa <EulerTotient_ProductForm+0xfa>
mov    %rdi,%rax
cqto
idiv   %rcx
jmp    1200 <EulerTotient_ProductForm+0x100>
mov    $0x2,%esi
mov    %rdi,%rcx
jmp    115b <EulerTotient_ProductForm+0x5b>
nopw   0x0(%rax,%rax,1)
mov    %rdi,%rax
cqto
idiv   %rsi
sub    %rax,%rdi
add    $0x1,%rsi
mov    %rsi,%rax
imul   %rsi,%rax
cmp    %rcx,%rax
jg     1109 <EulerTotient_ProductForm+0x9>
mov    %rcx,%rax
or     %rsi,%rax
shr    $0x20,%rax
je     1180 <EulerTotient_ProductForm+0x80>
mov    %rcx,%rax
cqto
idiv   %rsi
test   %rdx,%rdx
jne    114b <EulerTotient_ProductForm+0x4b>
jmp    119d <EulerTotient_ProductForm+0x9d>
cs nopw 0x0(%rax,%rax,1)
mov    %ecx,%eax
xor    %edx,%edx
div    %esi
test   %rdx,%rdx
jne    114b <EulerTotient_ProductForm+0x4b>
jmp    119d <EulerTotient_ProductForm+0x9d>
nopl   (%rax)
mov    %rcx,%rax
cqto
idiv   %rsi
test   %rdx,%rdx
jne    11df <EulerTotient_ProductForm+0xdf>
mov    %rcx,%rax
or     %rsi,%rax
shr    $0x20,%rax
je     11c0 <EulerTotient_ProductForm+0xc0>
mov    %rcx,%rax
cqto
idiv   %rsi
mov    %rax,%rcx
jmp    11c8 <EulerTotient_ProductForm+0xc8>
cs nopw 0x0(%rax,%rax,1)
mov    %ecx,%eax
xor    %edx,%edx
div    %esi
mov    %eax,%ecx
mov    %rcx,%rax
or     %rsi,%rax
shr    $0x20,%rax
jne    1190 <EulerTotient_ProductForm+0x90>
mov    %ecx,%eax
xor    %edx,%edx
div    %esi
test   %rdx,%rdx
je     119d <EulerTotient_ProductForm+0x9d>
mov    %rdi,%rax
or     %rsi,%rax
shr    $0x20,%rax
jne    1140 <EulerTotient_ProductForm+0x40>
mov    %edi,%eax
xor    %edx,%edx
div    %esi
jmp    1148 <EulerTotient_ProductForm+0x48>
mov    %edi,%eax
xor    %edx,%edx
div    %ecx
sub    %rax,%rdi
mov    %rdi,%rax
ret

LLVM IR (-O0):
define i64 @EulerTotient_ProductForm(i64 %0) {
%2 = alloca i64
%3 = alloca i64
%4 = alloca i64
store i64 %0, i64* %2
%5 = load i64, i64* %2
store i64 %5, i64* %3
store i64 2, i64* %4
br label %6
6: ; preds = %34, %1
%7 = load i64, i64* %4
%8 = load i64, i64* %4
%9 = mul nsw i64 %7, %8
%10 = load i64, i64* %2
%11 = icmp sle i64 %9, %10
br i1 %11, label %12, label %37
12: ; preds = %6
%13 = load i64, i64* %2
%14 = load i64, i64* %4
%15 = srem i64 %13, %14
%16 = icmp eq i64 %15, 0
br i1 %16, label %17, label %33
17: ; preds = %12
br label %18
18: ; preds = %23, %17
%19 = load i64, i64* %2
%20 = load i64, i64* %4
%21 = srem i64 %19, %20
%22 = icmp eq i64 %21, 0
br i1 %22, label %23, label %27
23: ; preds = %18
%24 = load i64, i64* %4
%25 = load i64, i64* %2
%26 = sdiv i64 %25, %24
store i64 %26, i64* %2
br label %18
27: ; preds = %18
%28 = load i64, i64* %3
%29 = load i64, i64* %3
%30 = load i64, i64* %4
%31 = sdiv i64 %29, %30
%32 = sub nsw i64 %28, %31
store i64 %32, i64* %3
br label %33
33: ; preds = %27, %12
br label %34
34: ; preds = %33
%35 = load i64, i64* %4
%36 = add nsw i64 %35, 1
store i64 %36, i64* %4
br label %6
37: ; preds = %6
%38 = load i64, i64* %2
%39 = icmp sgt i64 %38, 1
br i1 %39, label %40, label %46
40: ; preds = %37
%41 = load i64, i64* %3
%42 = load i64, i64* %3
%43 = load i64, i64* %2
%44 = sdiv i64 %42, %43
%45 = sub nsw i64 %41, %44
store i64 %45, i64* %3
br label %46
46: ; preds = %40, %37
%47 = load i64, i64* %3
ret i64 %47
}

LLVM IR (-O2):
define i64 @EulerTotient_ProductForm(i64 %0) {
%2 = icmp slt i64 %0, 4
br i1 %2, label %3, label %7
3: ; preds = %21, %1
%4 = phi i64 [ %0, %1 ], [ %22, %21 ]
%5 = phi i64 [ %0, %1 ], [ %23, %21 ]
%6 = icmp sgt i64 %4, 1
br i1 %6, label %27, label %30
7: ; preds = %1, %21
%8 = phi i64 [ %24, %21 ], [ 2, %1 ]
%9 = phi i64 [ %23, %21 ], [ %0, %1 ]
%10 = phi i64 [ %22, %21 ], [ %0, %1 ]
%11 = srem i64 %10, %8
%12 = icmp eq i64 %11, 0
br i1 %12, label %13, label %21
13: ; preds = %7, %13
%14 = phi i64 [ %15, %13 ], [ %10, %7 ]
%15 = sdiv i64 %14, %8
%16 = srem i64 %15, %8
%17 = icmp eq i64 %16, 0
br i1 %17, label %13, label %18
18: ; preds = %13
%19 = sdiv i64 %9, %8
%20 = sub nsw i64 %9, %19
br label %21
21: ; preds = %7, %18
%22 = phi i64 [ %15, %18 ], [ %10, %7 ]
%23 = phi i64 [ %20, %18 ], [ %9, %7 ]
%24 = add nuw nsw i64 %8, 1
%25 = mul nsw i64 %24, %24
%26 = icmp sgt i64 %25, %22
br i1 %26, label %3, label %7
27: ; preds = %3
%28 = sdiv i64 %5, %4
%29 = sub nsw i64 %5, %28
br label %30
30: ; preds = %27, %3
%31 = phi i64 [ %29, %27 ], [ %5, %3 ]
ret i64 %31
}