Форум на Исходниках.RU

function generateAllWords(baseStr: string; baseFile: string): TStrings;

// генерация слов на базе основного с проверкой по словарю

var

indArr: array of byte;

i, j, lenArr: integer;

tmpStr: string;

dicArr: TStrings;

begin

lenArr:=length(baseStr);

setlength(indArr, lenArr + 1); // формирование массива индексов ...

// ... для формирования базовых основ

result:=TStringList.Create;

// формирование списка основ для генерации слов ...

// ... и получение на их основе полного списка

// начальная инициализация массива индексов

for i:=0 to lenArr do

indArr[i]:=0;

while indArr[lenArr] <> 1 do

begin

i:=0; // индекс бита двоичного числа

while indArr[i] = 1 do

begin

indArr[i]:=0; // моделируем перенос в следующий разряд, ...

// ... возникающий при сложении

i:=i+1

end;

indArr[i]:=1;

// получение простой подстроки от основы ...

// ... для генерации слов

tmpStr:='';

for i:=0 to (lenArr - 1) do

if indArr[i] = 1 then

tmpStr:=tmpStr + baseStr[i + 1];

// добавление очередной подстроки в список основ

if length(tmpStr) > 1 then

if result.IndexOf(tmpStr) < 0 then

result.Add(tmpStr)

end;

// формирование списка реальных слов на ...

// ... основе проверки по словарю

dicArr:=TStringList.Create;

dicArr.LoadFromFile(baseFile);

for i:=(result.Count - 1) downto 0 do

begin

j:=dicArr.IndexOf(result[i]);

if j < 0 then

result.Delete(i)

end;

result.SaveToFile('out.txt')

end;

generateAllWords(edit1.text, 'in.txt');

ар

ор

мортира

антивирус

маска

маскарад

дар

пена

ад

мор

парад

пенопласт

лиман

боль

лемон

фунт

кадр

дама

тиф

смерть

маска

ар

ад

маскарад

import java.util.Arrays;

public class PermutationsWithRepetition {

private Object[] source;

private int variationLength;

public PermutationsWithRepetition(Object[] source, int variationLength) {

this.source = source;

this.variationLength = variationLength;

}

public Object[][] getVariations() {

int srcLength = source.length;

int permutations = (int) Math.pow(srcLength, variationLength);

Object[][] table = new Object[permutations][variationLength];

for (int i = 0; i < variationLength; i++) {

int t2 = (int) Math.pow(srcLength, i);

for (int p1 = 0; p1 < permutations;) {

for (int al = 0; al < srcLength; al++) {

for (int p2 = 0; p2 < t2; p2++) {

table[p1][i] = source[al];

p1++;

}

return table;

}

public static void main(String[] args) {

PermutationsWithRepetition gen = new PermutationsWithRepetition(

new Integer[]{1, 2, 3, 4, 5, 6, 7, 8, 9, 0},

5);

Object[][] variations = gen.getVariations();

for (Object[] s : variations) {

System.out.println(Arrays.toString(s));

}

$a = "миранда";

$count = 0;

for($i=0; $i<7; $i++){

$cnt = 0;

for($j=0; $j <= $count; $j++){

$cnt++;

$array[$count+$cnt] = $array[$j].$a[$i];

}

$count+=$cnt+1;

$array[$count] = $a[$i];

}