中国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