Maaf sebelumnya,
Saya sudah pernah mengajukan pertanyaan ini tapi mungkin kurang jelas maksudnya?
Saya udah pesimis nggak ada yg jawab. Terima kasih pada Mas Arif yg sudah repot-repot
memberi bantuan, tapi sebenernya bukan itu maksud saya.
Ini saya perjelas lagi. Dibuat 1dimensi aja spy lebih simpel.
TMatrix= array of longint;
procedure PermutasiArrayDgnStr(var Mtrx: TMatrix; Max: longint; Str: string);
var i, j, r, temp: integer;
begin
If (length(Mtrx) < Max) then SetLength(Mtrx,Max);
For i := 0 to (Max - 1) do Mtrx[i] := i;
For i := (Max - 1) downto 1 do begin
// DivString(Str,i,r)
// Hitung index, j, in 0 to (i - 1) untuk diswap dgn Mtrx[i].
{ Lakukan swap permutasi }
temp := Mtrx[i];
Mtrx[i] := Mtrx[j];
Mtrx[j] := temp;
If (length(Str) = 0)
then BREAK;
end{i-loop};
{ If (length(Str) > 0)
then raise Exception.Create('Input string is too long');}
end;
Pertanyaannya:
Gimana cara menentukan index (j) dari input yang diberikan (Str) supaya setiap input
akan menghasilkan urutan indeks yang berbeda, yg akhirnya akan menghasilkan matriks yg
berbeda pula. Unik untuk setiap string yg dimasukkan.
Contoh yg sgt disederhanakan, soalnya matriksnya sebnarnya ukurannya bsar.
Matriks awal
Mtrx = [0,1,2,3,4,5,6,7]
Str = 'a' maka outputnya
Mtrx = [0,1,2,3,4,5,7,6]
Str = 'b' maka outputnya
Mtrx = [0,1,2,3,4,7,5,6]
Urutannya dan aturannya bisa sembarang, yg jelas nggak ada dua elemen yg dipakai
berulang dan nggak ada 2 masukan yg bisa menghasilkan urutan indeks yg sama.
Sebenarnya masalahnya masih banyak tapi sementara ini dulu.
Matur nuwun sebelumnya.
[Non-text portions of this message have been removed]
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Upgrade to 128-Bit SSL Security!
http://us.click.yahoo.com/p7cEmB/s7qGAA/yigFAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
