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]
...
ook ook
Iba a decir exactamenter lo mismo que Lessman xDDDD
Ook. Okk!
¿De quién habláis? No conozco a ese personaje.
QEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE?? no conoces al bibliotecario? lo tuyo si qe tiene peligro xDD
ook ook
ÉL lo conoce -> :o
P.D.: ¡Oook, oook!