Ook

[Mars Attacks]

                                Lo copipasteo tal y como me lo han enviado. Curioso.

Lo que hace el aburrimiento...

Sientes predileccion por el Brainfuck pero crees que es demasiado
legible? Lo tuyo es el Ook:

http://www.dangermouse.net/esoteric/ook.html

Código [Seleccionar] Expand



\\\\

Compilador de Ook en Forth.

Probado con gforth y pforth, creo que debe funcionar en cualquier

Forth que siga el standard ANS.

\\\\

-1 value testing?

1024 value /mem   0 value offset   0 value pmem   create mem /mem allot

: Ook.Ook.  pmem c@ 1+ pmem c!;   : Ook!Ook!  pmem c@ 1- pmem c!;

: Ook.Ook!  key pmem c!;          : Ook!Ook.  pmem c@ emit;

: Ook.Ook?  pmem 1+ to pmem;      : Ook?Ook.  pmem 1- to pmem;

create jmptab 13 cells allot  jmptab 13 cells erase

: pair: :noname;

:;pair postpone; rot 3 * rot + cells jmptab + !; immediate

1 value Ook.  2 value Ook!  3 value Ook?

0 0 pair: abort;pair

0 Ook. pair:  noop;pair

0 Ook! pair:  noop;pair

0 Ook? pair:  noop;pair

Ook. Ook. pair:  postpone Ook.Ook.  0 to offset;pair

Ook. Ook! pair:  postpone Ook.Ook!  0 to offset;pair

Ook. Ook? pair:  postpone Ook.Ook?  0 to offset;pair

Ook! Ook. pair:  postpone OOk!Ook.  0 to offset;pair

Ook! Ook! pair:  postpone Ook!Ook!  0 to offset;pair

Ook? Ook. pair:  postpone Ook?Ook.  0 to offset;pair

Ook? Ook! pair:  postpone repeat    0 to offset;pair

Ook! Ook? pair:

  postpone begin  postpone pmem postpone c@ postpone while

  0 to offset;pair

Ook? Ook? pair:  abort;pair

: inst create immediate ,

does>

  @ offset 3 * + to offset   offset cells jmptab + @ execute;

1 inst Ook.  2 inst Ook!  3 inst Ook?



: ookinit mem to pmem  mem /mem erase;

: ook: : postpone ookinit;

:;ook postpone;; immediate



testing? [if]

ook: hello

Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.

Ook. Ook. Ook. Ook. Ook! Ook? Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.

Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook? Ook! Ook! Ook? Ook! Ook? Ook.

Ook! Ook. Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.

Ook. Ook. Ook! Ook? Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook?

Ook! Ook! Ook? Ook! Ook? Ook. Ook. Ook. Ook! Ook. Ook. Ook. Ook. Ook. Ook. Ook.

Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook! Ook. Ook! Ook. Ook. Ook. Ook. Ook.

Ook. Ook. Ook! Ook. Ook. Ook? Ook. Ook? Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook.

Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook! Ook? Ook? Ook. Ook. Ook.

Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook? Ook! Ook! Ook? Ook! Ook? Ook. Ook! Ook.

Ook. Ook? Ook. Ook? Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.

Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook! Ook? Ook? Ook. Ook. Ook.

Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.

Ook. Ook? Ook! Ook! Ook? Ook! Ook? Ook. Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook.

Ook? Ook. Ook? Ook. Ook? Ook. Ook? Ook. Ook! Ook. Ook. Ook. Ook. Ook. Ook. Ook.

Ook! Ook. Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook.

Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook!

Ook! Ook. Ook. Ook? Ook. Ook? Ook. Ook. Ook! Ook. Ook! Ook? Ook! Ook! Ook? Ook!

Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.

Ook. Ook. Ook. Ook. Ook! Ook.
;ook

hello

[then]

                               

[Lessman]

...

[seryu]

                                ook ook                                

[vancorso]

                                Iba a decir exactamenter lo mismo que Lessman xDDDD

Ook. Okk!                                

[Mars Attacks]

                                ¿De quién habláis? No conozco a ese personaje.                                

[seryu]

                                QEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE?? no conoces al bibliotecario? lo tuyo si qe tiene peligro xDD

ook ook                                

[sés]

                                ÉL lo conoce -> :o













P.D.: ¡Oook, oook!