Dでつくるbrainfu*kのインタプリタ

brainf*ckの処理系はすでにいろんな人が作っているけど勉強になりそうだったので自分で書いてみた。

import std.stdio;
import std.getopt;
import core.stdc.stdio;
import std.file;
import std.conv;

const BUFFSIZE = 30000;

void main(string[] args)
{
    string filename = args[1];
    string code = readText(filename);
    size_t ptr = 0;
    size_t codeptr = 0;
    ubyte[] memory = new ubyte[BUFFSIZE];
    while(codeptr < code.length)
    {
        switch(code[codeptr])
        {
            case '+':
                memory[ptr]++;
                break;
            case '-':
                memory[ptr]--;
                break;
            case '>':
                ptr++;
                break;
            case '<':
                ptr--;
                break;
            case '.':
                putchar(memory[ptr]);
                break;
            case ',':
                int tmp = getchar();
                if(tmp == EOF) return;
                memory[ptr] = tmp.to!ubyte;
                break;
            case '[':
                if(memory[ptr] == 0)
                {
                    int loopnest = 1;
                    do
                    {
                        codeptr++;
                        if(code[codeptr] == '[') loopnest++;
                        if(code[codeptr] == ']') loopnest--;
                    }while(0 < loopnest);
                }
                break;
            case ']':
                if(memory[ptr] != 0)
                {
                    int loopnest = 1;
                    do
                    {
                        codeptr--;
                        if(code[codeptr] == '[') loopnest--;
                        if(code[codeptr] == ']') loopnest++;
                    }while(0 < loopnest);
                }
                break;
            default:
        }
        codeptr++;
    }
}

getchar/putcharは何で置き換えればいいんだろうか？

マンデルブロー集合を描かせて時間計測。

$ time ./kbfi mandelbrot.b
real    1m25.554s
user    1m25.464s
sys 0m0.044s

real    1m25.144s
user    1m25.104s
sys 0m0.004s

real    1m25.659s
user    1m25.640s
sys 0m0.000s

$ time bf mandelbrot.b
real    0m8.909s
user    0m8.888s
sys 0m0.012s

real    0m9.066s
user    0m9.048s
sys 0m0.004s

real    0m8.966s
user    0m8.952s
sys 0m0.008s

遅いのでこれから速くしていきたい。