El algoritmo de Belbo

El Péndulo de Foucault es una novela de Umberto Eco. En la misma, uno de los persojanes Jacopo Belbo escribe un pequeño algoritmo en basic para hacer todas las permutaciones de las letras del nombre de dios.

10 REM anagramas
20 INPUT L$(1), L$(2), L$(3), L$(4)
30 PRINT
40 FOR ll=l TO 4
50 FOR 12=1 TO 4
60 IF 12=11 THEN 130
70 FOR 13=1 TO 4
80 IF 13=11 THEN 120
90 IF 13 = 12 THEN 120
100 LET 14=10 (11+12+13)
l10 LPRINT L$(11); L$(12); L$(13); L$(14)
120 NEXT 13
130 NEXT 12
140 NEXT 11
150 END