Uma Linha

TOP SECRET do not read this article

Vamos dar início à iniciação na Sociedade Secreta dos programas obfuscados escritos em 1 linha. Isto é só para programadores avançados. Não tentem fazer isto em casa senão podem ficar com os miolos em puré (papa)!

A maneira mais fácil de escrever um programa em apenas 1 linha é usar BASIC Apascalado. Eis os passos:

1. Ir até à página do Conversor de BASIC Apascalado (aqui).

2. Escrever um programa.

Exemplo:

PROGRAM factorials PROC main routine END

DEFPROC main routine
PROC introduction
PROC get limit
PROC write factorials
ENDPROC

DEFPROC introduction
PRINT "Factorials list"
PRINT "Pascalated BASIC demonstration"
PRINT
ENDPROC

DEFPROC get limit
REPEAT w
   PRINT "max argument = ";
   INPUT limit : PRINT limit
   IF limit >= 12 BEGIN y
     PRINT
     PRINT "Must be lower than 12."
     PRINT "Try again."
     PRINT
   ELSEIF limit < 0
     PRINT
     PRINT "Must be greater than 0."
     PRINT "Try again."
     PRINT
   ELSE
     PRINT
     PRINT "Valid input."
     PRINT
   ENDIF
UNTIL (limit >= 0) AND (limit <= 11)
ENDPROC

DEFPROC write factorials
PRINT
FOR w = limit TO 0 STEP -1
   LET argument = w
   PRINT "fact(";argument;") = ";
   PROC calculate factorial
   PRINT result
NEXT w
ENDPROC

DEFPROC calculate factorial
LET result = 1
WHILE argument > 1 DO y
   LET result = result * argument
   LET argument = argument-1
ENDWHILE
   ENDPROC

3. Juntar o programa em apenas um procedimento.

Exemplo: Onde está "PROC Main Routine" substituir pelo conteúdo do procedimento "Main Routine". Fazer isto com todos os procedimentos até ficar algo como:

PROGRAM factorials PRINT "Factorials list"
PRINT "Pascalated BASIC demonstration"
PRINT
REPEAT w
   PRINT "max argument = ";
   INPUT limit : PRINT limit
   IF limit >= 12 BEGIN y
     PRINT
     PRINT "Must be lower than 12."
     PRINT "Try again."
     PRINT
   ELSEIF limit < 0
     PRINT
     PRINT "Must be greater than 0."
     PRINT "Try again."
     PRINT
   ELSE
     PRINT
     PRINT "Valid input."
     PRINT
   ENDIF
UNTIL (limit >= 0) AND (limit <= 11)
PRINT
FOR w = limit TO 0 STEP -1
   LET argument = w
   PRINT "fact(";argument;") = ";
   LET result = 1
   WHILE argument > 1 DO y
     LET result = result * argument
     LET argument = argument-1
   ENDWHILE
   PRINT result
NEXT w
END

4. Converter para Sinclair BASIC com o Conversor BASIC Apascalado, remover os números de linha, remover os comentários REM e juntar tudo numa linha inserindo o caracter ":".

Nota: Se tentarem converter um programa com mais de 100 linhas o conversor vai rejeitar isso. Para contornar esse problema, podem trabalhar com a listagem convertida para Sinclair BASIC.

Exemplo: Onde está "GO SUB MainRoutine" substituir pelo conteúdo do procedimento "Main Routine".

Eis o resultado final:

1 PRINT "Factorials list" : PRINT "Pascalated BASIC demonstration": PRINT : FOR w = 0 TO 0.5 STEP 0 : PRINT "max argument = "; : INPUT limit : PRINT limit : LET y = limit >= 12 : FOR y = y TO 0.5 STEP -2 : PRINT : PRINT "Must be lower than 12." : PRINT "Try again." : PRINT : NEXT y : LET y = (y<0)*-1 + (y=0)*( limit < 0 ) : FOR y = y TO 0.5 STEP -2 : PRINT : PRINT "Must be greater than 0." : PRINT "Try again." : PRINT : NEXT y : LET y = (y=0) : FOR y = y TO 0.5 STEP -2 : PRINT : PRINT "Valid input." : PRINT : NEXT y : LET w = (limit >= 0) AND (limit <= 11) : NEXT w : PRINT : FOR w = limit TO 0 STEP -1 : LET argument = w : PRINT "fact(";argument;") = "; : LET result = 1 : FOR y = NOT (argument > 1) TO 0.5 STEP 0 : LET result = result * argument : LET argument = argument-1 : LET y = NOT (argument > 1) : NEXT y : PRINT result : NEXT w

Clicar aqui para correr online um exemplo mais interessante.

Clicar aqui para fazer download dos ficheiros.