China DOS Union

### Distribute 10 apples among 5 people (each person gets at least one apple)

aa=0

do until aa=1

i=inputbox("你想给5人分几个苹果？(每人至少一个)","请输入苹果数")

if i="" then

wscript.quit

elseif IsNumeric(i)=false  then

msgbox "输入错误，请重新输入！",16+4096,"错误"

elseif i<5 then

msgbox "苹果数不能小于5,请重新输入！",16+4096,"错误"

elseif i>15 then

yesno=msgbox("苹果数大于15时速度可能会很慢，要继续吗？",32+4096+vbyesno,"提示")

if yesno=vbyes then

aa=1

end if

else

aa=1

end if

loop



set fso=createobject("scripting.filesystemobject")

set ws=createobject("wscript.shell")

set file=fso.createtextfile("OUT.txt",2)

for a=1 to ccur(i)-4

for b=1 to ccur(i)-4

for c=1 to ccur(i)-4

for d=1 to ccur(i)-4

for e=1 to ccur(i)-4

if a+b+c+d+e=ccur(i) then

h=h+1

s=s & "│" & a & vbtab & "│" & b  & vbtab & "│" & c  & vbtab & "│" & d  & vbtab & "│" & e &vbtab &"│" &vbcrlf & "├───┼───┼───┼───┼───┤"&vbcrlf



end if

next

next

next

next

next

s=Left(s,Len(s)-Len("├───┼───┼───┼───┼───┤"&vbcrlf))

file.write "给5个人分"&i&"个苹果(每人至少分到一个苹果)一共有" & h &"种方法" & vbcrlf & vbcrlf

file.write "┌───┬───┬───┬───┬───┐"& VBcrlf

file.write  "│A" & vbtab &"│B" & vbtab &"│C" & vbtab &"│D" & vbtab &"│E" & vbtab &"│" & VBcrlf

file.write "┝━━━┿━━━┿━━━┿━━━┿━━━┥"& VBcrlf

file.write s

file.write "└───┴───┴───┴───┴───┘"

file.close

ws.run "notepad.exe OUT.txt"

[ Last edited by jmz573515 on 2007-2-1 at 02:27 PM ]

Each person gets at least one apple. Otherwise, there are distributions like 10 and 0, which would make the number more than 126.

Thanks to the reminder from user 2, there should be the condition that "each person gets at least one apple".

I'm following a bat version:

@echo off

(

echo ┌───┬───┬───┬───┬───┐

echo │  A   │  B   │  C   │  D   │  E   │

)>result.txt

setlocal enabledelayedexpansion

for /l %%i in (1,1,6) do (

    for /l %%j in (1,1,6) do (

        for /l %%k in (1,1,6) do (

            for /l %%l in (1,1,6) do (

                for /l %%m in (6,-1,1) do (

                    set /a num=%%i+%%j+%%k+%%l+%%m

                    if !num! equ 10 (

                        if !count! equ 0 (echo ┝━━━┿━━━┿━━━┿━━━┿━━━┥

                            ) else echo ├───┼───┼───┼───┼───┤

                        echo │  %%i   │  %%j   │  %%k   │  %%l   │  %%m   │

                    )>>result.txt&set /a count+=1

                )

            )

        )

    )

)

(

echo └───┴───┴───┴───┴───┘

echo 5 people divide 10 apples ^(each person gets at least one^) there are %count% ways of distribution

)>>result.txt

start result.txt

Still add the thick lines, so as not to affect the appearance

[ Last edited by namejm on 2007-1-20 at 02:50 PM ]

Hundred schools of thought contending is a very good learning method, appreciate the two of you～～

It can be done recursively, but the efficiency will be very low.

I have to admit, the moderator's layout is so clear and well-structured that it's easy to understand at a glance. I feel ashamed.

But in terms of calculation speed, VBS is a bit better.

Probably because of this line "if !num! equ 10" that makes the program match automatically. .. If you want to increase the speed and don't know if there are other methods?

Just modify it so that the number of apples can be entered.

[ Last edited by jmz573515 on 2007-1-22 at 10:07 PM ]

Then I also modified the batch script that can specify the number of apples. I tested with 15 apples, and the batch script was indeed very slow, and the layout would also have problems (although it can be dealt with, but the code would be more complicated and not very universal):

@echo off



:begin

cls

set count=0

set input=

set /p input= Please enter the number of apples (press Enter directly to exit):

if not defined input exit

if %input% lss 5 echo The number of apples is too small, please enter again&pause&goto begin

set /a max=%input%-4

