Go to Qiita Advent Calendar 2024 Top
LoginSignup
0
0

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?

More than 5 years have passed since last update.

@yosgspec(YOS G-spec)

今更でもズンドコキヨシ (js/VB/HSP/Lisp/Excel)

Last updated at Posted at 2016-11-06

元ネタ
まとめ
時期遅れって言えないレベルですが、今更マイブームになっているので数種類実装してみました。
レギュレーションとしてズンズンズンズンズンドコは無しにしています。

文字列比較 js/VB

JavaScript

kiyoshi.js
console.log(kiyoshi());

function kiyoshi(){
	const zundoko=["ズン","ドコ"];
	const exit_kiyoshi="キ・ヨ・シ!"
	const zdchk="00001";
	var rec="";
	for(;;){
		var zd=Math.floor(Math.random()*zundoko.length);
		process.stdout.write(zundoko[zd]);
		rec+=zd;
		if(zdchk[0]==rec.slice(-(zdchk.length+1))[0] && zdchk==(rec).slice(-zdchk.length)){
			return exit_kiyoshi;
		}
	}
}

VB.net

kiyoshi.vb
Imports System
Imports System.Console
Imports Microsoft.VisualBasic

Module Program
	Sub Main()
		WriteLine(kiyoshi())
	End Sub

	Function kiyoshi() As String
		Dim rand As New Random()
		Dim zundoko As String()={"ズン","ドコ"}
		Dim exit_kiyoshi As String="キ・ヨ・シ!"
		Dim zdchk="00001"
		Dim rec As String=""
		Do
			Dim zd As Long=rand.Next(zundoko.Length)
			Write(zundoko(zd))
			rec &= zd
			If zdchk(0)<>Right(rec,zdchk.Length+1)(0) And zdchk=Right(rec,zdchk.Length) Then
				Return exit_kiyoshi
			End If
		Loop
	End Function
End Module

一番最初に書いた型だったけど値を配列に保持してないのでレギュ違反気味。
オンライン実行環境: JavaScript, VB.net

配列スライド js/VB

JavaScript

kiyoshi.js
console.log(kiyoshi());

function kiyoshi(){
    const zundoko=["ズン","ドコ"];
    const exit_kiyoshi="キ・ヨ・シ!"
    const zdchk=[0,0,0,0,1];
    var stk=new Array(zdchk.length);
    for(;;){
        var zd=Math.floor(Math.random()*zundoko.length);
        process.stdout.write(zundoko[zd]);
        stk.push(zundoko[zd])
        var stk0=stk.shift();
        if(stk0!=zundoko[zdchk[0]] && stk.join()==zdchk.map(val=>zundoko[val]).join()){
            return exit_kiyoshi;
        }
    }
}

###VB.net

kiyoshi.vb
Imports System
Imports System.Console
Imports System.Collections.Generic

Module Program
	Sub Main()
		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

pushしてshiftすれば1つ分スライドするよねっていう発想。
.Netの配列にはこの機能が備わっていないらしく、移植には少し苦労した。
そこでVBには初めてLinkedListを使用したけど、存在すら知らなかった。
インデックスは存在しないけど、順番は保持してくれて前後端の操作に優れているらしい。
配列というものに動的なものを含めるかどうかでレギュレーションは変わるなぁ。
オンライン実行環境: JavaScript, VB.net

ループぶん回し HSP

HSP

kiyoshi.hsp
#runtime "hsp3cl"
#uselib "msvcrt.dll"
randomize

mes kiyoshi()
#module Program
	#func printf "printf" str
	#defcfunc kiyoshi
		zundoko="ズン","ドコ"
		exit_kiyoshi="キ・ヨ・シ!"
		zdchk=0,0,0,0,1
		sdim stk,,length(zdchk)
		repeat
			zd=rnd(length(zundoko))
			stk0=stk(0)
			repeat length(stk)-1
				stk(cnt)=stk(cnt+1)
			loop
			printf zundoko(zd)
			stk(length(stk)-1)=zundoko(zd)
			if stk0!=zundoko(zdchk(0)){
				repeat length(stk)
					if stk(cnt)!=zundoko(zdchk(cnt)){
						break
					}
					if cnt=length(stk)-1{
						return exit_kiyoshi
					}
				loop
			}
		loop
#global

特殊な操作を一切行わずに原始的な手段だけで解決。
一番正解に近いのはコレだったりするのかもしれない。
あと地味にHSPでは先駆者っぽい。

#with CommonLisp

