Полный перебор

[dixonich]

Суть такова : есть текст (например, a b c), где a b c - это слова.
Нужно как-то организовать полный перебор фраз, т.е.
ab ac, ba, bc, ca, cb, bc, abc, cba, bca и тд
Как это можно осуществить? С помощью чего?
Без ООП.
Накидайте, плз, какой-нибудь псевдокод) а то никак не могу сообразить)

[Vago]

#!/usr/bin/python
# -*- coding: cp1251 -*-

a = ['a', 'b', 'c']

def Pnm( a, j, k ):
    if j <= k:
        for i in range(0,len(a) ):
            z[j-1] = a[i]
            _a = []
            for l in range(0,len(a) ):
                if l != i:
                    _a.append( a[l] )
            Pnm( _a, j+1, k )
    else:
        print z
        return


nA = len( a )
for k in range (1, nA+1):
    z = range( k )
    Pnm( a, 1, k )

#

111024.jpg

[Sasha_Smirnov]

Сообщение от dixonich

Суть такова : есть текст (например, a b c), где a b c - это слова.
Нужно как-то организовать полный перебор фраз...

Если фразы русские, то, может, как-то поможет мой генератор (приложен).

Для примера взял 5 элеметов; это 5!=120 комбинаций (что и отражено на рисунке).

Вам останется (для Word — по Ctrl-h) заменить каждую букву на какое-то русское слово, добавляя в конце пробел, — и набор фраз из 5 слов готов.

[dixonich]

Сообщение от Vago

#!/usr/bin/python
# -*- coding: cp1251 -*-

a = ['a', 'b', 'c']

def Pnm( a, j, k ):
    if j <= k:
        for i in range(0,len(a) ):
            z[j-1] = a[i]
            _a = []
            for l in range(0,len(a) ):
                if l != i:
                    _a.append( a[l] )
            Pnm( _a, j+1, k )
    else:
        print z
        return


nA = len( a )
for k in range (1, nA+1):
    z = range( k )
    Pnm( a, 1, k )

#

Вложение 43661

спасибо, конечно, но range, как я понимаю, список, а такой возможности в языке (perl) , на котором надо реализовать мне, нет.
нет ли других вариантов?)

[Vago]

Цикл while в Перле есть, надеюсь?..

#!/usr/bin/python
# -*- coding: cp1251 -*-

a = ['a', 'b', 'c']


def Pnm( a, j, m ):
    if j <= m:
#       for i in range(0,len(a) ):
        i = 0
        while i <= len(a)-1:
            z[j-1] = a[i]
            _a = []
#           for l in range(0,len(a) ):
            k = 0
            while k <= len(a)-1:
                if k != i:
                    _a.append( a[k] )
                k = k+1
            Pnm( _a, j+1, m )
            i = i+1
    else:
        print z
        return


# for m in range (1, len(a)+1):
m = 1
while m <= len(a):
#   z = range( m )
    z = []
    i = 0
    while i < m:
        z.append( i )
        i = i+1
    Pnm( a, 1, m )
    m = m+1

#

(l сливается с единицей - поменял некоторые индексы по сравнению с исходным вариантом).

[Sasha_Smirnov]

Сообщение от dixonich

Накидайте, плз, какой-нибудь псевдокод☺

Вот как-то так, наверное, можно и на Перле. Перечислять, кстати, необязательно цифры — можно индексы некоего массива (того словаря, из которого вы составляете набор фраз).

Sub Generation5(): Dim L1, L2, L3, L4, L5, N, k, i
Const D = 3 'количество элементов в одной комбинации (в одном размещении) или, скажем, слов в 1 фразе
MsgBox "Печатаю все " & D & "-значные десятичные числа из разных цифр." & vbCr & vbCr & _
"Принудительный выход: Ctrl + Break."
    
    For L1 = 0 To 9
        For L2 = 0 To 9:                If L2 = L1 Then GoTo 2
            For L3 = 0 To 9:            If L3 = L1 Or L3 = L2 Then GoTo 3
'                For L4 = 0 To 9:        If L4 = L1 Or L4 = L2 Or L4 = L3 Then GoTo 4
'                    For L5 = 0 To 9:    If L5 = L1 Or L5 = L2 Or L5 = L3 Or L5 = L4 Then GoTo 5
                    Selection.TypeText vbTab & L1 & L2 & L3 & L4 & L5
'5:                  Next
'4:              Next
3:          Next
2:      Next
1:  Next

N = 1: For i = 1 To 10: N = N * i: Next     'вычисление 10!
k = 1: For i = 1 To 10 - D: k = k * i: Next 'вычисление (10 – D)!

MsgBox "Число перестановок: " & N / k
End Sub

Для испытания собственно алгоритма приложил документ с программой.

Там 3 из 10 (если не снять комменты). Плюс некий интерфейс.

[dixonich]

спасибо вам.
а что такое append? не понятно)
z = [] - это инициализация пустого массива?

[Vago]

Сообщение от dixonich

а что такое append? не понятно)

http://www.google.com/search?&rls=en...ppend+function

Сообщение от dixonich

z = [] - это инициализация пустого массива?

Списка.

[dixonich]

в перле нет списочков(
нельзя это как-то реализовать на массивах лишь?

[Vago]

Сообщение от dixonich

нельзя это как-то реализовать на массивах лишь?

Конечно, можно.