中国DOS联盟

@echo off&color 0a&SETLOCAL ENABLEDELAYEDEXPANSION 2>nul 3>nul
for /l %%a in (1,1,40) do (
call set /a aaa=%%random%%%%%%39+1
for /l %%b in (1,1,!aaa!) do (
call set /a randomx=%%random%%
call set /a 1/^(%%randomx%%%%%%^(%%b+1^)%%%%2^)&&call :pri1 %%b
call set /a 1/^(%%randomx%%%%%%^(%%b+1^)%%%%2^)||set/p=  <nul
)
echo.)
echo.
pause>nul&goto :eof

:pri1
set /a 1/(%1%%2)&&set/p="0 "<nul
set /a 1/(%1%%2)||set/p="1 "<nul
goto :eof

@echo off&set lineh=1 2>nul 3>nul
for /l %%i in (1,1,70) do (
call set/arandomx=%%random%%%%%%2+1
call set/a1/^(%%randomx%%-%%ax%%^)&&call :cou %%ay%% %%lineh%%&&set/aa=||call :pri %%randomx%%)
call :cou %%ay%% %%lineh%%
for /l %%i in (1,1,%lineh%) do call set f= %%f%%
for /f "tokens=1,2 delims=[]" %%i in ('find /n /v "" test.txt') do set colw=%%i&set colt%%i=%%j%f%END
set /a lineh=lineh-1 >test.txt
for /l %%a in (0,1,%lineh%) do (
for /l %%b in (1,1,%colw%) do (
call set txt=%%colt%%b%%
call set/p=%%txt:~%%a,1%%<nul >>test.txt
)
echo.>>test.txt)
echo %lineh%xx%ay%xx%colw%&pause&goto :eof
:cou
set/a1/(%1/%2),lineh=%1
set/aay=0&echo.>>test.txt&goto :eof

:pri
set/p="%1"<nul >>test.txt
set/aax=%1,ay+=1&goto :eof