Meghívót kap az aki hajlandó segíteni!

Meghívót kap az aki hajlandó segíteni!
2009-06-11T14:16:33+02:00
2009-06-11T18:14:08+02:00
2022-10-25T15:35:41+02:00
*deleted_63732532
Tudnátok segíteni kirakni 5 betűs értelmes magyar szavakat?
Ezekből a Betűkből kellene összeállítani minél többet: E,E,É,Ö,C,P,L,S,K,T

Aki a legtöbbet állítja elő, az kap tőlem 1-2 torrent oldalra meghívód, de ha szüksége van, akkor iwiw meghívót is kaphat!

Én ennyit tudtam:
ÖLTÉS
KÖLES
KÖPÉS
KELET
TELEK
Mutasd a teljes hozzászólást!
Itt egy Excel makró, ami jó ideig fut, de tutira megtalálja az összes értelmes szót:

Option Explicit Const Characters = "EEÉÖCPLSKT" Private CurrRow As Long Private Sub FindPermutations(String2Permutate As String, Optional PreceedingString As String = "") Dim i As Integer If Len(String2Permutate) Then For i = 0 To Len(String2Permutate) - 1 FindPermutations Left(String2Permutate, i) & Mid(String2Permutate, i + 2), PreceedingString & Mid(String2Permutate, i + 1, 1) Next i Else ActiveSheet.Cells(1, 1) = PreceedingString If Application.CheckSpelling(Left(PreceedingString, 5)) Then ActiveSheet.Cells(CurrRow, 1) = PreceedingString CurrRow = CurrRow + 1 End If End If DoEvents End Sub Sub Szokereso() CurrRow = 2 FindPermutations LCase(Characters) ActiveSheet.Rows(1).Delete End Sub

A permutációs algoritmus forrása: CodeGuru


szerk: a két E betű miatt lesz ismétlődés, de ezt kiszűrheted vagy a MATCH fgv-el menet közben, vagy a végén. Az algoritmus kipróbáltam kevesebb karakterrel. Az "EELKT" betűkre a következő eredményt adja:
kelet
kelte
kelet
kelte
telek
telke
telek
telke
Mutasd a teljes hozzászólást!

  • 1. ha nem kérek meghívót akkor is segíthetek?
    2. egy betű csak 1x használható fel?
    3. mit fog szólni a tanár ha megtalálja ezt a topicot?
    Mutasd a teljes hozzászólást!
  • Itt egy Excel makró, ami jó ideig fut, de tutira megtalálja az összes értelmes szót:

    Option Explicit Const Characters = "EEÉÖCPLSKT" Private CurrRow As Long Private Sub FindPermutations(String2Permutate As String, Optional PreceedingString As String = "") Dim i As Integer If Len(String2Permutate) Then For i = 0 To Len(String2Permutate) - 1 FindPermutations Left(String2Permutate, i) & Mid(String2Permutate, i + 2), PreceedingString & Mid(String2Permutate, i + 1, 1) Next i Else ActiveSheet.Cells(1, 1) = PreceedingString If Application.CheckSpelling(Left(PreceedingString, 5)) Then ActiveSheet.Cells(CurrRow, 1) = PreceedingString CurrRow = CurrRow + 1 End If End If DoEvents End Sub Sub Szokereso() CurrRow = 2 FindPermutations LCase(Characters) ActiveSheet.Rows(1).Delete End Sub

    A permutációs algoritmus forrása: CodeGuru


    szerk: a két E betű miatt lesz ismétlődés, de ezt kiszűrheted vagy a MATCH fgv-el menet közben, vagy a végén. Az algoritmus kipróbáltam kevesebb karakterrel. Az "EELKT" betűkre a következő eredményt adja:
    kelet
    kelte
    kelet
    kelte
    telek
    telke
    telek
    telke
    Mutasd a teljes hozzászólást!
  • amugy valahogy még nem lehetne rajta módosítani, hogy csak 5 betűs szavakat keressen?
    Mutasd a teljes hozzászólást!
Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd