自作クラスでPPAPテスト(js/VB/HSP/Lisp)

続き: コールバックPPAPズンドコキヨシ(js/ts/VB/C#/HSP/Lisp)

概要

• 元ネタ
  Swift3でPPAPキヨシ
  PPAPテストをPHPで
  PPAPテストを Web Audio API で
• 作ったズンドコクラスの実動テストネタに丁度良かった。
• 先頭台詞の重複可否を設定可能に。

出力

コンソール

アッポー
ペン
ペンアッポー
ペンペンアッポーアッポーペン
ペンパイナッポーパイナッポーアッポーペンパイナッポーアッポーペンアッポー
ペンアッポーアッポーパイナッポーペン
ペンペンアッポーアッポー
ペン
ペン
ペンペン
ペンアッポーアッポーパイナッポー
ペン
ペンアッポーアッポーパイナッポー
ペン
ペンパイナッポーアッポーペン
ペンパイナッポーアッポーペン ピコ!

メイン部

JavaScript/ppap.js

const zundoko=require("./zundoko");
(function(){
	const ppap=new zundoko(["\nペン","アッポー","パイナッポー","ペン"],"\nペンパイナッポーアッポーペン ピコ!",[0,2,1,3],true);
	console.log(ppap.kiyoshi());
})();

VB.net/ppap.vb

Imports System
Imports System.Console
Imports zundoko
Module Program
	Sub Main()
		Dim ppap As New zundoko({vbLf & "ペン","アッポー","パイナッポー","ペン"},vbLf & "ペンパイナッポーアッポーペン ピコ!",{0,2,1,3},True)
		WriteLine(ppap.kiyoshi())
	End Sub
End Module

HSP/ppap.hsp

#runtime "hsp3cl"
#include "zundoko.as"

newmod ppap,zundoko
words="\nペン","アッポー","パイナッポー","ペン"
fin="\nペンパイナッポーアッポーペン ピコ!"
ptn=0,2,1,3
set_zd ppap,words,fin,ptn,1
mes kiyoshi(ppap)

CommonLisp/ppap.lisp

(load "zundoko")
(defparameter ppap (make-instance 'zundoko :words '("~%ペン" "アッポー" "パイナッポー" "ペン") :fin "ペンパイナッポーアッポーペン ピコ!" :ptn '(0 2 1 3) :dbl t))
(format t "~%~a~%" (kiyoshi ppap))

ズンドコクラス

JavaScript/zundoko.js

"use strict";

module.exports=function zundoko(_zundoko_list,_exit_kiyoshi,_zdchk,_dbl){
	var zundoko_list;
	var exit_kiyoshi;
	var zdchk;
	var dbl;
	var stk;

	var new_zundoko=function(args){
		if(zundoko.length==args.length){
			zundoko_list=_zundoko_list;
			exit_kiyoshi=_exit_kiyoshi;
			zdchk=_zdchk;
			dbl=_dbl;
		}
		else if(zundoko.length-1==args.length && _dbl==null){
			zundoko_list=_zundoko_list;
			exit_kiyoshi=_exit_kiyoshi;
			zdchk=_zdchk;
			dbl=false;
		}
		else{
			zundoko_list=["ズン","ドコ"];
			exit_kiyoshi="キ・ヨ・シ!";
			zdchk=[0,0,0,0,1]
			dbl=false;
		}
		stk=new Array(zdchk.length);
	}

	this.kiyoshi=function(){
		for(;;){
			let zd=Math.floor(Math.random()*zundoko_list.length);
			process.stdout.write(zundoko_list[zd]);
			stk.push(zundoko_list[zd])
			let stk0=stk.shift();
			if((dbl?true:stk0!=zundoko_list[zdchk[0]]) && stk.join()==zdchk.map(val=>zundoko_list[val]).join()){
				return exit_kiyoshi;
			}
		}
	}
	return new_zundoko(arguments);
}

VB.net/zundoko.vb

Imports System
Imports System.Console
Imports System.Collections.Generic
Class zundoko
	Dim rand As New Random()
	Dim zundoko_list As String()
	Dim exit_kiyoshi As String
	Dim zdchk As Integer()
	Dim dbl As Boolean
	Dim stk As New LinkedList(Of String)()
	Dim New2 As Action=Sub() Me.stk=New LinkedList(Of String)(New String(zdchk.Length-1){})

	Sub New(zundoko_list As String(),exit_kiyoshi As String,zdchk As Integer(),dbl As Boolean)
		Me.zundoko_list=zundoko_list.Clone
		Me.exit_kiyoshi=exit_kiyoshi
		Me.zdchk=zdchk.Clone
		Me.dbl=dbl
		New2()
	End Sub

	Sub New(zundoko_list As String(),exit_kiyoshi As String,zdchk As Integer())
		Me.zundoko_list=zundoko_list.Clone
		Me.exit_kiyoshi=exit_kiyoshi
		Me.zdchk=zdchk.Clone
		Me.dbl=False
		New2()
	End Sub

	Sub New()
		Me.zundoko_list={"ズン","ドコ"}.Clone
		Me.exit_kiyoshi="キ・ヨ・シ!"
		Me.zdchk={0,0,0,0,1}.Clone
		Me.dbl=False
		New2()
	End Sub

	Function kiyoshi() As String
		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 if(dbl,True,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

HSP/zundoko.as

#uselib "msvcrt.dll"
randomize
#module zundoko zundoko_list,exit_kiyoshi,zdchk,dbl
	#func printf "printf" str
	#modinit
		zundoko_list="ズン","ドコ"
		exit_kiyoshi="キ・ヨ・シ!"
		zdchk=0,0,0,0,1
		dbl=0
		sdim stk,,length(zdchk)
	return

	#modfunc set_zd array _zundoko_list,str _exit_kiyoshi,array _zdchk,int _dbl
		sdim zundoko_list,,length(_zundoko_list)
		repeat length(_zundoko_list)
			zundoko_list(cnt)=_zundoko_list(cnt)
		loop

		exit_kiyoshi=_exit_kiyoshi
		sdim zdchk,,length(_zdchk)
		repeat length(_zdchk)
				zdchk(cnt)=_zdchk(cnt)
		loop

		dbl=_dbl
		sdim stk,,length(zdchk)
	return

	#modcfunc kiyoshi
		repeat
			zd=rnd(length(zundoko_list))
			stk0=stk(0)
			repeat length(stk)-1
				stk(cnt)=stk(cnt+1)
			loop

			printf zundoko_list(zd)
			stk(length(stk)-1)=zundoko_list(zd)
			double_check=stk0!=zundoko_list(zdchk(0))
			if dbl:double_check=1
			if double_check {
				repeat length(stk)
					if stk(cnt)!=zundoko_list(zdchk(cnt)){
						break
					}
					if cnt=length(stk)-1{
						return exit_kiyoshi
					}
				loop
			}
		loop
#global

CommonLisp/zundoko.lisp

(defclass zundoko()(
	(zundoko_list
		:initarg :words
		:initform '("ズン" "ドコ")
	)
	(exit_kiyoshi
		:initarg :fin
		:initform "キ・ヨ・シ!"
	)
	(zdchk
		:initarg :ptn
		:initform '(0 0 0 0 1)
	)
	(dbl
		:initarg :dbl
		:initform nil
	)
))

(defmethod kiyoshi((me zundoko))
	(let(
		(*random-state* (make-random-state t))
		(zundoko_list (slot-value me 'zundoko_list))
		(exit_kiyoshi (slot-value me 'exit_kiyoshi))
		(zdchk (slot-value me 'zdchk))
		(dbl (slot-value me 'dbl))
	)(let(
		(stk (mapcar #'(lambda(val)"") zdchk))
	)
		(defun fact(stk)
			(let(
				(zd(random(length zundoko_list)))
			)(let(
				(stkzd (append (rest stk) `(,(elt zundoko_list zd))))
			)
				(format t (elt zundoko_list zd))
				(if (and
					(if dbl t (string/= (first stk) (first zundoko_list)))
					(equal stkzd (mapcar #'(lambda(val)(elt zundoko_list val)) zdchk))
				)
					exit_kiyoshi
					(fact stkzd)
				)
			))
		)
		(fact stk)
	))
)

実行環境

JavaScript: node v4.3.2
VB.net: vbc 14.0.1055
HSP 3.32
CommonLisp: CLISP 2.49, SBCL 1.2.7