open System

​

​

// Cubers, just change the alg here to whatever you want.

let alg = "R2 B2 U2 F2 U' R2 D' L2 U B2 D L D R' U' F D R2 F' U F R F2 L' B' U2 D' L' D2 L D2 B D' B' R' D R D' R D R' D2 L D L' F D F' D' F' D' F D' L D L' "

​

​

​

let trimmedAlg = alg.Trim();

​

let split = trimmedAlg.Split([|' '|])

​

let faces = 

    split 

    |> Array.map (fun z -> z.[0])

    |> Seq.distinct

let countingThing (arr : string[]) = 

    let helper comparator = 

        arr 

        |> Array.filter (fun z -> z = comparator) 

        |> Array.length

    let numClock = helper ""

    let numCounterClock = helper "'"

    let numDouble = helper "2"

    let total = ((numClock * 1) + (numDouble * 2) + (numCounterClock * 3)) % 4

    total

​

let printThingSexy pair =

    match (snd pair) with

    | 1 -> (fst pair)

    | 2 -> (fst pair) + "2"

    | 3 -> (fst pair) + "'"

    | _ -> "wat"

​

let arraysForFaces =

    query {

        for face in faces do

        let moves = split |> Array.filter (fun z -> z.[0] = face) |> Array.map(fun z -> z.Substring(1))

        let reducedCountThing = countingThing moves

        where (reducedCountThing <> 0)

        select (printThingSexy (face.ToString(), reducedCountThing))

    }

​

printfn "%A" (arraysForFaces |> Seq.toArray)