Получить список из минимальных цифр целых чисел, содержащихся в исходном списке

open System

[<EntryPoint>]
let main argv =

    let list  =  [102; 13;24;111; 10 ]
    //printf "%A" list
    let rec  getData d =
         let c = d/10
         if c = 0 then d
         else
            let a = d%10
            let b = getData c
            if a > b then
                b
            else
                a
    let list2  = List.fold (fun acc elem  -> (getData elem ) :: acc ) [] list
    let ansList = List.rev list2
    printf "%A" ansList
    System.Console.ReadLine() |> ignore
    0