Ciao.
Visto che in questo momento l'intensità della discussione è un po' calata,
vi faccio una domanda.
Sfogliando tra le vecchie riviste, mi sono soffermato sul numero 37 di
LNR, che conteneva nelle pagine iniziali un piccolo listato in basic che
in passato mi aveva riempito di entusiasmo. La compattezza del codice
evidenzia la potenza del basic Sinclair! Si tratta di un algoritmo
ricorsivo che stampa a video tutte le permutazioni dei caratteri di una
stringa.
Lo riporto:
1 REM by E. DI ZENOBIO alias BIG SPECTRUM
10 INPUT A$: DEF FN F(N)=N*VAL (("1" AND N<=1)+("FN F(N-1)" AND
N>1))+(N=0)
20 LET A=LEN A$: IF A>33 THEN PRINT "PAROLA TROPPO LUNGA!": GO TO 10
30 LET B=FN F(A): PRINT B;" COMBINAZIONI"''
40 FOR C=1 TO B: FOR D=A-1 TO 1 STEP -1
50 IF C/FN F(A-D)=INT (C/FN F(A-D)) THEN LET A$=A$( TO D-1)+A$(A)+A$(D TO
A-1)
60 NEXT D: PRINT C;":";A$: NEXT C
Peccato che non mi gira: mi dice "C Nonsense in BASIC, 30:1"... eppure
l'ho già ricontrollato più volte, non ci dovrebbero essere errori di
battitura... forse a suo tempo avevo fatto una correzione per farlo
funzionare?
Ciao,
Marcello
