vb.net - vb.net 中的映射函数

Question

我正在尝试在 VB.NET 中实现 map 功能，我尝试了以下方法。

 Function Map(a,f)
    Dim i
    for each i in a
      f(i)
    next
 End Function

 Function alert(a)
    MessageBox.Show(a)
 end function

但是上面的代码不起作用并且说没有声明警报。
请帮我解决这个问题。

Answer 1

你的函数不返回任何东西。尝试这个:

Public Sub Map(Of T)(ByVal a As IEnumerable(Of T), ByVal f As Action(T))
    For Each i As T In a
      f(i)
    Next
End Sub

Public Sub alert(ByVal a As Object)
    MessageBox.Show(a)
End Sub

以上是基于问题中的方法。真正的传统 Map()函数可能看起来更像这样:

Public Iterator Function Map(Of T)(ByVal a As IEnumerable(Of T), ByVal f As Func(Of T,T)) As IEnumerable(Of T)
    For Each i As T In a
        Yield f(i)
    Next
End Function

或这个:

Public Iterator Function Map(Of T, U)(ByVal a As IEnumerable(Of T), ByVal f As Func(Of T, U)) As IEnumerable(Of U)
    For Each i As T In a
        Yield f(i)
    Next
End Function