Functional Visual Basic - 1.0.0.3

Remove

• FVB.Common
  • put(Of T, V)(O As (V, T), Val As V) As (V, o As (V, T))
  • link(Of T As Structure, V)(O As (V, T), Length As int) As (l As int, o As (V, T))

Add

• FVB.Common
  • put(Of T As Structure, V)(List As (int, T), Val As V) As (l As int, o As (V, T))
  • link(Of T As Structure, V)(O As T) As (l As int, o As T)
  • pop(Of T As Structure, V)(List As (int, (V, T))) As (val As V, list As (int, o As T))
  • call(Of T)(Data As T, Method As Action(Of T)) As T
  • call(Of T, V)(Data As T, Param As V, Method As Action(Of T, V)) As T

Fixed

• FVB.List
  • each(Of T As Structure, V)(List As (int, T), For_each As Action(Of V)) As T
  • each(Of T As Structure, R, V)(List As (int, T), Param As R, For_each As Action(Of V, R)) As (T, R)

Functional Visual Basic - 1.0.0.2

Add

• FVB.Array
• FVB.List
  • each(Of T As Structure, V)(List As (int, T), For_each As Action(Of V)) As T
  • each(Of T As Structure, R, V)(List As (int, T), Param As R, For_each As Action(Of V, R)) As (T, R)
  • loop(Of T As Structure)(List As (int, T), Do_loop As Action(Of T, Integer)) As T
  • loop(Of T As Structure, V)(List As (int, T), Param As V, Do_loop As Action(Of T, Integer, V)) As (T, V)

Move

• FVB.Array
  • each(Of T)(Array As T(), For_each As Action(Of T)) As T()
  • each(Of T, V)(Array As T(), Param As V, For_each As Action(Of T, V)) As (T(), V)
  • loop(Of T)(Array As T(), Do_loop As Action(Of T(), Integer)) As T()
  • loop(Of T, V)(Array As T(), Param As V, Do_loop As Action(Of T(), Integer, V)) As (T(), V)
• FVB.Recursion
  • each(Of T)(Array As T(), For_each As Action(Of T)) As T()
  • each(Of T, V)(Array As T(), Param As V, For_each As Action(Of T, V)) As (T(), V)
  • loop(Of T)(Array As T(), Do_loop As Action(Of T(), Integer)) As T()
  • loop(Of T, V)(Array As T(), Param As V, Do_loop As Action(Of T(), Integer, V)) As (T(), V)

Functional Visual Basic - 1.0.0.1

Change

• Rid Is_end from send back info.

old

recur(Of T)(Data As (Is_end As Boolean, o As T), Recursive_method As Func(Of (Is_end As Boolean, o As T), (Is_end As Boolean, o As T))) As T

Console.WriteLine(
    (False, (input:=5, sum:=1)).recur(
        Function(G) (G.o.input < 2, (G.o.input - 1, G.o.sum * G.o.input))
    ).sum
)
' Console write :: 120

new

recur(Of T)(Data As (Is_end As Boolean, o As T), Recursive_method As Func(Of T, (Is_end As Boolean, o As T))) As T

Console.WriteLine(
    (False, (input:=5, sum:=1)).recur(
        Function(G) (G.input < 2, (G.input - 1, G.sum * G.input))
    ).sum
)
' Console write :: 120

Functional Visual Basic - 1.0.0.0

Hello my brand new world.