dredgy/AirportAlphabetGame
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

F# 8 Syntax updates

Browse Source
This commit is contained in:
Josh
2024-05-14 14:15:14 +10:00
parent f0b383049f
commit bd6c9c56a5
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
AirportAlphabetGame/Controller.fs
View File

@@ -48,7 +48,7 @@ let groupAirportsByLetter (airports: Airport[]) =
let getAirportAbbrTags airportGroup = let getAirportAbbrTags airportGroup =
airportGroup airportGroup
|> Array.distinct |> Array.distinct
|> Array.sortBy (_.Code) |> Array.sortBy _.Code
|> Array.map View.airportAbbr |> Array.map View.airportAbbr
@@ -63,9 +63,9 @@ let processAirports (alphabet: char[]) (allAirports: Airport[]) =
// Group airports by the first letter of their code // Group airports by the first letter of their code
let groupedAirports = let groupedAirports =
allAirports allAirports
|> Seq.groupBy (fun airport -> airport.Code.[0]) |> Seq.groupBy _.Code.[0]
|> Seq.map (fun (key, group) -> |> Seq.map (fun (key, group) ->
let sortedGroup = group |> Seq.sortBy (fun airport -> airport.Code) let sortedGroup = group |> Seq.sortBy _.Code
key, (sortedGroup |> Seq.map View.airportAbbr |> intersperseCommas)) key, (sortedGroup |> Seq.map View.airportAbbr |> intersperseCommas))
|> dict |> dict
@@ -96,7 +96,6 @@ let RenderAirportList (user: usernameQuery) =
let percentageOfLettersWithNoAirports = (float numberOfAirportsNotFlown / float alphabet.Length) * 100.0 let percentageOfLettersWithNoAirports = (float numberOfAirportsNotFlown / float alphabet.Length) * 100.0
let message = $"{username} has flown {System.Math.Round(100. - percentageOfLettersWithNoAirports, 1)}%% of the alphabet!" let message = $"{username} has flown {System.Math.Round(100. - percentageOfLettersWithNoAirports, 1)}%% of the alphabet!"
airports airports
|> Array.map (fun (letter, nodes) -> View.tableRow letter nodes) |> Array.map (fun (letter, nodes) -> View.tableRow letter nodes)
|> View.table message username |> View.table message username