බුද්ධි පරීක්ෂණයක්

[visula kavinda]

මට උඹලගේ බුද්ධිය පරීක්ෂා කරගන්න අවශ්‍යයි.
විෂුවල බේසික ලිස්ට්වීව් පාලකයක් තුල පහත ආකාරයේ ලැයිස්තුවක් තියෙනවා
apple Date Date banana Date Date Date Date apple apple banana apple apple banana

එහි අයිතම මුලින්ම අකාරාදී පිලිවෙලටත් ඉන්පසු නාමයන්ගේ බහුලතාවයට අනුව පෙල ගස්වා පහත ආකාරයේ ප්‍රතිදානයක් ගතයුතුයි
Date Date Date Date Date Date apple apple apple apple apple banana banana banana

මේ සඳහා පරිගණකයේ සම්පත් අවම ලෙස පාවිච්චි කෙරෙන කේතයක් සාදා ඔබේ දක්ෂතාව ලොවට පෙන්වන්න.

 

[wissnshaftler]

 

[sinhawanshaya]

මට උඹලගේ බුද්ධිය පරීක්ෂා කරගන්න අවශ්‍යයි.
විෂුවල බේසික ලිස්ට්වීව් පාලකයක් තුල පහත ආකාරයේ ලැයිස්තුවක් තියෙනවා
apple Date Date banana Date Date Date Date apple apple banana apple apple banana

එහි අයිතම මුලින්ම අකාරාදී පිලිවෙලටත් ඉන්පසු නාමයන්ගේ බහුලතාවයට අනුව පෙල ගස්වා පහත ආකාරයේ ප්‍රතිදානයක් ගතයුතුයි
Date Date Date Date Date Date apple apple apple apple apple banana banana banana

මේ සඳහා පරිගණකයේ සම්පත් අවම ලෙස පාවිච්චි කෙරෙන කේතයක් සාදා ඔබේ දක්ෂතාව ලොවට පෙන්වන්න.

Lesi wadi. Kammali

 

[visula kavinda]

 

[saja]

Kammali vb dan use karanne na ,
chatgpt

Imports System.Linq

Public Class Form1
Private Sub SortListViewItems()
' Step 1: Retrieve items from the ListView into a List
Dim itemsList As List(Of String) = ListView1.Items.Cast(Of ListViewItem)().
Select(Function(item) item.Text).ToList()

' Step 2: Sort the items first alphabetically, then by frequency (descending)
Dim sortedItems = itemsList.GroupBy(Function(item) item).
OrderBy(Function(group) group.Key). ' Alphabetical order
ThenByDescending(Function(group) group.Count()). ' Frequency
SelectMany(Function(group) Enumerable.Repeat(group.Key, group.Count()))

' Step 3: Clear the ListView and add sorted items back
ListView1.Items.Clear()
For Each item In sortedItems
ListView1.Items.Add(item)
Next
End Sub

Private Sub ButtonSort_Click(sender As Object, e As EventArgs) Handles ButtonSort.Click
SortListViewItems()
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' Example items to populate the ListView (for demonstration purposes)
ListView1.Items.AddRange(New ListViewItem() {
New ListViewItem("apple"),
New ListViewItem("Date"),
New ListViewItem("Date"),
New ListViewItem("banana"),
New ListViewItem("Date"),
New ListViewItem("Date"),
New ListViewItem("Date"),
New ListViewItem("Date"),
New ListViewItem("apple"),
New ListViewItem("apple"),
New ListViewItem("banana"),
New ListViewItem("apple"),
New ListViewItem("apple"),
New ListViewItem("banana")
})
End Sub
End Class

 

[EKGuest]

එහි අයිතම මුලින්ම අකාරාදී පිලිවෙලටත් ඉන්පසු නාමයන්ගේ බහුලතාවයට අනුව පෙල ගස්වා පහත ආකාරයේ ප්‍රතිදානයක් ගතයුතුයි
Date Date Date Date Date Date apple apple apple apple apple banana banana banana

මුලින්ම අකාරාදී පිළිවෙලටයි ඊටපස්සේ frequency එකටයි සෝට් කලොත් එන අවුට්පුට් එක ඕක නෙමෙයි.

apple apple apple apple apple Date Date Date Date Date Date banana banana banana

 

[visula kavinda]

උඹලා අසමත්. මමයි දිනුම්
' Custom comparer for sorting
Private Class ListViewCustomComparer
Implements IComparer

Public Function Compare(x As Object, y As Object) As Integer Implements IComparer.Compare
Dim itemX As ListViewItem = DirectCast(x, ListViewItem)
Dim itemY As ListViewItem = DirectCast(y, ListViewItem)

Return ll_index(itemY.Text) - ll_index(itemX.Text)

End Function

Class ccc
Friend name As String
Friend fq As Integer = 1
End Class

Friend ll As New List(Of ccc)
Friend Sub qqqq()
Dim i As Integer
Dim j As Integer
Dim b_ As Boolean
ll.Clear()
For i = 0 To Form_JUNK.ListView1.Items.Count - 1
b_ = False
For j = 0 To ll.Count - 1
If ll(j).name = Form_JUNK.ListView1.Items.Item(i).Text Then
ll(j).fq += 1
b_ = True
Exit For
End If
Next
If b_ = False Then
ll.Add(New ccc With {.name = Form_JUNK.ListView1.Items.Item(i).Text})
End If
Next
End Sub
Private Function ll_index(s As String) As Integer
Dim i As Integer
For i = 0 To ll.Count - 1
If ll(i).name = s Then
Return ll(i).fq
End If
Next
Return 0
End Function
End Class
Private Sub ButtonSort_Click(sender As Object, e As EventArgs) Handles ButtonSort.Click
Dim xx As New ListViewCustomComparer()
xx.qqqq()
ListView1.ListViewItemSorter = xx
xx.ll.Clear()
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load


ListView1.Items.AddRange(New ListViewItem() {
New ListViewItem("apple"),
New ListViewItem("Date"),
New ListViewItem("Date"),
New ListViewItem("banana"),
New ListViewItem("Date"),
New ListViewItem("Date"),
New ListViewItem("Date"),
New ListViewItem("Date"),
New ListViewItem("apple"),
New ListViewItem("apple"),
New ListViewItem("banana"),
New ListViewItem("apple"),
New ListViewItem("apple"),
New ListViewItem("banana")
})

End Sub