lab 6 task 9

lab6/Makefile

@@ -1,4 +1,4 @@
-.PHONY: run build clean task1 build-task1 clean-task1 task2 build-task2 clean-task2 task3 build-task3 clean-task3 task4 build-task4 clean-task4 task5 build-task5 clean-task5 task6 build-task6 clean-task6 task7 build-task7 clean-task7 task8 build-task8 clean-task8
+.PHONY: run build clean task1 build-task1 clean-task1 task2 build-task2 clean-task2 task3 build-task3 clean-task3 task4 build-task4 clean-task4 task5 build-task5 clean-task5 task6 build-task6 clean-task6 task7 build-task7 clean-task7 task8 build-task8 clean-task8 task9 build-task9 clean-task9
 
 # task1
 run:
@@ -91,3 +91,13 @@ build-task8:
 
 clean-task8:
 	cd task8 && dotnet clean
+
+# task9
+task9:
+	cd task9 && dotnet run --project task9.fsproj
+
+build-task9:
+	cd task9 && dotnet build
+
+clean-task9:
+	cd task9 && dotnet clean

lab6/task9/Program.fs

@@ -0,0 +1,182 @@
+open System
+
+let digitSum (n: int) : int =
+    let rec sumDigits acc num =
+        if num = 0 then acc
+        else sumDigits (acc + (num % 10)) (num / 10)
+    sumDigits 0 (abs n)
+
+let countDivisors (n: int) : int =
+    let absN = abs n
+    if absN = 0 then 0
+    elif absN = 1 then 1
+    else
+        [1..absN]
+        |> List.filter (fun x -> absN % x = 0)
+        |> List.length
+
+let sortByDescending (lst: int list) : int list =
+    lst |> List.sortByDescending id
+
+let sortByDigitSumAscending (lst: int list) : int list =
+    lst 
+    |> List.sortBy (fun x -> (digitSum x, -(abs x)))
+
+let sortByDivisorCountDescending (lst: int list) : int list =
+    lst 
+    |> List.sortBy (fun x -> (-(countDivisors x), -(abs x)))
+
+let createTupleList (listA: int list) (listB: int list) (listC: int list) : (int * int * int) list =
+    let sortedA = sortByDescending listA
+    let sortedB = sortByDigitSumAscending listB
+    let sortedC = sortByDivisorCountDescending listC
+    
+    let minLength = [List.length sortedA; List.length sortedB; List.length sortedC] |> List.min
+    
+    [0..minLength-1]
+    |> List.map (fun i -> (sortedA.[i], sortedB.[i], sortedC.[i]))
+
+let analyzeList (lst: int list) (name: string) : unit =
+    printfn "Анализ списка %s: %A" name lst
+    printfn "  Суммы цифр: %A" (lst |> List.map digitSum)
+    printfn "  Количество делителей: %A" (lst |> List.map countDivisors)
+    printfn "  По убыванию: %A" (sortByDescending lst)
+    printfn "  По возрастанию суммы цифр: %A" (sortByDigitSumAscending lst)
+    printfn "  По убыванию количества делителей: %A" (sortByDivisorCountDescending lst)
+    printfn ""
+
+let validateUniqueness (lst: int list) (name: string) : bool =
+    let unique = lst |> List.distinct
+    let isUnique = List.length lst = List.length unique
+    if not isUnique then
+        printfn "Предупреждение: список %s содержит повторяющиеся элементы!" name
+    isUnique
+
+let createTupleListSafe (listA: int list) (listB: int list) (listC: int list) : (int * int * int) list =
+    let _ = validateUniqueness listA "A"
+    let _ = validateUniqueness listB "B"
+    let _ = validateUniqueness listC "C"
+    createTupleList listA listB listC
+
+let demonstrateSorting (lst: int list) (name: string) : unit =
+    printfn "Демонстрация сортировки для списка %s: %A" name lst
+    
+    let withDigitSum = lst |> List.map (fun x -> (x, digitSum x))
+    let withDivisors = lst |> List.map (fun x -> (x, countDivisors x))
+    
+    printfn "  Элементы с суммой цифр: %A" withDigitSum
+    printfn "  Элементы с количеством делителей: %A" withDivisors
+    
+    printfn "  Сортировка по возрастанию суммы цифр:"
+    withDigitSum 
+    |> List.sortBy (fun (x, sum) -> (sum, -(abs x)))
+    |> List.iter (fun (x, sum) -> printfn "    %d (сумма цифр: %d)" x sum)
+    
+    printfn "  Сортировка по убыванию количества делителей:"
+    withDivisors 
+    |> List.sortBy (fun (x, count) -> (-count, -(abs x)))
+    |> List.iter (fun (x, count) -> printfn "    %d (делителей: %d)" x count)
+    
+    printfn ""
+
+let getElementAtPosition (lst: 'a list) (position: int) (listName: string) : 'a option =
+    if position >= 0 && position < List.length lst then
+        Some lst.[position]
+    else
+        printfn "Позиция %d выходит за границы списка %s (длина: %d)" position listName (List.length lst)
+        None
+
+let createTupleListWithValidation (listA: int list) (listB: int list) (listC: int list) : (int * int * int) list =
+    printfn "Создание списка кортежей из трех списков:"
+    printfn "Список A: %A" listA
+    printfn "Список B: %A" listB
+    printfn "Список C: %A" listC
+    printfn ""
+    
+    let sortedA = sortByDescending listA
+    let sortedB = sortByDigitSumAscending listB
+    let sortedC = sortByDivisorCountDescending listC
+    
+    printfn "После сортировки:"
+    printfn "A (по убыванию): %A" sortedA
+    printfn "B (по возрастанию суммы цифр): %A" sortedB
+    printfn "C (по убыванию количества делителей): %A" sortedC
+    printfn ""
+    
+    let minLength = [List.length sortedA; List.length sortedB; List.length sortedC] |> List.min
+    printfn "Минимальная длина списков: %d" minLength
+    printfn ""
+    
+    let result = [0..minLength-1] |> List.map (fun i -> (sortedA.[i], sortedB.[i], sortedC.[i]))
+    
+    printfn "Результирующие кортежи:"
+    result |> List.iteri (fun i (a, b, c) -> printfn "  %d: (%d, %d, %d)" (i+1) a b c)
+    printfn ""
+    
+    result
+
+[<EntryPoint>]
+let main argv =
+    printfn "=== Задание 9: Составление списка кортежей из трех списков ==="
+    printfn ""
+    
+    let testA1 = [10; 5; 20; 15; 8]
+    let testB1 = [123; 45; 678; 12; 99]
+    let testC1 = [12; 18; 24; 30; 6]
+    
+    printfn "Тест 1:"
+    let result1 = createTupleListWithValidation testA1 testB1 testC1
+    
+    printfn "=== Детальный анализ списков ==="
+    analyzeList testA1 "A1"
+    analyzeList testB1 "B1"
+    analyzeList testC1 "C1"
+    
+    let testA2 = [100; 50; 25; 75]
+    let testB2 = [111; 222; 333; 444]
+    let testC2 = [16; 20; 24; 28]
+    
+    printfn "Тест 2:"
+    let result2 = createTupleListWithValidation testA2 testB2 testC2
+    
+    let testA3 = [7; 14; 21; 28; 35]
+    let testB3 = [19; 28; 37; 46]
+    let testC3 = [15; 21; 35; 45]
+    
+    printfn "Тест 3 (разные длины списков):"
+    let result3 = createTupleListWithValidation testA3 testB3 testC3
+    
+    printfn "=== Демонстрация сортировки ==="
+    demonstrateSorting testB1 "B1"
+    demonstrateSorting testC1 "C1"
+    
+    printfn "=== Тест с повторяющимися элементами ==="
+    let testA4 = [10; 20; 10; 30]
+    let testB4 = [123; 123; 456]
+    let testC4 = [12; 18; 12]
+    
+    printfn "Тест 4 (с повторяющимися элементами):"
+    let result4 = createTupleListSafe testA4 testB4 testC4
+    
+    printfn "=== Тест граничных случаев ==="
+    
+    printfn "Тест 5 (пустые списки):"
+    let result5 = createTupleList [] [] []
+    printfn "Результат для пустых списков: %A" result5
+    printfn ""
+    
+    printfn "Тест 6 (однозначные числа):"
+    let testA6 = [9; 8; 7; 6; 5]
+    let testB6 = [1; 2; 3; 4; 5]
+    let testC6 = [6; 4; 3; 2; 1]
+    let result6 = createTupleListWithValidation testA6 testB6 testC6
+    
+    printfn "=== Тест с отрицательными числами ==="
+    let testA7 = [-10; -5; 15; 20]
+    let testB7 = [-123; 45; -67; 89]
+    let testC7 = [-12; 18; -24; 30]
+    
+    printfn "Тест 7 (с отрицательными числами):"
+    let result7 = createTupleListWithValidation testA7 testB7 testC7
+    
+    0

lab6/task9/task9.fsproj

@@ -0,0 +1,8 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net7.0</TargetFramework>
+  </PropertyGroup>
+
+</Project>