(lab 5) feat: task-16-method-2: Добавлен метод поиска минимальной нечетной цифры числа

lab 5/NumberOperationsAdvanced/Program.fs

@@ -16,7 +16,27 @@ let countDivisorsNotDivisibleByThree (n: int) =
     
     if n <= 0 then 0 else countDivisors 1 0
 
-// method test
+// Метод 2: Найти минимальную нечетную цифру числа
+let findMinOddDigit (n: int) =
+    // Вспомогательная функция для поиска минимальной нечетной цифры с использованием хвостовой рекурсии
+    let rec findMin number minDigit =
+        if number = 0 then
+            minDigit
+        else
+            let digit = number % 10
+            let newMin =
+                if digit % 2 <> 0 && (minDigit = -1 || digit < minDigit) then
+                    digit
+                else
+                    minDigit
+            findMin (number / 10) newMin
+    
+    if n < 0 then
+        findMin (abs n) -1
+    else
+        findMin n -1
+        
+// method test 1
 let testCountDivisorsNotDivisibleByThree () =
     let testCases = [1; 3; 6; 9; 10; 12; 15; 20; 30]
     
@@ -34,23 +54,58 @@ let testCountDivisorsNotDivisibleByThree () =
         printfn "  Результат: %d (ожидаемый: %d) - %s" result expected (if result = expected then "OK" else "ОШИБКА")
         printfn ""
 
+// method test 2
+let testFindMinOddDigit () =
+    let testCases = [0; 2; 8; 13; 25; 42; 123; 456; 789; 2468; 1359; 12345]
+    
+    printfn "Тестирование метода 2: Минимальная нечетная цифра числа"
+    for n in testCases do
+        let digits = 
+            n.ToString()
+            |> Seq.map (fun c -> int c - int '0')
+            |> Seq.toList
+        
+        let oddDigits = digits |> List.filter (fun d -> d % 2 <> 0)
+        
+        let expected = 
+            if oddDigits.IsEmpty then -1
+            else List.min oddDigits
+            
+        let result = findMinOddDigit n
+        
+        printfn "n = %d:" n
+        printfn "  Цифры: %A" digits
+        printfn "  Нечетные цифры: %A" oddDigits
+        printfn "  Минимальная нечетная цифра: %d (ожидаемая: %d) - %s" 
+            result expected (if result = expected then "OK" else "ОШИБКА")
+        printfn ""
+
 [<EntryPoint>]
 let main argv =
     Console.OutputEncoding <- Text.Encoding.UTF8
     
-    printfn "Задание 16. Вариант № 5. Метод 1: Найти количество делителей числа, не делящихся на 3.\n"
+    printfn "Задание 16. Вариант № 5."
+    printfn "Метод 1: Найти количество делителей числа, не делящихся на 3."
+    printfn "Метод 2: Найти минимальную нечетную цифру числа.\n"
     
+    printfn "=== Тестирование Метода 1 ==="
     testCountDivisorsNotDivisibleByThree()
     
+    printfn "=== Тестирование Метода 2 ==="
+    testFindMinOddDigit()
+    
     printfn "Интерактивный режим:"
     let rec processUserInput () =
-        printf "Введите число для вычисления количества делителей, не делящихся на 3 (или 'q' для выхода): "
+        printfn "Выберите метод:"
-        let input = Console.ReadLine()
+        printfn "1 - Количество делителей числа, не делящихся на 3"
+        printfn "2 - Минимальная нечетная цифра числа"
+        printfn "q - Выход"
         
-        match input.ToLower() with
+        printf "Ваш выбор: "
-        | "q" | "quit" | "exit" -> ()
+        match Console.ReadLine().ToLower() with
-        | _ ->
+        | "1" ->
-            match Int32.TryParse(input) with
+            printf "Введите число: "
+            match Int32.TryParse(Console.ReadLine()) with
             | true, n when n > 0 ->
                 let result = countDivisorsNotDivisibleByThree n
                 let divisors = [1..n] |> List.filter (fun i -> n % i = 0)
@@ -61,10 +116,44 @@ let main argv =
                 printfn "Делители, не делящиеся на 3: %A" divisorsNotDivByThree
                 printfn "Количество делителей, не делящихся на 3: %d" result
                 printfn ""
-                processUserInput ()
             | _ ->
                 printfn "Некорректный ввод. Пожалуйста, введите положительное целое число.\n"
-                processUserInput ()
+            
+            processUserInput ()
+            
+        | "2" ->
+            printf "Введите число: "
+            match Int32.TryParse(Console.ReadLine()) with
+            | true, n ->
+                let result = findMinOddDigit n
+                
+                printfn "Число: %d" n
+                
+                let digits = 
+                    (abs n).ToString()
+                    |> Seq.map (fun c -> int c - int '0')
+                    |> Seq.toList
+                
+                let oddDigits = digits |> List.filter (fun d -> d % 2 <> 0)
+                
+                printfn "Цифры: %A" digits
+                printfn "Нечетные цифры: %A" oddDigits
+                
+                if result = -1 then
+                    printfn "В числе нет нечетных цифр."
+                else
+                    printfn "Минимальная нечетная цифра: %d" result
+                
+                printfn ""
+            | _ ->
+                printfn "Некорректный ввод. Пожалуйста, введите целое число.\n"
+                
+            processUserInput ()
+            
+        | "q" | "quit" | "exit" -> ()
+        | _ ->
+            printfn "Некорректный выбор. Пожалуйста, выберите 1, 2 или q."
+            processUserInput ()
     
     processUserInput ()
     0