Hỏi đáp Thuật toán chèn kí tự vào chuỗi, không trùng lặp

input 1 chuỗi số vd 123456789
lần lượt thêm 1 kí tự cho trước vào vd thêm chữ a vô :
1a23456789
1a2a3456789
Sao cho ko có 2 chữ a liền nhau và chữ a ko ở 2 đầu
Output tất cả các trường hợp có thể sảy ra
Các bác có cao kiến gì giúp e với ạ

 

Mã (AutoIt):

#include <math.au3>
#include <Array.au3>
Dim $a[100]
For $i = 0 to 99
$a[$i] =''
Next
Global $tong = 0
$ch = InputBox('Random Text', 'Nhap vào chuoi', '')
$ch1= InputBox('Random Text', 'Nhap vào chuoi chen', '')
chen($ch,$ch1)
Func chen($c = '',$d ='')
$nho = $c
Do
$array = StringSplit($nho,$d)
;_ArrayDisplay($array)
If StringLen($array[$array[0]]) = 1 Then ExitLoop
$chuoi = $array[$array[0]]
$array1 = StringSplit($chuoi,'')
For $i = 1 To StringLen($chuoi) -1 Step 1
$a[$i] = $d
$f =''
$f1 = ''
For $j = 1 To StringLen($chuoi) Step 1
$f = $f & $array1[$j] & $a[$j]
Next
If $array[0] > 1 Then
For $m = 1 to $array[0] - 1 Step StringLen($d)
$f1 = $f1 & $array[$m] & $d
Next
EndIf
ConsoleWrite( $f1 & $f)
$tong = $tong + 1
ConsoleWrite(@CRLF)
$a[$i] = ''
$nho = $f1 & $f
$f1 =''
chen($nho,$d)
Next
Until StringLen($array[$array[0]]) = 1
EndFunc
MsgBox(0,"",$tong)

 

bac nay vua hoi tren facebook day ma