Best Toy/Esoteric Programing Languages

BrainFuck and lisp

ASM, C++, Perl, Python, PHP, Haskell, Fortran, D

Java
/thread

>>1
Oh U. I see what you did there. I hate you I hate you I hate you....

>>1
ONE WORD, THE FORCED READING OF SICP, THREAD OVER.

>>4
Yeah, don't you just hate it when people remind you that your programming language is completely worthless?

>>1 troll
>>4 counter troll
>>6 sucker

>>7
butthurt lispfag

>>8
How come everyone is so butthurt at our Lispy smugness lately? I'm seeing a lot more impotent rage directed my way this week.

>>9
They're clearly jealous of our suaveness, suave yoshi lisp.

>>1
More like Java, Haskell, etc. are Turing tarpits.

>>10
Don't worry about it :) If you don't want it any more, feel free to drop it into a charity book store.

Thanks for the thought :)

>>9
Good question. I have also noticed the idiots come in waves. I try to time it with school holidays, or pot harvest season, or welfare check mail day. I haven't found the predictable pattern yet.

>>13
I haven't seen a pattern; it seems like those trolls acting like Lisp is a real language are here all the time.

python

jar lisp interpreter.
=====
#define d define
#d a include
#a <stdio.h>
#a <string.h>
#a <ctype.h>
#d p char*
#d P ,(p)
#d T(E) !strcmp(E,"()")
#d U return
#d W while
#d X sbrk(199)
#d z atof
#d e isspace
#d D A(_)
#d E S(C(_))
#d B(y) p y(_)p _;{
#d G(y,V) B(y)p i;U sprintf(i=X,"%lf",z(E)V z(S(C(D)))),i;}

        p sbrk(),*S(),*j(),*O,*H;K,Y,M=14;double
      z();Q(_)p _;{int V=0;W(e(*_))_++;H=_;W(V|!(e
    (*H)|*H==')'||(*H=='('&&H-_)))V+=(*H=='(')-(*H==
      ')'),H++;U H-_;}B(C)U _++,Y=Q(_),_=strncpy(X,_,Y),_[
    Y]=0,_;}B(A)_++,_+=Q(_);W(e(*_))_++;U O=X,*O='(',strcpy(
  O+1,_),O;}B(Z)U _;}B(c)U C(E);}B(q)U A(E);}B(t)p i=E;U H=S(C
(D)),sprintf(O=X,T(H                 )?"(%s)":"(%s %s",i,H+1)

         ,O;}B(F)U S(C(A(T(E)?D:_)));}L(i,s)p

i,*s;{U isdigit(*i)        ?         z(i)!=z(s):strcmp(i,s);}
  B(b)U L(E,S(C(D)))?"()":"t";}B(R)U E;}B(o)U z(E)<z(S(C(D)))?
    "t":"()";}G(f,+)G(g,-)G(h,*)p r[4][2]={"function"   P R,
      "quote"P C,"lambda"P Z,"defun"P j};B(j)U r[M][1]=D,*
    r[M++]=C(_);}p not[99][2]={"if"P F,"equal"P b,"<"
      P o,"+"P f,"-"P g,"*"P h,"car"P c,"cdr"P q,
        "cons"P t,"t","t"};B(S)int Li,s;p u;if(
          isdigit(*_)|T(_))U _;for(Y=M;Y--;)
        if(!strcmp(_,*r[Y]))U r[Y][1]
          ;u=E,_=D;if(*u-'(')U(*((p(*)())u)
        )(_);s=Li=M;W(!T(_))r[M][1]=E,*r[M++]
    ="",_=D;O=C(u);W(!T(O))*r[Li++]=C(O),O=A(O);U O=S
    (C(A(u))),M=s,O;}main(){H=O=X,Y=0;W(Y|!e(K=getchar()))K==
    EOF?exit(0):0,Y+=(K=='(')-(K==')'),*H++=K;*H=0,puts(S(O))
                ,
         main();{printf("XLISP 4.0\n");}}

=====

    The special-forms/functions/variables implemented are:
   
        +    -    *    <    ()   
        car    cdr    cons    defun    equal
        function if    lambda    quote    t

Sample input:
    (+ 2.5 3.1)
    (defun fib (n)
       (if (< n 2)
           1
           (+ (fib (- n 2)) (fib (- n 1)))))
    (fib 10)
    (defun ! (x) (if (equal x 0) 1 (* x (! (- x 1)))))
    (! 7)
    (defun fn1 (fn) (+ (fn 1 2) (fn 3 4)))
    (defun fn2 (a b) (+ a b))
    (fn1 (function +))
    (fn1 (function fn2))
    (fn1 (function (lambda (z1 z2) (+ z1 z2))))
    (quote a)
    (cons (quote (a b)) (quote (c d e)))
    (cons (quote (f)) ())
    (car (quote (a b c)))
    (cdr (cdr (quote (g h i))))

>>14
This is just what >>9 is talking about.

>>17
Good call, Sherlock. Can't get anything past you.

MICROSOFT office to code   that is easier   to compile into   a shell script   and in spite   of several decades   of system design   and innovations such   as shared libraries.

22 Name: Anonymous 2011-01-31 20:05

<-- check em dubz