open System

open System.Collections

open System.Collections.Generic

open System.Linq

open System.Text

open System.IO

​

//https://stackoverflow.com/questions/62486579/f-array-map-array-filter-in-one-step-single-function-to-avoid-map-fi

​

open FSharp.Data

open FSharp.Data.Json

​

let jsonStirng = @"[ 

    {""red"": 100, ""green"": 100, ""blue"": 100, ""alpha"": 1.0 },

    {""red"": 100, ""green"": 100, ""blue"": 100, ""alpha"": 0.5 },

    ]"

​

let getSolidColors jsonString =

    let getColor item = 

        if (item:JsonValue).["alpha"].AsDecimal() < 1m

        then Some( {R=item.["red"].AsInteger(); G=item.["green"].AsInteger(); B=item.["blue"].AsInteger()} )

        else None

​

    JsonValue.Parse(jsonString).AsArray() 

    |> Array.map getColor 

    |> Array.filter (fun x -> x.IsSome)

    |> Array.map (fun x -> x.Value)

​

printf "%A" getSolidColors

​

​