F#Codewars整数:二

task 具有

代码

open System

let rec distribute e = function
  | [] -> [[e]]
  | x::xs' as xs -> (e::xs)::[for xs in distribute e xs' -> x::xs]

let rec permute = function
  | [] -> [[]]
  | e::xs -> List.collect (distribute e) (permute xs)

let MoreRule (a: int) (b: int) (c: int) (d: int) = 
    let permutations = permute [a;b;c;d]
    let sums = permutations |> List.map(fun x -> x.[0]*x.[1] + x.[2]*x.[3])
    let diffs = permutations |> List.map(fun x -> x.[0]*x.[1] - x.[2]*x.[3])
    List.append sums diffs
    |> List.distinct
    |> List.filter(fun x -> x>0)
    |> List.sort

let factor number list = [
    for i in list do 
        let t = Math.Floor(Math.Sqrt((number-Math.Pow((float)i,2.0)))) |> int
        if (List.exists ((=)t) list) then 
            yield [|i;t|]
    ]

let prod2Sum (a: int) (b: int) (c: int) (d: int): int[] list = 
    let number = (float)(((a*a)+(b*b))*((c*c)+(d*d)))   
    let coefficients = MoreRule a b c d
    factor number coefficients
    |> List.map(fun arr -> if (arr.[0]>arr.[1]) then [|arr.[1];arr.[0]|] else [|arr.[0];arr.[1]|])
    |> List.distinct

当点击页面上的“尝试”按钮时,我得到的响应失败,退出代码1

prod2Sum 4 5 20 1 [[|75; 104|]; [|85; 96|]]

主要问题是我做错了什么?如何改进此代码?非常感谢。