function kiyoshi() Stack on VB, Visual Basic

Language: Layout:

Imports System
Imports System.Console
Imports System.Collections.Generic

Namespace Rextester
    Public Module Program
        
        Sub Main(Args() As string)
            WriteLine(kiyoshi())
        End Sub
        
        Function kiyoshi() As String
            Dim rand As New Random()
            Dim zundoko As String()={"ズン","ドコ"}
            Dim exit_kiyoshi As String="キ・ヨ・シ!"
            Dim zdchk As String()={0,0,0,0,1}
            Dim stk As New LinkedList(Of String)(New String(5-1){})
            Do
                Dim zd As Long=rand.Next(zundoko.Length)
                Write(zundoko(zd))
                stk.AddLast(zundoko(zd))
                Dim stk0 As String=stk.First.Value
                stk.RemoveFirst()
                If stk0<>zundoko(zdchk(0)) And String.Join("",stk)=String.Join("",Array.ConvertAll(zdchk,Function(val) zundoko(val))) Then
                    Return exit_kiyoshi
                End If
            Loop
        End Function
    End Module
End Namespace

Show compiler warnings [ + ] Show input
Compilation time: 0,19 sec, absolute running time: 0,11 sec, cpu time: 0,11 sec, average memory usage: 13 Mb, average nr of threads: 3