When was the last time we had a player score for both teams like Jack Robinson did today?
Also when was our last 5-2 home win (away from home there was the legendary Leicester promotion win and also.an away win at Forest but can't rem a home win of that score.
For a bit of fun* i wrote a program that goes through all of our competitive results on
11v11 and shows you all the results for a particular score.
So for a 5-2 home victory here are all the times we've done that in our history. not that many as it turns out!
05/11/2022 : Sheffield United v Burnley : 5:2 : League Championship
18/03/1978 : Sheffield United v Millwall : 5:2 : League Division Two
22/03/1969 : Sheffield United v Bolton Wanderers : 5:2 : League Division Two
19/09/1959 : Sheffield United v Bristol City : 5:2 : League Division Two
20/04/1959 : Sheffield United v Bristol Rovers : 5:2 : League Division Two
20/08/1956 : Sheffield United v Fulham : 5:2 : League Division Two
02/05/1955 : Sheffield United v Portsmouth : 5:2 : League Division One
28/11/1953 : Sheffield United v Tottenham Hotspur : 5:2 : League Division One
08/01/1949 : Sheffield United v New Brighton : 5:2 : FA Cup
31/12/1932 : Sheffield United v Leicester City : 5:2 : League Division One
10/09/1927 : Sheffield United v Burnley : 5:2 : League Division One
30/12/1905 : Sheffield United v Bolton Wanderers : 5:2 : League Division One
26/12/1904 : Sheffield United v Stoke : 5:2 : League Division One
14/10/1899 : Sheffield United v Wolverhampton Wanderers : 5:2 : League Division One
04/10/1897 : Sheffield United v Blackburn Rovers : 5:2 : League Division One
* The nights positively fly by at KBN Towers....
Code below, but i'm not that good at FSharp so it's a bit clunky looking
Code:
open System
open FSharp.Data
type Result = {
Date : DateOnly
Match : string
HomeScore : int
AwayScore: int
HomeOrAway : string
Competition : string
}
let doc = HtmlDocument.Load("https://www.11v11.com/teams/sheffield-united/tab/matches/season/")
let teamName = "Sheffield United"
let seasonLinks : string list=
let listItems = doc.CssSelect("ul#season li a")
listItems
|> List.map (fun n -> n.Attribute("href") |> (fun a -> a.Value()))
|> List.map (fun x -> x.ToString())
let extractResult(row : HtmlNode) =
let tds = row.Descendants["td"]
let date = tds
|> Seq.item 0
|> (fun x -> DateOnly.Parse(x.InnerText().ToString()))
let game = tds
|> Seq.item 1
|> (fun x -> x.InnerText())
let score = tds
|> Seq.item 3
|> (fun x -> x.InnerText())
|> (fun x ->
let index = x.IndexOf('-')
let first = x.Substring(0, index)
let second = x.Substring(index + 1)
let trimmed = second.Split(' ', '\r', '\n')
(int(first),int(trimmed[0]))
)
let competition = tds
|> Seq.item 4
|> (fun x -> x.InnerText())
let teams = game.ToString().Split('v', StringSplitOptions.TrimEntries)
let homeOrAway = if(teams[0] = teamName) then "H" else "A"
let result = {
Result.Date = date
Match = game
HomeOrAway = homeOrAway
HomeScore = fst score
AwayScore = snd score
Competition = competition
}
result
let filterRow (row :HtmlNode) :bool =
let tds = row.Descendants["td"]
if Seq.isEmpty tds then false else true
let season (row : string) =
let seasonDoc = HtmlDocument.Load(row)
let rows = seasonDoc.CssSelect("#pageContent table tr")
let results = rows |> List.filter filterRow |> List.map extractResult
results
let foo = seasonLinks
|> List.collect season
|> List.filter (fun x-> x.HomeScore = 5 && x.AwayScore = 2 && x.HomeOrAway = "H" )
|> List.iter (fun x-> printfn $"{x.Date} : {x.Match} : {x.HomeScore}:{x.AwayScore} : {x.Competition}")
.
