FaktoradikFaktoradik adalah sebuah sistem bilangan yang setiap posisi angka memiliki basis sesuai dengan faktorial dari posisinya. Sistem bilangan ini memungkinkan untuk membangkitkan permutasi dalam urutan leksikografik. Faktoradik memiliki bentuk deretan bilangan an...a4a3a2a1a0, dengan setiap bilangan ai bersifat: dan Nilai faktoradikNilai sebuah faktoradik an...a4a3a2a1a0 dapat dengan mudah didapat menggunakan formula: Sebagai contoh, bilangan 2,1,1,1,0 Posisi setiap bilangan, sama seperti pada sistem bilangan posisional lainnya, dinomori mulai dari 0 dari sebelah kanan.
Sehingga nilainya adalah sebesar: 2×4! + 1×3! + 1×2! + 1×1! + 0×0! = 57 Di bawah ini adalah daftar 24 faktoradik pertama beserta nilainya:
Mendapatkan Faktoradik dari Sembarang BilanganSuatu faktoradik bisa diperoleh dari sembarang bilangan dengan algoritme sebagai berikut:
Ketika berakhir, algoritme ini akan menghasilkan deretan faktoradik an...a4a3a2a1a0. PermutasiMembentuk Permutasi berdasarkan FaktoradikPertama-tama kita harus membuat kesepakatan mengenai indeks. Indeks untuk untai dimulai dengan indeks 0 dari kiri.
Disediakan sebuah untai , dan sebuah faktoradik , maka algoritme untuk menghasilkan sebuah permutasi dari adalah:
Ketika algoritme ini selesai, akan merupakan permutasi dari yang sesuai dengan Sebagai contoh, untuk menghasilkan permutasi dari abcdefg, dengan indeks faktoradik 5341200 dengan algoritme tersebut, diberikan: dan Disediakan (masih kosong).
Pertama, mulai dari , yaitu 5. Kemudian pindahkan huruf ke-5 (indeks 5) pada untai ke untai , yaitu huruf f. Kondisi dan sekarang menjadi dan Dengan sekarang menjadi:
Bilangan kedua dari , yaitu adalah 3, maka pindahkan huruf ke-3 pada untai ke untai . Maka kondisinya menjadi dan
Dan seterusnya, yang jika dituliskan sekaligus adalah seperti ini:
Kode-kode programKode program untuk membangkitkan faktoradikPascalFMax:= CariFaktorialTerbesar(Bilangan); Sisa:= Bilangan; for i:= FMax downto 0 do begin f:= Faktorial(i); A[i]:= Sisa div f; Sisa:= Sisa mod f; end; Kode untuk membangkitkan permutasi dari faktoradikPascalfunction Permutasi(Untai: STRING; Faktoradik: array of INTEGER): STRING; var Hasil: STRING; i, Indeks: INTEGER; begin Hasil:=; for i:=Low(Faktoradik) to High(Faktoradik) do begin Indeks:=Faktoradik[i] + 1; // Indeks ditambah 1 karena indeks array berawal dari 0 Hasil:=Hasil + Untai[ Indeks ]; Delete(Untai, Indeks, 1); end; Permutasi:=Hasil; end; Lihat pulaPranala luarUsing Permutations in .NET for Improved Systems Security Diarsipkan 2008-04-12 di Wayback Machine. |