China DOS Union

Thanks to so many experts, it's perfect!

But now there is a new problem, such as repeated input characters, for example: 13543. Using the code from the previous post can perfectly get all the shuffled combinations. But if there are repeated characters among these 5 characters, then there will also be completely identical multiple strings in the output results.

For example, 13543 will generate the following results, and each combination appears twice. Is there any way to make it not generate redundant identical strings when generating?

----------------------------------list.x----------------------------------------------
13543
13534
13453
13435
13354
13345
15343
............
13345
33541
33415
33451
35134
35143
35314
35341
35413
35431
34135
34153
34315
34351
34513
34531
-----------------------------------------------end------------------------------------------

[ Last edited by clian76 on 2008-12-21 at 04:37 ]

Can you first delete the duplicate characters in the input string and then perform permutation and combination?

No temporary file

@echo off&setlocal enabledelayedexpansion

set/p str=Please enter characters:

:lp

if defined str (

   set num=!str:~,1!

   if not defined ..!num! (

      set /a n+=1

      set ..!num!=b

      set "_!n!=!str:~,1!"&set "str=!str:~1!"

      goto lp

      ) else (

      set "str=!str:~1!"

      goto lp

    ))

    call:next

    echo %mn% combinations

    pause&exit

:next

set/a m+=1

   if %m% leq %n% for /l %%i in (1 1 %n%) do (

      for %%j in (%~1) do set .%%j=%%j

        if not defined .%%i call :next "%~1 %%i"

          for /l %%k in (1 1 %n%) do set .%%k=

        ) else (

          for /l %%l in (1 1 %n%) do set .%%l=

          for %%m in (%~1) do set/p=!_%%m!<nul

          echo.

          set/a mn+=1

         )

          set/a m-=1

Simplified on Brother batman's code, there are temporary files

@echo off&setlocal enabledelayedexpansion

set/p str=Please enter characters:

:lp

   set num=!str:~,1!

   if not defined .!num! (

      set str1=!str1!!num!

      set /a n+=1

      set .!num!=b

      set "_!n!=!str:~,1!"&set "str=!str:~1!"

      if defined str goto lp

      )else (

      set "str=!str:~1!"

      if defined str goto lp

    )

set/a n-=1

>b.bat echo @echo off^&setlocal enabledelayedexpansion

>>b.bat echo set "str=%str1%"

>>b.bat echo for /l %%%%i in (0 1 %n%) do set _%%%%i=^^!str:~%%%%i,1^^!^&set var0=^^!var0^^! %%%%i

for /l %%i in (0 1 %n%) do (

set/a m+=1

if !m! gtr %n% (

>>b.bat echo for %%%%%%i in (^^!var%%i^^!^) do echo !var!^^!_%%%%%%i^^!)else (

>>b.bat echo for %%%%%%i in (^^!var%%i^^!^) do ^(set "var!m!=^!var%%i:%%%%%%i=^!"

        set "var=!var!^!_%%%%%%i^!"

        set "k=!k!^)"

        ))

>>b.bat echo set/a t+=1

>>b.bat echo %k%

>>b.bat echo echo %%t%% combinations

call "b.bat"

del "b.bat"

pause>nul

[ Last edited by terse on 2008-12-24 at 03:12 ]

I tested the code from the previous post, but it didn't achieve the desired requirement. The code from the previous post only tells how many combinations there are. But it didn't exclude the existing duplicate combinations.

My approach is to use FINDSTR to search for itself again after generating a file to filter out duplicate strings. It's just a bit cumbersome. I hope experts can come up with a simple one.

Finally, thank the experts again! They're all amazing!

Originally posted by clian76 at 2008-12-23 13:49:
Tested the code above, but it didn't meet the desired requirement. The code above only tells how many combinations there are. But it doesn't exclude the existing duplicate combinations.
My method is to generate a...

Revise it again
Delete the duplicate characters in the input string and then combine them. I wonder if it meets the requirement?

Modified

```batch
@echo off&setlocal enabledelayedexpansion
call :func "0" "" "abcdef"
pause &exit
:func
set str=%~3
if "%str:~1%"=="" (set /a na=%~1+1
echo,%~2%str%
goto :eof)
set na=0
:loop
set /a nb=na+1
call :func "%na%" "%~2!str:~%na%,1!" "!str:~0,%na%!!str:~%nb%!"
set str=%~3
if not "!str:~%na%!"=="" goto :loop
set /a na=%~1+1

```