(

echo ┌───┬───┬───┬───┬───┐

echo │  A   │  B   │  C   │  D   │  E   │

)>result.txt

setlocal enabledelayedexpansion

for /l %%i in (1,1,%max%) do (

    for /l %%j in (1,1,%max%) do (

        for /l %%k in (1,1,%max%) do (

            for /l %%l in (1,1,%max%) do (

                for /l %%m in (%max%,-1,1) do (

                    set /a num=%%i+%%j+%%k+%%l+%%m

                    if !num! equ %input% (

                        if !count! equ 0 (echo ┝━━━┿━━━┿━━━┿━━━┿━━━┥

                            ) else echo ├───┼───┼───┼───┼───┤

                        echo │  %%i   │  %%j   │  %%k   │  %%l   │  %%m   │

                    )>>result.txt&set /a count+=1

                )

            )

        )

    )

)

(

echo └───┴───┴───┴───┴───┘

echo There are %count% ways to divide %input% apples among 5 people (each person gets at least one)

)>>result.txt

start result.txt

goto begin

This is actually a problem of the division method.
Teacher namejm and the previous几位 teachers used the method of nested collision testing, which will extremely waste resources and have extremely low efficiency when the modulus is relatively large. A more direct method is to use the IF statement to control the division rule and directly give the result according to the rule.
The following is a crude example:

::Extension of the apple - dividing problem, division rule control.

::tghksj@http://www.cn-dos.net/

::tghksj@http://w.vicp.net/

::Please indicate the source when reprinting. Thank you :) 20070122

@ECHO %DBG% OFF

SETLOCAL ENABLEDELAYEDEXPANSION



:SETUP

SET /P RS=(Press Enter to exit)Enter the number of people:           & IF NOT DEFINED RS EXIT /B

SET /P PG=(Press Enter to exit)Enter the number of apples:         & IF NOT DEFINED PG EXIT /B

SET /P ZS=Enter the minimum number of apples each person gets:         & IF NOT DEFINED ZS EXIT /B

SET /A ZD=%PG% - (%RS% - 1)*%ZS%,f=0,g=%RS% - 1,j=%RS% - 2

IF %ZD% LSS %ZS% (ECHO Impossible, re-enter. & GOTO :SETUP)

FOR /L %%i IN (1,1,%RS%) DO (SET /A R%%i=!ZS! & IF!RS!==%%i SET /A R%%i=!ZD!)



:MAIN

CALL :PRI & IF %R1%==%ZD% GOTO :EOF

IF!R%RS%!==%ZS% (

                  CALL :GUI & CALL :JIN & CALL :ADD

                  SET /A R%RS%=%PG% -!h!,j=%RS% - 2

                  GOTO :MAIN

                  )

SET /A R%RS% -=1,R%g% +=1

GOTO :MAIN



:PRI

FOR /L %%i IN (1,1,%RS%) DO SET /P=!R%%i! <NUL

SET /A f +=1 & ECHO :!f!

GOTO :EOF



:GUI

FOR /L %%i IN (%j%,1,%g%) DO (IF %%i NEQ %j% SET /A R%%i=%ZS%)

GOTO :EOF



:JIN

SET /A R%j% +=1

CALL :ADD

SET /A h=%h% +(%ZS% - 1)

IF %h%==%PG% (SET /A j -=1 & CALL :GUI & CALL :JIN)

GOTO :EOF



:ADD

SET /A h=0

FOR /L %%i IN (1,1,%g%) DO (SET /A h +=!R%%i!)

GOTO :EOF

[ Last edited by tghksj01 on 2007-1-31 at 04:20 PM ]

Long time no see. I optimized the code a bit. Give it a thumbs up. Passers - by, please evaluate.

----------------
Went to the city today to participate in the computer skills competition, but the ranking was fixed again....郁闷...

Make sure to see clearly!

Although I can't understand it all, I admire it

I really envy, when will I be able to reach this level?

VBS indeed has inherent advantages... This is fully reflected in the code competition in this post.

The same "exhaustive collision test algorithm"

VBS's:

if a+b+c+d+e=ccur(i) then

is much faster than the batch processing's:

set /a num=%%i+%%j+%%k+%%l+%%m

if !num! equ %input% (...)

to an astonishing degree....

Does VBS automatically optimize the algorithm during execution?

Its speed is almost comparable to the "segmentation method rule control" algorithm on floor 10.

The "function" on floor 10 is already the ultimate algorithm.. but the speed is comparable to the exhaustive method of VBS code...

It seems that batch processing is okay for saving some effort, but it's a bit incompetent when it comes to complex calculations....