Praktische KUH Beispielprogramm?

Question

Hat jemand geschrieben entweder ein langes oder kurzes Programm in KUH dass zeigt, was es tun kann? Sicher, ist die Sprache ein Witz; aber da es Turing abgeschlossen ist, hat vielleicht jemand eine höhere Programmiersprache geschrieben, die in COW übersetzt. Nach dem Schreiben ein kurzes, praktisches Programms, das zumindest gezeigt, was Sie auf dem Bildschirm eingegeben hat, würde man denken, dass jemand eine weit interessantere Anwendung in der Sprache geschrieben hat.

MoOMOOmoOMooMooOOOmOomoo

Answer 1

DDX erhöht weiter die Fähigkeiten von COW und wenn sie in EZ COW übersetzt, es wesentlich leichter zu lesen. Was folgt, ist ein EZ DDX KUH-Programm mit Kommentaren geschrieben gut eingestreut in den Code.

This is the first word.
N = M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
    M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
    M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
    M++M++M++P++
U = M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
    M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
    M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
    M++M++M++M++M++M++M++M++M++M++P++
M = M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
    M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
    M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
    M++M++P++
  = M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
    M++M++M++M++M++M++M++P++
= = M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
    M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
    M++M++M++M++M++M++M++M++M++M++M++P++
  = M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
    M++M++M++M++M++M++M++

Show the prompt.
P--P--P--P--P--
LOP
I/O
P++
END

Get and store the input.
INP
REG (or "wiz")
M=0
M++
S++

This is the second word.
D = M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
    M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
    M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++P++
I = M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
    M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
    M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++P++
V = M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
    M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
    M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
    M++M++M++M++M++M++M++M++M++M++M++P++
  = M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
    M++M++M++M++M++M++M++P++
= = M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
    M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
    M++M++M++M++M++M++M++M++M++M++M++P++
  = M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
    M++M++M++M++M++M++M++

Show the prompt.
P--P--P--P--P--
LOP
I/O
P++
END

Get the input and setup for calculation.
INP
S++
M--
WIZ

Display the results.

(this stomach is no longer needed)
S--
M=0

(string)
M++M++M++M++M++M++M++M++M++M++P++

M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
M++M++M++M++M++M++M++M++M++M++M++M++M++P++

M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
P++

M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
M++M++M++M++M++P++

M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
M++M++M++M++M++M++P++

M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
M++M++M++M++M++M++M++M++M++P++

M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
M++M++M++M++M++M++

P--P--P--P--P--P--

(print)
LOP
I/O
P++
END
S--
OUT
S++

(string)
M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
M++M++M++M++P++

M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++P++

M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++P++

M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
M++M++M++M++M++M++P++

M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
M++M++M++M++M++M++M++M++M++P++

M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++M++
M++M++M++M++M++M++

P--P--P--P--P--

(print)
LOP
I/O
P++
END
S++
OUT

Was folgt, ist ein einfacher Interpreter in Python geschrieben. Es kann die „divide.cow“ Datei nimmt oben aufgeführt und führen Sie es für Live-Interaktion mit dem Programm schnell genug. Anderes Beispiel KUH-Programme sind immer noch willkommen!

INS = ['moo', 'mOo', 'moO', 'mOO', 'Moo', 'MOo',
       'MoO', 'MOO', 'OOO', 'MMM', 'OOM', 'oom',
       'MMm', 'MmM', 'Oom', 'oOm',
       'OoM', 'oOM', 'ooo', 'mmm']

HLP = dict((s, i) for i, s in enumerate(INS))

import sys
import msvcrt

################################################################################

class COD:

    def __init__(self, code):
        for ins in code:
            assert 0 <= ins < len(INS)
        self.cod = code
        self.pos = 0

    def get(self):
        return self.cod[self.pos]

    def inc(self):
        self.pos += 1
        if self.pos == len(self.cod):
            sys.exit()

    def dec(self):
        self.pos -= 1
        assert self.pos >= 0

