概要
- 自作クラスでPPAPテスト(js/VB/HSP/Lisp)の続き。
- 標準出力にコールバック関数を投げられたら色々と汎用性上がるんじゃない?
- どうせならjsはsetTimeoutも使いたいよね。
- Promiseが入った関数も投げられるようにしよう。
- ついでに.NetのTaskも対応しよう。
- 2016/11/10: TypeScript,C#追加。C#,HSP,TypeScriptがタグ枠よりあふれ。
- 2016/11/13: D言語追加。
- 2016/11/17: eval的にコールバック関数を解決したHSP mist版を作成。
また、生HSP版の方もラベルを投げることでコールバック対応化。
それに伴い旧ソース削除。 - 2016/11/30: JavaScriptにGenerator投入
- 2016/12/08: C++追加。
- 2016/12/30: Python追加。
メイン部
JavaScript/ppap.js
const zundoko=require("./zundoko");
(function(){
const zd=new zundoko();
console.log(zd.kiyoshi());
const ppap=new zundoko(
["\n","ペン","アッポー","パイナッポー","ペン!"],
"\nペンパイナッポーアッポーペン! ピコ!",
[0,1,3,2,4],
true,
(no,word)=>new Promise(
resolve=>setTimeout(()=>{
process.stdout.write(word);
resolve();
},[0,200,500,800,200][no])
)
);
ppap.kiyoshiP()
.then(value=>console.log(value));
})();
TypeScript/ppapT.ts
import {zundoko} from "./zundokoT";
(async function():Promise<void>{
const zd:any=new zundoko();
console.log(zd.kiyoshi());
const ppap:any=new zundoko(
["\n","ペン","アッポー","パイナッポー","ペン!"],
"\nペンパイナッポーアッポーペン! ピコ!",
[0,1,3,2,4],
true,
(no,word)=>new Promise(
resolve=>setTimeout(()=>{
process.stdout.write(word);
resolve();
},[0,200,500,800,200][no])
)
);
console.log(await ppap.kiyoshiP());
})();
VB.net/ppap.vb
Imports System
Imports System.Console
Imports System.Threading.Thread
Imports System.Threading.Tasks
Imports zundoko
Module Program
Sub Main()
Dim zd As New zundoko()
WriteLine(zd.kiyoshi())
Dim ppap As New zundoko(
{vbLf,"ペン","アッポー","パイナッポー","ペン!"},
vbLf & "ペンパイナッポーアッポーペン! ピコ!",
{0,1,3,2,4},
True,
Sub(no,word)
Sleep({0,200,500,800,200}(no))
Write(word)
End Sub
)
WriteLine(ppap.kiyoshi())
Dim ppapt As New zundoko(
{vbLf,"ペン","アッポー","パイナッポー","ペン!"},
vbLf & "ペンパイナッポーアッポーペン! ピコ!",
{0,1,3,2,4},
True,
Function(no,word) As Task
Return Task.Delay(
{0,200,500,800,200}(no)
).ContinueWith(
Function()Task.Run(Sub()Write(word))
)
End Function
)
WriteLine(ppapt.kiyoshiT().Result)
End Sub
End Module
C#/ppap.cs
using System;
using System.Threading;
using System.Threading.Tasks;
class Program{
static void Main(){
zundoko zd=new zundoko();
Console.WriteLine(zd.kiyoshi());
zundoko ppap=new zundoko(
new string[]{"\n","ペン","アッポー","パイナッポー","ペン!"},
"\nペンパイナッポーアッポーペン! ピコ!",
new int[]{0,1,3,2,4},
true,
(no,word)=>{
Thread.Sleep(new int[]{0,200,500,800,200}[no]);
Console.Write(word);
});
Console.WriteLine(ppap.kiyoshi());
zundoko ppapt=new zundoko(
new string[]{"\n","ペン","アッポー","パイナッポー","ペン!"},
"\nペンパイナッポーアッポーペン! ピコ!",
new int[]{0,1,3,2,4},
true,
(no,word)=>{
return Task.Delay(new int[]{0,200,500,800,200}[no])
.ContinueWith(
value=>Task.Run(()=>Console.Write(word))
);
}
);
Console.WriteLine(ppapt.kiyoshiT().Result);
}
}
HSP/ppapL.hsp
#runtime "hsp3cl"
#include "zundokoL.as"
#module Program
#uselib "msvcrt"
#func printf "printf" str
#deffunc main
new_zundoko zd
mes kiyoshi(zd)
words="\n","ペン","アッポー","パイナッポー","ペン!"
fin="\nペンパイナッポーアッポーペン! ピコ!"
ptn=0,1,3,2,4
infunc=*lambda
if 0 {
*lambda
infunc_args no,word
w=0,200,500,800,200
wait w(no)/10
printf word
return
}
new_zundoko ppap,words,fin,ptn,1,infunc
mes kiyoshi(ppap)
return
#global
main
HSPmist/ppapM.hsp
#runtime "hsp3cl"
#include "zundokoM.as"
#module Program
#deffunc main
new_zundoko zd
mes kiyoshi(zd)
words="\n","ペン","アッポー","パイナッポー","ペン!"
fin="\nペンパイナッポーアッポーペン! ピコ!"
ptn=0,1,3,2,4
new_zundoko ppap,words,fin,ptn,1,{"
#deffunc infunc int no,str _word
w=0,200,500,800,200
wait w(no)/10
word=_word
repeat strlen(word)
putchar peek(word,cnt)
loop
return
"}
mes kiyoshi(ppap)
return
#global
main
CommonLisp/ppap.lisp
(load "zundoko")
(defparameter zd (make-instance 'zundoko))
(format t "~a~%" (kiyoshi zd))
(defparameter ppap (make-instance 'zundoko
:words '("~%" "ペン" "アッポー" "パイナッポー" "ペン!")
:fin "ペンパイナッポーアッポーペン! ピコ!"
:ptn '(0 2 1 3 2)
:dbl t
:infunc #'(lambda(no word)
(sleep (elt '(0 0.2 0.5 0.8 0.2) no))
(format t word)
)
))
(format t "~%~a~%" (kiyoshi ppap))
C++/ppap.cpp
#include <iostream>
#include <thread>
#include "zundoko.cpp"
void main(){
using namespace std;
zundoko zd;
cout<<zd.kiyoshi()<<endl;
zundoko ppap(
{"\n","ペン","アッポー","パイナッポー","ペン!"},
"\nペンパイナッポーアッポーペン! ピコ!",
{0,1,3,2,4},
false,[](int no,string word){
this_thread::sleep_for(chrono::milliseconds([]()->vector<int>{return {0,200,500,800,200};}()[no]));
cout<<word<<flush;
}
);
cout<<ppap.kiyoshi()<<endl;
}
D言語/ppap.d
import std.stdio;
import zundoko;
import core.thread;
void main(){
auto zd=new zundoko();
writeln(zd.kiyoshi());
auto ppap=new zundoko(
["\n","ペン","アッポー","パイナッポー","ペン!"],
"\n\nペンパイナッポーアッポーペン！ ピコ！",
[0,1,3,2,4],
false,
delegate(no,word){
Thread.sleep(dur!"msecs"([0,200,500,800,200][no]));
write(word).flush();
}
);
writeln(ppap.kiyoshi());
}
Python/ppap.py
import time
import zundoko
if __name__=="__main__":
zd=zundoko.zundoko()
print(zd.kiyoshi())
def infunc(no,word):
time.sleep(list([0,0.2,0.5,0.8,0.2])[no])
print(word,flush=True,end="")
ppap=zundoko.zundoko(
["\n","ペン","アッポー","パイナッポー","ペン!"],
"\n\nペンパイナッポーアッポーペン！ ピコ！",
[0,1,3,2,4],
False,
infunc
)
print(ppap.kiyoshi())
zundoko Class & kiyoshi Function
JavaScript/zundoko.js
"use strict";
module.exports=(function(){
const
words=Symbol(),
fin=Symbol(),
ptn=Symbol(),
dbl=Symbol(),
infunc=Symbol(),
stk=Symbol();
function zundoko(
_words=["ズン","ドコ"],
_fin="キ・ヨ・シ!",
_ptn=[0,0,0,0,1],
_dbl=false,
_infunc=(no,word)=>process.stdout.write(word)
){
this[words]=_words;
this[fin]=_fin;
this[ptn]=_ptn;
this[dbl]=_dbl;
this[infunc]=_infunc;
this[stk]=new Array(this[ptn].length);
}
zundoko.prototype.kiyoshi=function(){
for(;;){
let zd=Math.floor(Math.random()*this[words].length);
this[infunc](zd,this[words][zd]);
this[stk].push(this[words][zd]);
let stk0=this[stk].shift();
if((this[dbl]?true:stk0!=this[words][this[ptn][0]]) && this[stk].join()==this[ptn].map(val=>this[words][val]).join()){
return this[fin];
}
}
};
zundoko.prototype.kiyoshiP=function(){
return new Promise(resolve=>{
const g=(function*(){
for(;;){
let zd=Math.floor(Math.random()*Me[words].length);
yield (Me[infunc](zd,Me[words][zd])).then(()=>g.next());
Me[stk].push(Me[words][zd]);
let stk0=Me[stk].shift();
if((Me[dbl]?true:stk0!=Me[words][Me[ptn][0]]) && Me[stk].join()==Me[ptn].map(val=>Me[words][val]).join()){
return resolve(Me[fin]);
}
}
})();
var Me=this;
g.next();
});
};
return zundoko;
})();
TypeScript/zundokoT.ts
export class zundoko{
private words:string[];
private fin:string;
private ptn:number[];
private dbl:boolean;
private infunc:(number,string)=>any;
private stk:string[];
constructor(
words:string[]=["ズン","ドコ"],
fin:string="キ・ヨ・シ!",
ptn:number[]=[0,0,0,0,1],
dbl:boolean=false,
infunc:(number,string)=>any=(no,word)=>process.stdout.write(word)
){
this.words=words;
this.fin=fin;
this.ptn=ptn;
this.dbl=dbl;
this.infunc=infunc;
this.stk=new Array(ptn.length);
}
kiyoshi():string{
for(;;){
let zd:number=Math.floor(Math.random()*this.words.length);
this.infunc(zd,this.words[zd]);
this.stk.push(this.words[zd]);
let stk0:string=this.stk.shift();
if((this.dbl?true:stk0!=this.words[this.ptn[0]]) && this.stk.join()==this.ptn.map(val=>this.words[val]).join()){
return this.fin;
}
}
}
async kiyoshiP():Promise<string>{
for(;;){
let zd:number=Math.floor(Math.random()*this.words.length);
await this.infunc(zd,this.words[zd]);
this.stk.push(this.words[zd]);
let stk0:string=this.stk.shift();
if((this.dbl?true:stk0!=this.words[this.ptn[0]]) && this.stk.join()==this.ptn.map(val=>this.words[val]).join()){
return this.fin;
}
}
}
};
VB.net/zundoko.vb
Option Strict On
Imports System
Imports System.Console
Imports System.Collections.Generic
Imports System.Threading.Tasks
Class zundoko
Dim rand As New Random()
Dim words As String()
Dim fin As String
Dim ptn As Integer()
Dim dbl As Boolean
Dim infunc As Action(Of Integer,String)
Dim intask As Func(Of Integer,String,Task)
Dim stk As New LinkedList(Of String)()
Dim setStk As Action=Sub()Me.stk=New LinkedList(Of String)(New String(ptn.Length-1){})
Sub New(Optional words As String()=Nothing,
Optional fin As String="キ・ヨ・シ!",
Optional ptn As Integer()=Nothing,
Optional dbl As Boolean=False
)
Me.words=if(IsNothing(words),{"ズン","ドコ"},words)
Me.fin=fin
Me.ptn=if(IsNothing(ptn),{0,0,0,0,1},ptn)
Me.dbl=dbl
Me.infunc=Sub(no,word)Write(word)
setStk()
End Sub
Sub New(words As String(),fin As String,ptn As Integer(),dbl As Boolean,infunc As Action(Of Integer,String))
Me.words=words
Me.fin=fin
Me.ptn=ptn
Me.dbl=dbl
Me.infunc=infunc
setStk()
End Sub
Sub New(words As String(),fin As String,ptn As Integer(),dbl As Boolean,intask As Func(Of Integer,String,Task))
Me.words=words
Me.fin=fin
Me.ptn=ptn
Me.dbl=dbl
Me.intask=intask
setStk()
End Sub
Function kiyoshi() As String
Do
Dim zd As Integer=rand.Next(words.Length)
infunc(zd,words(zd))
stk.AddLast(words(zd))
Dim stk0 As String=stk.First.Value
stk.RemoveFirst()
If if(dbl,True,stk0<>words(ptn(0))) And String.Join("",stk)=String.Join("",Array.ConvertAll(ptn,Function(val) words(val))) Then
Return fin
End If
Loop
End Function
Async Function kiyoshiT() As Task(Of String)
Do
Dim zd As Integer=rand.Next(words.Length)
Await intask(zd,words(zd))
stk.AddLast(words(zd))
Dim stk0 As String=stk.First.Value
stk.RemoveFirst()
If if(dbl,True,stk0<>words(ptn(0))) And String.Join("",stk)=String.Join("",Array.ConvertAll(ptn,Function(val) words(val))) Then
Return fin
End If
Loop
End Function
End Class
C#/zundoko.cs
using System;
using System.Collections.Generic;
using System.Threading.Tasks;
class zundoko{
Random rand=new Random();
string[] words;
string fin;
int[] ptn;
bool dbl;
Action<int,string> infunc ;
Func<int,string,Task> intask ;
LinkedList<string> stk=new LinkedList<string>();
void setStk(){
stk=new LinkedList<string>(new string[ptn.Length]);
}
public zundoko(
string[] words=null,
string fin="キ・ヨ・シ!",
int[] ptn=null,
bool dbl=false
){
this.words=words==null?(new string[]{"ズン","ドコ"}):(string[])words;
this.fin=fin;
this.ptn=ptn==null?new int[]{0,0,0,0,1}:(int[])ptn;
this.dbl=dbl;
this.infunc=(no,word)=>Console.Write(word);
setStk();
}
public zundoko(string[] words,string fin,int[] ptn,bool dbl,Action<int,string> infunc){
this.words=words;
this.fin=fin;
this.ptn=ptn;
this.dbl=dbl;
this.infunc=infunc;
setStk();
}
public zundoko(string[] words,string fin,int[] ptn,bool dbl,Func<int,string,Task> intask){
this.words=words;
this.fin=fin;
this.ptn=ptn;
this.dbl=dbl;
this.intask=intask;
setStk();
}
public string kiyoshi(){
for(;;){
int zd=rand.Next(words.Length);
infunc(zd,words[zd]);
stk.AddLast(words[zd]);
string stk0=stk.First.Value;
stk.RemoveFirst();
if((dbl?true:stk0!=words[ptn[0]]) && string.Join("",stk)==string.Join("",Array.ConvertAll(ptn,val=>words[val]))){
return fin;
}
}
}
public async Task<string> kiyoshiT(){
for(;;){
int zd =rand.Next(words.Length);
await intask(zd,words[zd]);
stk.AddLast(words[zd]);
string stk0=stk.First.Value;
stk.RemoveFirst();
if((dbl?true:stk0!=words[ptn[0]]) && string.Join("",stk)==string.Join("",Array.ConvertAll(ptn,val=>words[val]))){
return fin;
}
}
}
}
HSP/zundokoL.as
randomize
zundoko_default_load
#module zundoko_default
#uselib "msvcrt"
#func printf "printf" str
#deffunc zundoko_default_load
words="ズン","ドコ"
fin="キ・ヨ・シ!"
ptn=0,0,0,0,1
dbl=0
infunc=*infunc_default_infunc
return
*infunc_default_infunc
infunc_args no,word
printf word
return
#global
#module zundoko index,words,fin,ptn,dbl,infunc
#define global new_zundoko(%1, \
%2=words@zundoko_default, \
%3=fin@zundoko_default, \
%4=ptn@zundoko_default, \
%5=dbl@zundoko_default, \
%6=infunc@zundoko_default \
) newmod %1,zundoko,%2,%3,%4,%5,%6
zundoko_length=0
#modinit array _words,str _fin,array _ptn,int _dbl,var _infunc
sdim words,,length(_words)
repeat length(_words)
words(cnt)=_words(cnt)
loop
fin=_fin
sdim ptn,,length(_ptn)
repeat length(_ptn)
ptn(cnt)=_ptn(cnt)
loop
dbl=_dbl
infunc=_infunc
index=zundoko_length
zundoko_length++
sdim stk,,length(ptn)
return
#modcfunc kiyoshi
repeat
zd=rnd(length(words))
no=zd
word=words(zd)
gosub infunc
stk0=stk(0)
repeat length(stk)-1
stk(cnt)=stk(cnt+1)
loop
stk(length(stk)-1)=words(zd)
double_check=stk0!=words(ptn(0))
if dbl:double_check=1
if double_check {
foreach stk
if stk(cnt)!=words(ptn(cnt)){
break
}
if cnt=length(stk)-1{
return fin
}
loop
}
loop
#deffunc infunc_args var _no, var _word
_no=int(no)
_word=str(word)
return
#global
HSPmist/zundokoM.as
#include "mist.hsp"
#uselib "msvcrt"
#func putchar "putchar" int
putchar 8
mstOpenHspLib
mstCaptDll
randomize
zundoko_default_load
#module zundoko_default
#deffunc zundoko_default_load
words="ズン","ドコ"
fin="キ・ヨ・シ!"
ptn=0,0,0,0,1
dbl=0
infunc={"
#deffunc infunc int no,str _word
word=_word
repeat strlen(word)
putchar peek(word,cnt)
loop
return
"}
return
#global
#module zundoko index,words,fin,ptn,dbl,infunc
#define global new_zundoko(%1, \
%2=words@zundoko_default, \
%3=fin@zundoko_default, \
%4=ptn@zundoko_default, \
%5=dbl@zundoko_default, \
%6=infunc@zundoko_default \
) newmod %1,zundoko,%2,%3,%4,%5,%6
zundoko_length=0
#modinit array _words,str _fin,array _ptn,int _dbl,str _infunc
sdim words,,length(_words)
repeat length(_words)
words(cnt)=_words(cnt)
loop
fin=_fin
sdim ptn,,length(_ptn)
repeat length(_ptn)
ptn(cnt)=_ptn(cnt)
loop
dbl=_dbl
infunc=_infunc
index=zundoko_length
zundoko_length++
sdim stk,,length(ptn)
return
#modcfunc kiyoshi
repeat
zd=rnd(length(words))
mstCompile infunc
mstCall "infunc",zd,words(zd)
stk0=stk(0)
repeat length(stk)-1
stk(cnt)=stk(cnt+1)
loop
stk(length(stk)-1)=words(zd)
double_check=stk0!=words(ptn(0))
if dbl:double_check=1
if double_check {
foreach stk
if stk(cnt)!=words(ptn(cnt)){
break
}
if cnt=length(stk)-1{
return fin
}
loop
}
loop
#global
CommonLisp/zundoko.lisp
(defclass zundoko()(
(words
:initarg :words
:initform '("ズン" "ドコ")
)
(fin
:initarg :fin
:initform "キ・ヨ・シ!"
)
(ptn
:initarg :ptn
:initform '(0 0 0 0 1)
)
(dbl
:initarg :dbl
:initform nil
)
(infunc
:initarg :infunc
:initform #'(lambda(no word)(format t word))
)
))
(defmethod kiyoshi((me zundoko))
(let(
(*random-state* (make-random-state t))
(words (slot-value me 'words))
(fin (slot-value me 'fin))
(ptn (slot-value me 'ptn))
(dbl (slot-value me 'dbl))
(infunc (slot-value me 'infunc))
)(let(
(stk (mapcar #'(lambda(val)"") ptn))
)
(defun fact(stk)
(let(
(zd(random(length words)))
)(let(
(stkzd (append (rest stk) `(,(elt words zd))))
)
(funcall infunc zd (elt words zd))
(if (and
(if dbl t (string/= (first stk) (first words)))
(equal stkzd (mapcar #'(lambda(val)(elt words val)) ptn))
)
fin
(fact stkzd)
)
))
)
(fact stk)
))
)
C++/zundoko.cpp
#include <iostream>
#include <string>
#include <vector>
#include <deque>
#include <functional>
#include <random>
class zundoko{
private:
std::random_device rnd;
std::uniform_int_distribution<int> words_range;
std::vector<std::string> words;
std::string fin;
std::vector<int> ptn;
bool dbl;
std::function<void(int,std::string)> infunc;
std::deque<std::string> stk;
public:
zundoko(
std::vector<std::string> words={"ズン","ドコ"},
std::string fin="キ・ヨ・シ!",
std::vector<int> ptn={0,0,0,0,1},
bool dbl=false,
std::function<void(int,std::string)> infunc=[](int no,std::string word){std::cout<<word<<std::flush;}
){
this->words=words;
this->fin=fin;
this->ptn=ptn;
this->dbl=dbl;
this->infunc=infunc;
this->stk.resize(ptn.size());
std::uniform_int_distribution<int> words_range(0,words.size()-1);
this->words_range=words_range;
}
std::string kiyoshi(){
for(;;){
int zd=words_range(rnd);
infunc(zd,words[zd]);
std::string stk0=stk.front();
stk.pop_front();
stk.push_back(words[zd]);
std::deque<std::string> word_ptn;
for(int i=0;i<ptn.size();i++){
word_ptn.push_back(words[ptn[i]]);
}
if(dbl?true:stk0!=stk.front() && stk==word_ptn){
return fin;
}
}
}
};
D言語/zundoko.d
module zundoko;
import std.stdio;
import std.string;
import std.array;
import std.random;
import std.conv;
import std.algorithm;
import std.windows.charset;
static public class zundoko{
private:
string[] words;
string fin;
int[] ptn;
bool dbl;
void delegate(int,string) infunc;
string[] stk;
public:
this(
string[] words=["ズン","ドコ"],
string fin="キ・ヨ・シ!",
int[] ptn=[0,0,0,0,1],
bool dbl=false,
void delegate(int,string) infunc=null
){
this.words=array(map!(word=>to!string(toMBSz(word)))(words));
this.fin=to!string(toMBSz(fin));
this.ptn=ptn;
this.dbl=dbl;
this.infunc=infunc==null?(no,word)=>write(word):infunc;
this.stk=new string[ptn.length];
}
string kiyoshi(){
for(;;){
int zd=uniform(0,words.length);
infunc(zd,words[zd]);
string stk0=stk.front;
stk.popFront();
stk~=words[zd];
if(dbl?true:stk0!=stk.front && stk==array(map!(val=>words[val])(ptn))){
return fin;
}
}
}
}
Python/zundoko.py
import random
class zundoko:
def __init__(self,
words=["ズン","ドコ"],
fin="キ・ヨ・シ・!",
ptn=[0,0,0,0,1],
dbl=False,
infunc=(lambda no,word:print(word,end=""))
):
self.__words=words
self.__fin=fin
self.__ptn=ptn
self.__dbl=dbl
self.__infunc=infunc
self.__stk=[""]*len(ptn)
def kiyoshi(self):
while True:
zd=random.randint(0,len(self.__words)-1)
self.__infunc(zd,self.__words[zd])
self.__stk.append(self.__words[zd])
stk0=self.__stk.pop(0)
if True if self.__dbl else stk0!=self.__words[self.__ptn[0]] and self.__stk==list(map(lambda val:self.__words[val],self.__ptn)):
return self.__fin
あとがき
- JavaScriptのPromise周りはまだ色々問題あり。
kiyoshiPは標準出力以外の動作が同期しているので、内部では既に計算が完了してしまう。
kiyoshiP2は素直に再帰でループさせてみたけど、最後のresolveがゆくえふめいになって結局さらにコールバックしてる。
- Generator混ぜたことで改善。Promiseの中にGeneratorを閉じ込めてる。
- Simbolで疑似Privateにしてみる。WeakMapの方がより正確なPrivateとはいうけど、文字がうるさすぎる。
- TypeScript版作成。
Async/Awaitでシンプルかつ上記を改善したものに。
クラス変数がなんちゃってprivateでthisまみれ。 - VBはAsync/Await乗っけただけの手抜き (エラーで結構悩んでた)。
C#じゃなくてVBなのは単純な好み。- C#にも移植。
- C#のちょいちょいお堅いところが苦手だなぁと。
VBに比べて冗長さはないから書きやすい部分も多いけれど。
- HSPとCommonLispは非同期対応なし。
-
HSPはコールバック関数投げられないので呼ばれる関数を書く仕様。下記に置換。
なので関数使用・未使用版でファイル2種類。- HSP mistを用いて本格的にコールバック関数を採用したことと共に、defineで引数の省略を行えるように改良した。
- HSPのgosubなんて使ってことなかったけど、ラベルは変数に突っ込んで動かせるのであとで関数を呼ばせるのにかなり都合が良いことに気がついた。その代わり、引数を投げることも返り値を貰うこともできないけれど。そこは、それ用にゲッターセッターを作って対応かなぁ。
- HSPのコードシンタックスください。
- CommonLispのSleepは検索しても全然出てこなくて使えるか不安になった話。
- D言語はDelegateの代入周りがうまくいかなくて凄く悩んだ。
あとはmap!関数がうまく動かなくて自作したこと(改善済み)や、テンプレート関数がうまく動かなかったとか、Shift-JIS使ってもUTF8使っても文字化けしたりと色々あった。
それでも、D言語自体は結構書きやすそうな感じがするので日本語資料がもう少し増えてくれたら嬉しいなと思う。あとは文字コード対応何とかしてほしい。- D言語の標準出力はsleepすると改行するまで表示されないので、縦にPPAPしてみた。
- 色々改善。map!も標準のものを使用するように変更。本当は文字列にしたかったけど無理だった。
- 標準出力のフラッシュ処理を追加。これにより同じ行に出力しても即時表示されるようになる。
- D言語の標準出力はsleepすると改行するまで表示されないので、縦にPPAPしてみた。
- C++追加。コールバック何とか無事できて一安心。mapとかはないので諦めてforeach回す。
- using namespaceの仕様が解せない。クラスのスコープに適応できないって…
おかげでstdまみれに。 - 配列を変数に刺さないで使えるいい方法が欲しい。
- using namespaceの仕様が解せない。クラスのスコープに適応できないって…
- Python追加。Pythonのlambdaは適度に使う。
実行環境
Node.js:node v7.3.0
TypeScript: tsc 1.8.10
VB.net: vbc 14.0.1055
C#: csc 4.6.1055.0
HSP 3.32
CommonLisp: clisp 2.49, sbcl 1.2.7
C++: cl Version 18.00.40629 for x86
D言語: dmd v2.066.1
Python:Python 3.6.0