CommonLisp

kiyoshi.lisp
(defun kiyoshi()
	(setq *random-state* (make-random-state t))
	(let(
		(zundoko_list '("ズン" "ドコ"))
		(exit_kiyoshi "キ・ヨ・シ!")
		(zdchk '(0 0 0 0 1))
	)(let(
		(stc (mapcar #'(lambda(val)"") zdchk))
	)
		(defun fact(stc)
			(let(
				(zd(random(length zundoko_list)))
			)(let(
				(stczd (append (rest stc) `(,(elt zundoko_list zd))))
			)
				(format t (elt zundoko_list zd))
				(if (and
					(string/= (first stc) (first zundoko_list))
					(equal stczd (mapcar #'(lambda(val)(elt zundoko_list val)) zdchk))
				)
					exit_kiyoshi
					(fact stczd)
				)
			))
		)
		(fact stc)
	))
)
(format t (kiyoshi))

Lispでもズンドコしてみた。
再帰しまくって副作用をできるだけ出さないように書いてみた。
慣れない書き方をしたので結構疲れた。
Listの比較ができるequalは今回初めて知ったけど便利だ。
CommonLisp

おまけ:クラス/モジュール化 js/VB/HSP/CL

※最新版

JavaScript

nyaaan.js
const zundoko=require("./zundoko");

(function(){
	const zd=new zundoko();
	console.log(zd.kiyoshi());
	const nyaaan=new zundoko(["ぺぇこ","にゃん"],"ぺぇこぺぇこふぅーんふぅーんぺぇこふぅーんふぅー",[0,0,1,1,0,1,1]);
	console.log(nyaaan.kiyoshi());
})();
zundoko.js
module.exports=function zundoko(_zundoko_list,_exit_kiyoshi,_zdchk){
	var zundoko_list;
	var exit_kiyoshi;
	var zdchk;
	this.zundoko=function(){
		if(zundoko.length==zundoko.arguments.length){
			zundoko_list=_zundoko_list;
			exit_kiyoshi=_exit_kiyoshi;
			zdchk=_zdchk;
		}
		else{
			zundoko_list=["ズン","ドコ"];
			exit_kiyoshi="キ・ヨ・シ!";
			zdchk=[0,0,0,0,1]
		}
	}

	this.kiyoshi=function(){
		var stk=new Array(zdchk.length);
		for(;;){
			var zd=Math.floor(Math.random()*zundoko_list.length);
			process.stdout.write(zundoko_list[zd]);
			stk.push(zundoko_list[zd])
			var stk0=stk.shift();
			if(stk0!=zundoko_list[zdchk[0]] && stk.join()==zdchk.map(val=>zundoko_list[val]).join()){
				return exit_kiyoshi;
			}
		}
	}
	return this.zundoko();
}

VB.net

nyaaan.vb
Imports System
Imports System.Console
Imports zundoko

Public Module Program
	Sub Main()
		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
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()
	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

HSP

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

newmod zd,zundoko
mes kiyoshi(zd)

newmod nyaaan,zundoko
words="ぺぇこ","にゃん"
fin="ぺぇこぺぇこふぅーんふぅーんぺぇこふぅーんふぅー"
ptn=0,0,1,1,0,1,1
set nyaaan,words,fin,ptn
mes kiyoshi(nyaaan)
zundoko.as
#uselib "msvcrt.dll"
randomize

#module zundoko zundoko_list,exit_kiyoshi,zdchk
	#func printf "printf" str

	#modinit
		zundoko_list="ズン","ドコ"
		exit_kiyoshi="キ・ヨ・シ!"
		zdchk=0,0,0,0,1
	return

	#modfunc set array _zundoko_list,str _exit_kiyoshi,array _zdchk
		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
	return

	#modcfunc kiyoshi
		sdim stk,,length(zdchk)
		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)

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

CommonLisp

nyaaan.lisp
(load "zundoko")
(defparameter zd (make-instance 'zundoko))
(format t "~a~%" (kiyoshi zd))

(defparameter nyaaan (make-instance 'zundoko :words '("ぺぇこ" "にゃん") :fin "ぺぇこぺぇこふぅーんふぅーんぺぇこふぅーんふぅー" :ptn '(0 0 1 1 0 1 1)))
(format t "~a~%" (kiyoshi nyaaan))
zundoko.lisp
(defun kiyoshi()
	(setq *random-state* (make-random-state t))
	(let(
		(zundoko_list '("ズン" "ドコ"))
		(exit_kiyoshi "キ・ヨ・シ!")
		(zdchk '(0 0 0 0 1))
	)(let(
		(stc (mapcar #'(lambda(val)"") zdchk))
	)
		(defun fact(stc)
			(let(
				(zd(random(length zundoko_list)))
			)(let(
				(stczd (append (rest stc) `(,(elt zundoko_list zd))))
			)
				(format t (elt zundoko_list zd))
				(if (and
					(string/= (first stc) (first zundoko_list))
					(equal stczd (mapcar #'(lambda(val)(elt zundoko_list val)) zdchk))
				)
					exit_kiyoshi
					(fact stczd)
				)
			))
		)
		(fact stc)
	))
)
(format t (kiyoshi))
コンソール出力
ズンドコドコズンズンドコドコドコズンドコドコズンズンズンドコズンズンズンドコドコドコドコドコドコドコズンズンズンズンズンドコズンドコドコズンドコドコドコズンドコドコドコドコズンズンズンドコズンズンズンドコズンズンドコズンドコズンドコズンドコドコズンドコズンドコズンズンズンドコドコドコドコドコドコドコドコドコズンズンズンズンドコキ・ヨ・シ!
にゃんにゃんにゃんぺぇこにゃんにゃんにゃんにゃんにゃんにゃんぺぇこぺぇこぺぇこにゃんにゃんにゃんぺぇこにゃんにゃんぺぇこぺぇこにゃんにゃんにゃんぺぇこぺぇこにゃんにゃんぺぇこぺぇこにゃんにゃんぺぇこにゃんにゃんぺぇこぺぇこふぅーんふぅーんぺぇこふぅーんふぅー

上記のプログラムをそのままクラス/モジュール化。
使用方法は次の通り。

js
const zundoko=require("zundoko");
var hoge=new zundoko([ズンドコパターン:配列], フィニッシュ台詞, [マッチパターン:int配列]);
console.log(hoge.kiyoshi());
VB
Dim hoge As New zundoko([ズンドコパターン:配列], フィニッシュ台詞, [マッチパターン:int配列])
Console.WriteLine(hoge.kiyoshi())
HSP
include "zundoko.as"
newmod hoge,zundoko
set hoge,[ズンドコパターン:配列], フィニッシュ台詞, [マッチパターン:int配列]
//setしなければ通常のズンドコキヨシ
mes kiyoshi(hoge)
CL
(load "zundoko")
(defparameter hoge (make-instance 'zundoko :words [ズンドコパターン:リスト] :fin フィニッシュ台詞 :ptn [マッチパターン:intリスト]))
(format t "~a~%" (kiyoshi hoge))

クラス/モジュールファイルを同じフォルダにおいてこのようにすれば、好きなワードやパターンでズンドコ可能。
オンライン実行環境: JavaScript, VB.net, CommonLisp

Excel

excelkiyoshi.png
kitoshigs.png

EXCEL
=IFERROR(
	IF(AND(
		"ズン"=INDIRECT(ADDRESS(ROW()-5,COLUMN())),
		"ズン"=INDIRECT(ADDRESS(ROW()-4,COLUMN())),
		"ズン"=INDIRECT(ADDRESS(ROW()-3,COLUMN())),
		"ズン"=INDIRECT(ADDRESS(ROW()-2,COLUMN())),
		"ドコ"=INDIRECT(ADDRESS(ROW()-1,COLUMN()))
	),
		IF(
			ISERROR(IF("ズン"<>INDIRECT(ADDRESS(ROW()-6,COLUMN())),
				NA(),
				0
			)),
			"キ・ヨ・シ!",
			NA()
		),
		IF(NOT(ISERROR(MATCH(
			"キ・ヨ・シ!",
			INDIRECT(
				ADDRESS(1,COLUMN())&":"&
				ADDRESS(ROW()-1,COLUMN())
			),
			0
		))),
			"",
			NA()
		)
	),
	IF(RANDBETWEEN(0,1)=0,
		"ズン",
		"ドコ"
	)
)

一セルに情熱を。
2番煎じですけど作成。
好きなセルに上記を貼り付けて上下に適当にズザーすれば使用できます。
GoogleSpreadでも動いたのでリンク置いときます。

実行環境

JavaScript: node v4.3.2
VB.net: vbc 14.0.1055
HSP 3.32
CommonLisp: CLISP 2.49, SBCL 1.2.7
MS Excel 2007
及び、Rextester

0
0
0

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
Sign upLogin
0
0

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?