################################################################################

class MEM:

    def __init__(self):
        self.mem = {}
        self.pos = 0

    def get(self):
        if self.pos in self.mem:
            return self.mem[self.pos]
        return 0

    def set(self, value):
        if value:
            self.mem[self.pos] = value
        elif self.pos in self.mem:
            del self.mem[self.pos]

    def inc(self):
        self.pos += 1

    def dec (self):
        self.pos -= 1

################################################################################

class DDX:

    STOMACHS = 7

    def __init__(self):
        self.mem = [MEM() for stomach in range(self.STOMACHS)]
        self.pos = 0

    def __getattr__(self, name):
        return getattr(self.mem[self.pos], name)

    def ddx_prv(self):
        self.pos = (self.pos - 1 + self.STOMACHS) % self.STOMACHS

    def ddx_nxt(self):
        self.pos = (self.pos + 1) % self.STOMACHS

    def ddx_dec(self):
        for stomach in self.mem:
            stomach.dec()

    def ddx_inc(self):
        for stomach in self.mem:
            stomach.inc()

    def ddx_sub(self):
        for stomach in self.mem:
            stomach.set(stomach.get() - 1)

    def ddx_add(self):
        for stomach in self.mem:
            stomach.set(stomach.get() + 1)

    def ddx_nul(self):
        for stomach in self.mem:
            stomach.set(0)

    def ddx_reg(self, reg):
        if reg is None:
            return sum(map(MEM.get, self.mem))
        else:
            all_zero = True
            for stomach in self.mem:
                if stomach.get():
                    all_zero = False
                    break
            if all_zero:
                for stomach in self.mem:
                    stomach.set(reg)
            else:
                weighting = sum(map(MEM.get, self.mem))
                base, remainder = divmod(reg, weighting)
                for stomach in self.mem:
                    temp = stomach.get()
                    if temp < 0:
                        stomach.set(abs(temp) * remainder)
                    else:
                        stomach.set(temp * base)
            return None


################################################################################

def parse(string):
    index = 0
    code = []
    ins = string[index:index+3]
    while len(ins) == 3:
        if ins in INS:
            code.append(INS.index(ins))
            index += 3
        else:
            index += 1
        ins = string[index:index+3]
    return tuple(code)

DECODE = ['END', 'P--', 'P++', 'EXE', 'I/O', 'M--',
          'M++', 'LOP', 'M=0', 'REG', 'OUT', 'INP',
          'S--', 'S++', 'AP-', 'AP+',
          'AM-', 'AM+', 'A=0', 'WIZ']

def decode(code):
    for ins in code:
        print(INS[ins] + '\t' + DECODE[ins])
    print()

def engine(code):
    global REG
    REG = None
    mem = DDX()
    cod = COD(code)
    ins = cod.get()
    while True:
        ins = run(mem, cod, ins)

