[PL\I] Ho lollato.

LilithSChild · **Inviato:** mer nov 23, 2011 4:56 pm

http://it.wikipedia.org/wiki/PL/I

Cita:

Dato che il compilatore non vieta l'attribuzione di nomi di variabili uguali a parole riservate (come IF, ELSE e THEN) e che utilizza lo stesso segno ('=') per controllare l'uguaglianza fra due variabili e per eseguire un'operazione di assegnazione è possibile scrivere uno scioglilingua per compilatori!

IF IF = THEN THEN THEN = ELSE ELSE ELSE = IF

Questa parte di codice dovrebbe essere interpretata come: SE la variabile IF è uguale alla variabile THEN ALLORA assegna alla variabile THEN il valore della variabile ELSE ALTRIMENTI assegna alla variabile ELSE il valore della variabile IF.

Questo fa notare come il codice potesse dare atto a problemi di interpretazione.

p.nightmare · **Inviato:** mer nov 23, 2011 4:57 pm

bello

ilguercio · **Inviato:** mer nov 23, 2011 4:57 pm

yorkeiser · **Inviato:** mer nov 23, 2011 5:03 pm

Codice:

SHELL:   PROCEDURE OPTIONS (MAIN);
         DECLARE
           ARRAY(50) FIXED BIN(15),
           (K,N) FIXED BIN(15);

         GET LIST(N);
         GET EDIT((ARRAY(K) DO K = 1 TO N));
         PUT EDIT((ARRAY(K) DO K = 1 TO N));
         CALL BUBBLE(ARRAY,N);

END BUBBLE;

BUBBLE:   PROCEDURE(ARRAY,N); /* BUBBLE SORT*/
          DECLARE (I,J) FIXED BIN(15);
          DECLARE S BIT(1);        /* SWITCH */
          DECLARE Y FIXED BIN(15); /* TEMPO */
          DO I = N-1 BY -1 TO 1;
            S = '1'B;
            DO J = 1 TO I;
              IF X(J)>X(J+1) THEN DO;
                S = '0'B;
                Y = X(J);
                X(J) = X(J+1);
                X(J+1) = Y;
                END;
              END;
            IF S THEN RETURN;
            END;
          RETURN;
          END SRT;  

Questo è un "semplice" bubble sort :pua:

Che linguaggio di merda :pua:

Se la gioca col pitone :trollface:

LilithSChild · **Inviato:** mer nov 23, 2011 5:04 pm

yorkeiser @ ha scritto:

Codice:

SHELL:   PROCEDURE OPTIONS (MAIN);
         DECLARE
           ARRAY(50) FIXED BIN(15),
           (K,N) FIXED BIN(15);

         GET LIST(N);
         GET EDIT((ARRAY(K) DO K = 1 TO N));
         PUT EDIT((ARRAY(K) DO K = 1 TO N));
         CALL BUBBLE(ARRAY,N);

END BUBBLE;

BUBBLE:   PROCEDURE(ARRAY,N); /* BUBBLE SORT*/
          DECLARE (I,J) FIXED BIN(15);
          DECLARE S BIT(1);        /* SWITCH */
          DECLARE Y FIXED BIN(15); /* TEMPO */
          DO I = N-1 BY -1 TO 1;
            S = '1'B;
            DO J = 1 TO I;
              IF X(J)>X(J+1) THEN DO;
                S = '0'B;
                Y = X(J);
                X(J) = X(J+1);
                X(J+1) = Y;
                END;
              END;
            IF S THEN RETURN;
            END;
          RETURN;
          END SRT;  

Questo è un "semplice" bubble sort :pua:

Che linguaggio di merda :pua:

Se la gioca col pitone :trollface:

Perché prima "apre" SHELL e poi "chiude" BUBBLE?

yorkeiser · **Inviato:** mer nov 23, 2011 5:13 pm

LilithSChild ha scritto:

Perché prima "apre" SHELL e poi "chiude" BUBBLE?

Me lo sono chiesto anch'io, come non ho capito l'END SRT dell'ultima riga. Purtroppo non ho trovato un manuale.
Non ho capito neanche gli END vari nel corpo del bubble: o sono indentati alla cazzo, o mi sfugge con che logica si terminano i blocchi.

LilithSChild · **Inviato:** mer nov 23, 2011 5:47 pm

yorkeiser @ ha scritto:

LilithSChild ha scritto:

Perché prima "apre" SHELL e poi "chiude" BUBBLE?

Me lo sono chiesto anch'io, come non ho capito l'END SRT dell'ultima riga. Purtroppo non ho trovato un manuale.
Non ho capito neanche gli END vari nel corpo del bubble: o sono indentati alla cazzo, o mi sfugge con che logica si terminano i blocchi.

Le END dentro dovrebbero esere delle IF :sisi:

yorkeiser · **Inviato:** mer nov 23, 2011 5:54 pm

LilithSChild ha scritto:

Le END dentro dovrebbero esere delle IF :sisi:

Credo dipendano dalle DO, visto che ci sono due IF e tre END.

LilithSChild · **Inviato:** mer nov 23, 2011 5:59 pm

yorkeiser @ ha scritto:

LilithSChild ha scritto:

Le END dentro dovrebbero esere delle IF :sisi:

Credo dipendano dalle DO, visto che ci sono due IF e tre END.

In Effetti la if sembra avere un costrutto tipo IF contition THEN DO; something END;
e gli altri due DO sembrano essere dei cicli FOR.

Sinceramente sto vedendo una sintassi simile nelle procedure Teradata, ( che appunto ha il motore scritto anche in questo linguaggio )
però molte cose non sono uguali.

Nel foro non c'è uno dei tanti espertoni di sta minchia che ci ha lavorato ?