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

[dixonich]

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

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

Но Вы мне не расскажите, да? )

[Vago]

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

from numpy import chararray

N_CHARS = 3
a = chararray( N_CHARS )
a[:] = ['a', 'b', 'c']
z = chararray( N_CHARS )


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


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

#

Сходить сдать за тебя не нужно?

[Vago]

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

в перле нет списочков(

Что-то меня, не знающего Перла, с самого начала насторожило в этой фразе. "Предчувствия его не обманули"!
http://www.misc-perl-info.com/perl-lists.html
http://www.cs.cmu.edu/afs/cs.cmu.edu...l-exp-arr.html