AHK: Определить соотношение сторон

width := 1920
height := 1080

; Получение сокращенной дроби и НОД
result := ReduceFraction(width, height)

; Вывод результата
MsgBox, Соотношение сторон: %result%

ReduceFraction(x, y) {
    gcd := GCD(x, y)
    reducedWidth := x // gcd
    reducedHeight := y // gcd
    Return reducedWidth ":" reducedHeight
}

GCD(X, Y) {
    while (Y) {
        R := Mod(X, Y)
        X := Y
        Y := R
    }
    Return X
}
Return

MsgBox, % "Соотношение сторон монитора: " ReduceFraction(A_ScreenWidth, A_ScreenHeight)

ReduceFraction(X, Y){	;23:39 05.08.2023 [БОТ]
 GCD := X, D := Y
 While(D)
  M := Mod(GCD, D), GCD := D, D := M
 Return (X // GCD) ":" (Y // GCD)
}