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
ENDPROC3. 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
END4. 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.
