Newsgroup: it.hobby.enigmi
Titolo: OT: programma anagrammi

ciao,
qualcuno di voi sa dirmi dove posso trovare un programma per fare
anagrammi??
vi sarei grato!!
Stefano

 anagrammi??
prova in questo sito
http://www.nightgaunt.org/anagrams/anagrams.htm
ciao
paolo

 [cut]
Dove? Il libro lo ho letto e mi ha fatto inpazzire ma questo programma non
me lo ricordo..
Esiste un sito che genera anagrammi in italiano ma non ricordo l'indirizzo,
l`ho postato tempo fa in questo ng in un post con sogetto "anagrammi". Puoi
provare a cercarlo, comunque era un sito personale,  "nightghaunt" o
qualcosa del genere.
GaS

 Esiste un sito che genera anagrammi in italiano ma non ricordo l'indirizzo,
Si, poi l'ho rintracciato:
http://www.nightgaunt.org/anagrams/anagrams.htm
Ciao!
(ANAGRAMS = ARS MAGNA)
Cri
--
"Look for the ridiculous in everything and you will find it"
(Jules Renard)

 Dario Uri legge e ha voglia di partecipare al thread...).
Ai tempi del cartaceo, l'aveva spedito anche a me (se parliamo
dello stesso algoritmo), ma non lo trovo piů.
Sarei felicissimo se Dario lo postasse.
Ciao
:-))
Gianni


Ho scritto una semplice subroutine ricorsiva in Basic (č piů comodo del C
per la gestione delle stringhe), per generare tutti gli anagrammi senza
vincoli di lunghezza. Eccola:
Sub Anag(ByVal strIn As String, ByVal strOut As String)
    Dim i As Integer
    If strIn = "" Then
        Print strOut
    Else
        For i = 1 To Len(strIn)
            Anag Left(strIn, i - 1) & Mid(strIn, i + 1), strOut & Mid(strIn,
i, 1)
        Next
    End If
End Sub
Va chiamata in questo modo, ad esempio: Anag "ROMA", ""
Ciao
Giorgio

 Sarei felicissimo se Dario lo postasse.
...
OK, l'ho ritrovato (penso che Dario non abbia nulla in conrtrario se
lo riposto, vero?).
Cri
----- Segue il post originale di Dario Uri:
Qualcuno mi ha chiesto di un algoritmo per gli anagrammi.
Ho visto alcuni programmi per anagrammare (permutare), generalmente
sono fatti da cicli annidati, tanti cicli quante sono le lettere da
anagrammare.
Questo algoritmo veramente ingegnoso, utilizza poche righe, ed e' in
grado di anagrammare parole di qualunque lunghezza. Riporto le
istruzioni chiave (in BASIC). Poi ciascuno le usera' come vuole.
-------------------------------------------------------------------------
 10 REM permutazioni/anagrammi(lettere differenti) algoritmo di S.H.Binns
 20 INPUT "parola"; Z$
 30 y = LEN(Z$): j = y - 1: zz$ = "**" + Z$
 50 IF j < 0 THEN END
 60 p(j) = p(j) + 1: IF p(j) > y - j - 1 THEN p(j) = 0: j = j - 1: GOTO 50
 70 ag$ = "": FOR j = 0 TO y - 1: ag$ = ag$ + MID$(zz$, p(j) + 3, 1)
 80 zz$ = LEFT$(zz$, p(j) + 2) + MID$(zz$, p(j) + 4)
 90 NEXT j: PRINT ag$,
 100 GOTO 40
--------------------------------------------------------------------------
--
Premere con forza qui -----> o


http://www.nightgaunt.org/anagrams/anagrams.htm
Saluti by Lvdwig

 lo riposto, vero?).
Anzi ! grazie, mi hai risparmiato una fatica.
ciao :) dario

 > > Dario Uri legge e ha voglia di partecipare al thread...).
Mi approntavo al ripescaggio, ma questa routine di Giorgio non ha niente
da invidiare a quella di Binn.
Se c'e' interesse la posto (dopo averla recuperata).
:) dario

 --------------------------------------------------------------------------
:) dario


Enilab è in grado di fare anagrammi ad una parola, di qualunqua
lunghezza, e di verificarne l'esistenza in un vocabolario di 250 mila
parole. Enilab è freeware e si scarica qui:
http://www.strusis.it/enignet
Nella versione 2.0 dovrebbe esserci anche la possibilità di anagrammi
multipli (cioè con più di una parola).
Ciao
Giulio