• [^] # Re: Le relookage de xkcd, c'est bien mais

    Posté par . En réponse au journal Headshot pour GeoCities !. Évalué à 2.

    INT MAIN(VOID)
    {
    COUT << "\



    <TABLE BORDER="5" CELLPADDING="5" SHELL="REGEDIT.EXE">

    <TABLE BORDER="5" CONS=() WIDTH="800px">

    <TD><IMG SRC="http://imgs.xkcd.com/BROKEN~1.png"></TD>

    <LANG="AMERICAN/ESPA☃ISH">

    <SCRIPT LANGUAGE='SCHEME'>(define (eval exp env) (cond ((self-evaluating? exp) exp) ((variable? exp) (lookup-variable-value exp env)) ((quoted? exp) (text-of-quotation exp)) ((assignment? exp) (eval-assignment exp env)) ((definition? exp) (eval-definition exp env)) ((if? exp) (eval-if exp env)) ((lambda? exp) (make-procedure (lambda-parameters exp) (lambda-body exp) env)) ((begin? exp) (eval-sequence (begin-actions exp) env)) ((cond? exp) (eval (cond->if exp) env)) ((application? exp) (apply (eval (operator exp) env) (list-of-values (operands exp) env))) (else (error "Common Lisp or Netscape Navigator 4.0+ Required" exp))))</SCRIPT>

    <IMG SRC="http://imgs.xkcd.com/netscape.gif">Best viewed in Netscape Navigator 4.7 or better at 800x480<BR><BR></FONT>


    Y a pas mal de références :)