Question

Даны два массива A и B по четыре элементов в каждом. Образовать новый массив C, где c=a^2-b и найти наименьший элемент нового массива. Значения A и B произвольные.

Answer 1

// F#
[<EntryPoint>]
let main argv =
    let getArray =
        let rand = new System.Random();
        [1..4] |> Seq.map (fun x -> rand.Next 10)
    let A = getArray;
    let B = getArray;
    let C = A |> Seq.mapi (fun i a -> a * a - (B |> Seq.nth i))
    printf "%s" (Seq.fold (fun sum x -> sprintf "%s %d" sum x) "" C)
    System.Console.ReadKey true |> ignore
    0