14 replies to this topic

[LilithSChild]

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

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]

bello

[ilguercio]

[yorkeiser]

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
Che linguaggio di merda Se la gioca col pitone

[LilithSChild]

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
Che linguaggio di merda Se la gioca col pitone

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

[yorkeiser]

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]

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

[yorkeiser]

Le END dentro dovrebbero esere delle IF

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

[LilithSChild]

Le END dentro dovrebbero esere delle IF

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 ?

[SuperMario=ITA=]

[p.nightmare]

sicuramente gialle ne sa, fa mica ingegneria informatica?

[LilithSChild]

Sei l'ingegnere più inutile di sto mondo

[SuperMario=ITA=]

@[/url]":yerrjwi0]

Sei l'ingegnere più inutile di sto mondo

e perchè?

ho capito di cosa si parla eh...ma sinceramente, fc.

[LilithSChild]

divertentissimo

le matte risate dai

Torna a giocare con le tue spore