Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
Module Program
Sub Main()
Dim scores As New Dictionary(Of String, Integer) From {
{"Alice",10}, {"Bob",5}, {"Charlie",12}
}
Dim highScores = scores.Where(Function(kv) kv.Value >= 10).ToDictionary(Function(kv) kv.Key, Function(kv) kv.Value)
For Each kv In highScores
Console.WriteLine($"{kv.Key}: {kv.Value}")
Next
End Sub
End ModuleCoding works best on desktop or with an external keyboard.