def run(mem, cod, ins):
    global REG
    # INS - 0 - moo
    if ins == 0:
        cod.dec()
        cod.dec()
        # INIT
        level = 1
        temp = cod.get()
        if temp == HLP['moo']:
            level += 1
        elif temp == HLP['MOO']:
            level -= 1
        while level:
            # LOOP
            cod.dec()
            temp = cod.get()
            if temp == HLP['moo']:
                level += 1
            elif temp == HLP['MOO']:
                level -= 1
        return HLP['MOO']
    # INS - 1 - mOo
    elif ins == 1:
        mem.dec()
        cod.inc()
        return cod.get()
    # INS - 2 - moO
    elif ins == 2:
        mem.inc()
        cod.inc()
        return cod.get()
    # INS - 3 - mOO
    elif ins == 3:
        temp = mem.get()
        assert temp != 3
        if 0 <= temp < len(INS):
            return run(mem, cod, temp)
        else:
            sys.exit()
    # INS - 4 - Moo
    elif ins == 4:
        temp = mem.get()
        if temp:
            msvcrt.putch(bytes([temp & 127]))
        else:
            char = get_char()
            mem.set(char & 127)
        cod.inc()
        return cod.get()
    # INS - 5 - MOo
    elif ins == 5:
        mem.set(mem.get() - 1)
        cod.inc()
        return cod.get()
    # INS - 6 - MoO
    elif ins == 6:
        mem.set(mem.get() + 1)
        cod.inc()
        return cod.get()
    # INS - 7 - MOO
    elif ins == 7:
        temp = mem.get()
        if temp:
            cod.inc()
            return cod.get()
        else:
            cod.inc()
            cod.inc()
            # INIT
            level = 1
            temp = cod.get()
            if temp == HLP['moo']:
                level -= 1
            elif temp == HLP['MOO']:
                level += 1
            while level:
                # LOOP
                cod.inc()
                temp = cod.get()
                if temp == HLP['moo']:
                    level -= 1
                elif temp == HLP['MOO']:
                    level += 1
            cod.inc()
            return cod.get()
    # INS - 8 - OOO
    elif ins == 8:
        mem.set(0)
        cod.inc()
        return cod.get()
    # INS - 9 - MMM
    elif ins == 9:
        if REG is None:
            REG = mem.get()
        else:
            mem.set(REG)
            REG = None
        cod.inc()
        return cod.get()
    # INS - 10 - OOM
    elif ins == 10:
        print_int(mem.get())
        cod.inc()
        return cod.get()
    # INS - 11 - oom
    elif ins == 11:
        mem.set(get_int())
        cod.inc()
        return cod.get()
    # INS - 12 - MMm
    elif ins == 12:
        mem.ddx_prv()
        cod.inc()
        return cod.get()
    # INS - 13 - MmM
    elif ins == 13:
        mem.ddx_nxt()
        cod.inc()
        return cod.get()
    # INS - 14 - Oom
    elif ins == 14:
        mem.ddx_dec()
        cod.inc()
        return cod.get()
    # INS - 15 - oOm
    elif ins == 15:
        mem.ddx_inc()
        cod.inc()
        return cod.get()
    # INS - 16 - OoM
    elif ins == 16:
        mem.ddx_sub()
        cod.inc()
        return cod.get()
    # INS - 17 - oOM
    elif ins == 17:
        mem.ddx_add()
        cod.inc()
        return cod.get()
    # INS - 18 - ooo
    elif ins == 18:
        mem.ddx_nul()
        cod.inc()
        return cod.get()
    # INS - 19 - mmm
    elif ins == 19:
        REG = mem.ddx_reg(REG)
        cod.inc()
        return cod.get()
    # ERROR
    else:
        raise Exception('Bad instruction!')

def print_int(number):
    for char in str(number):
        msvcrt.putch(bytes([ord(char) & 127]))
    msvcrt.putch(b' ')

def get_char():
    while msvcrt.kbhit():
        msvcrt.getch()
    func = False
    char = msvcrt.getch()[0]
    if char in (0x00, 0xE0):
        func = True
    while func:
        msvcrt.getch()
        func = False
        char = msvcrt.getch()[0]
        if char in (0x00, 0xE0):
            func = True
    return char if char != 13 else 10

def get_int():
    while msvcrt.kbhit():
        msvcrt.getch()
    buff = ''
    char = chr(msvcrt.getch()[0])
    while char != '\r' or not buff:
        if '0' <= char <= '9':
            msvcrt.putch(bytes([ord(char) & 127]))
            buff += char
        char = chr(msvcrt.getch()[0])
    sys.stdout.write('\n')
    return int(buff)

################################################################################

def main():
    path = input('Run File: ') + '.cow'
    code = parse(open(path).read())
    decode(code)
    engine(code)

################################################################################

if __name__ == '__main__':
    INS, DECODE = DECODE, INS
    try:
        main()
    except SystemExit:
        input()
    except:
        import traceback
        input(traceback.format_exc())