Stratos: Punto de Encuentro de Desarrolladores

¡Bienvenido a Stratos!

Acceder

Foros





Ook

Iniciado por Mars Attacks, 28 de Marzo de 2003, 08:11:55 PM

« anterior - próximo »

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


\\\\

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!                                
Soy indeciso... ¿o no?






Stratos es un servicio gratuito, cuyos costes se cubren en parte con la publicidad.
Por favor, desactiva el bloqueador de anuncios en esta web para ayudar a que siga adelante.
Muchísimas gracias.