Android Question variables that can push pop like stack / queue / list

[b4xqar]

hi is there any variable / library in b4a that can push & pop like

http://www.java2s.com/Tutorial/VB/0160__Collections/StackPushPopandPeek.htm
or
https://www.tutorialspoint.com/java/util/stack_pop.htm

thank you =)

 

[Erel]

Create a class module named Stack with this code:

Sub Class_Globals
   Private data As List
End Sub

Public Sub Initialize
   data.Initialize
End Sub

Public Sub Push(o As Object)
   data.Add(o)
End Sub

Public Sub Pop As Object
   Dim o As Object = data.Get(data.Size - 1)
   data.RemoveAt(data.Size - 1)
   Return o
End Sub

Public Sub Peak As Object
   Return data.Get(data.Size - 1)
End Sub

Public Sub getSize As Int
   Return data.Size
End Sub

Usage example:

Dim s As Stack
s.Initialize
For i = 1 To 10
   s.Push(i)
Next
Do While s.Size > 0
   Log(s.Pop)
Loop

 

[b4xqar]

Create a class module named Stack with this code:

Sub Class_Globals
   Private data As List
End Sub

Public Sub Initialize
   data.Initialize
End Sub

Public Sub Push(o As Object)
   data.Add(o)
End Sub

Public Sub Pop As Object
   Dim o As Object = data.Get(data.Size - 1)
   data.RemoveAt(data.Size - 1)
   Return o
End Sub

Public Sub Peak As Object
   Return data.Get(data.Size - 1)
End Sub

Public Sub getSize As Int
   Return data.Size
End Sub

Usage example:

Dim s As Stack
s.Initialize
For i = 1 To 10
   s.Push(i)
Next
Do While s.Size > 0
   Log(s.Pop)
Loop

wow, so fast,

thank you very much Erel, I'll try =)