zundoko Class and kiyoshi Function for VB, Visual Basic

zundoko Class and kiyoshi Function for VB

Language: Layout:

'only
Imports System
Imports System.Console
Imports System.Collections.Generic

Namespace Rextester
    Public Module Program
            Sub Main(args() As string)
            Dim zd As New zundoko()
            WriteLine(zd.kiyoshi())
            Dim nyaaan As New zundoko({"ぺぇこ","にゃん"},"ぺぇこぺぇこふぅーんふぅーんぺぇこふぅーんふぅー",{0,0,1,1,0,1,1})
            WriteLine(nyaaan.kiyoshi())
        End Sub
    End Module

Class zundoko
        Dim rand As New Random()
        Dim zundoko_list As String()
        Dim exit_kiyoshi As String
        Dim zdchk As Integer()
        Sub New()
            Me.zundoko_list={"ズン","ドコ"}.Clone
            Me.exit_kiyoshi="キ・ヨ・シ!"
            Me.zdchk={0,0,0,0,1}.Clone
        End Sub

Sub New(zundoko_list,exit_kiyoshi,zdchk)
            Me.zundoko_list=zundoko_list.Clone
            Me.exit_kiyoshi=exit_kiyoshi
            Me.zdchk=zdchk.Clone
        End Sub

Function kiyoshi() As String
            Dim rand As New Random()
            Dim stk As New LinkedList(Of String)(New String(zdchk.Length-1){})
            Do
                Dim zd As Long=rand.Next(zundoko_list.Length)
                Write(zundoko_list(zd))
                stk.AddLast(zundoko_list(zd))
                Dim stk0 As String=stk.First.Value
                stk.RemoveFirst()
                If stk0<>zundoko_list(zdchk(0)) And String.Join("",stk)=String.Join("",Array.ConvertAll(zdchk,Function(val) zundoko_list(val))) Then
                    Return exit_kiyoshi
                End If
            Loop
        End Function
    End Class
End Namespace

Show compiler warnings [ + ] Show input
Compilation time: 0,19 sec, absolute running time: 0,14 sec, cpu time: 0,12 sec, average memory usage: 17 Mb, average nr of threads: 4

ズンドコドコドコドコドコズンズンズンドコズンズンズンズンズンドコドコズンズンドコズンドコズンズンズンズンズンズンズンズンズンズンズンズンドコズンズンズンズンドコキ・ヨ・シ! ぺぇこぺぇこぺぇこにゃんぺぇこにゃんにゃんぺぇこぺぇこにゃんにゃんぺぇこぺぇこにゃんぺぇこにゃんにゃんぺぇこにゃんぺぇこぺぇこにゃんにゃんにゃんにゃんにゃんにゃんぺぇこぺぇこぺぇこにゃんにゃんぺぇこにゃんにゃんにゃんにゃんにゃんにゃんにゃんぺぇこぺぇこにゃんにゃんぺぇこぺぇこぺぇこぺぇこにゃんぺぇこぺぇこぺぇこぺぇこぺぇこぺぇこにゃんぺぇこにゃんぺぇこにゃんぺぇこぺぇこぺぇこぺぇこにゃんぺぇこぺぇこぺぇこぺぇこにゃんにゃんぺぇこぺぇこぺぇこにゃんぺぇこにゃんにゃんぺぇこぺぇこぺぇこにゃんにゃんにゃんにゃんぺぇこぺぇこぺぇこぺぇこぺぇこぺぇこぺぇこにゃんぺぇこぺぇこぺぇこにゃんぺぇこぺぇこぺぇこぺぇこぺぇこぺぇこにゃんにゃんぺぇこぺぇこにゃんぺぇこぺぇこにゃんにゃんぺぇこにゃんにゃんぺぇこぺぇこふぅーんふぅーんぺぇこふぅーんふぅー