Guess Number

[DANILIN]

Theme "Guess number" has disappeared and given usefulness
I create theme again remembering programs

Later there will be a repeat of program where
computer guesses 1 out of a billion for logarithmic number of steps

Now a my curiosity:
Single-line "Guess Number" program QBasic QB64 from Russia

Code: QB64: [Select]

1. 1 IF Russia = 0 THEN Russia = 2222: RANDOMIZE TIMER: num = INT(RND * 100) + 1: GOTO 1 ELSE IF Russia <> 0 THEN INPUT n: IF n < num THEN PRINT "MORE": GOTO 1 ELSE IF n > num THEN PRINT "less": GOTO 1 ELSE IF n = num THEN PRINT "da": END ELSE GOTO 1 'DANILIN Russia 9-9-2019 guessnum.bas
2.  

An array of programs in many languages and a similar topic here:

http://rosettacode.org/wiki/Guess_the_number#BASIC
rosettacode.org/wiki/Guess_the_number

http://rosettacode.org/wiki/Guess_the_number/With_feedback_(player)#BASIC
rosettacode.org/wiki/Guess_the_number/With_feedback_(player)

Hi Lo without Secret Number?
https://qb64.org/forum/index.php?topic=3120.30

Update: program better view

1 IF Russia = 0 THEN Russia = 2222: RANDOMIZE TIMER: num = INT(RND * 100) + 1: GOTO 1 ELSE IF Russia <> 0 THEN INPUT n: IF n < num THEN PRINT "MORE": GOTO 1 ELSE IF n > num THEN PRINT "less": GOTO 1 ELSE IF n = num THEN PRINT "da": END ELSE GOTO 1 'DANILIN Russia 9-9-2019 guessnum.bas

[bplus]

Missed Danilin entry for Hi Lo Game without secret number!
https://www.qb64.org/forum/index.php?topic=3120.msg123881#msg123881

And here is my one liner in case you forgot or can't find old posts like me:

Code: QB64: [Select]

1. 1 If U = S Then S = Int(Rnd * 98) + 1: GoTo 1 Else If U <> S Then Input "0<Guess<99="; U: If U = S Then Print "=": GoTo 1 Else If U < S Then Print "+": GoTo 1 Else Print "-": GoTo 1
2.  

US many bytes shorter than Russia one. :)

[DANILIN]

Using principle of guess number and less \ more
knowing date i found your message:

September 12, 2019, 09:59:10 AM

Your program still needs RANDOMIZE TIMER

But my message is earlier
September 12, 2019, 06:07:54 AM

Russian anecdote from 18 century:

2 athletes compete: Russian and American
American athlete finished 2nd
Russian athlete finished penultimate

[bplus]

2 athletes compete: Russian and American
American athlete finished 2nd
Russian athlete finished penultimate

Yes that the American should finish 2nd would be more notable than the other thing mentioned last. ;-))

[SMcNeill]

Yes that the American should finish 2nd would be more notable than the other thing mentioned last. ;-))

Back in college, my teacher used something like this to discuss propaganda in the media.

The facts:  A race was held between an American and a Russian, and the American won.

American propaganda headline:  International Race results are in!  America comes in first.  Russia, dead last!

Russian propaganda headline: International Race results are in.  Mother Russia gets second place finish, while America comes in second to last!

*ALL* the news articles are 100% true and valid, but the *perception* they generate is what’s the propaganda — and in today’s world, we see this slant on almost *ALL* news stories.

[DANILIN]

I welcome all answers and now

Program from year 2019 damilliiard.bas is guessing integral differential
numbers cyclopean by approaches logarithmic

It's just not clear how to go into even bigger numbers

Code: QB64: [Select]

1. 'daMilliard.bas
2. RANDOMIZE TIMER
3. t = 0: h1 = 0: h2 = 10^7
4. human = INT(RND*h2) 'human
5. comp = 1 'INT(RND*h2) 'comp
6. 10 t = t+1: PRINT t; "human ="; human; "     comp ="; comp;
7. IF comp < human THEN PRINT "MORE": a = comp: comp = INT((comp+h2)/2): h1 = a: GOTO 10
8. IF human < comp THEN PRINT "less": a = comp: comp = INT((h1+comp)/2): h2 = a: GOTO 10
9. PRINT "win by "; t; " steps"
10. END

Results for diapason 1 from 10^7

Code: [Select]

1  human = 1326126     comp = 1928303  less
2  human = 1326126     comp = 964151  MORE
3  human = 1326126     comp = 1446227  less
4  human = 1326126     comp = 1205189  MORE
5  human = 1326126     comp = 1325708  MORE
6  human = 1326126     comp = 1385967  less
7  human = 1326126     comp = 1355837  less
8  human = 1326126     comp = 1340772  less
9  human = 1326126     comp = 1333240  less
10  human = 1326126     comp = 1329474  less
11  human = 1326126     comp = 1327591  less
12  human = 1326126     comp = 1326649  less
13  human = 1326126     comp = 1326178  less
14  human = 1326126     comp = 1325943  MORE
15  human = 1326126     comp = 1326060  MORE
16  human = 1326126     comp = 1326119  MORE
17  human = 1326126     comp = 1326148  less
18  human = 1326126     comp = 1326133  less
19  human = 1326126     comp = 1326126  win by 19 steps
Update: online compilator c#

rextester.com/BEVKB31555

In light of above: Song of Day:

[bplus]

Care to try Floats? :)

I am thinking of a number between 1 and 2...

[SMcNeill]

Care to try Floats? :)

I am thinking of a number between 1 and 2...

Well, since precision limits at X number of digits (depending on SINGLE, DOUBLE, _FLOAT), even then the answer would be doable with enough binary guesses.  ;)

[DANILIN]

Answers to 2 past answers: logarithm

=LOG(10^9;2)
=30 steps

what I write at once: numbers are cyclopean
and number of steps is logarithmic

Logarithm: those who understand think faster

My express lecture over 5 years ago from 2010++ years about...

Logarithm of Life

annually something changes in multiple

? through what QUANTITY of years is
something will give growth in right scale ?

SCALE is: GROWTH to extent of QUANTITY

SCALE = GROWTH ^ QUANTITY

QUANTITY: to what extent do you build
GROWTH to get SCALE

LOGARIFM: to what extent to erect
GROWTH to get SCALE

excel formula: QUANTITY = ...

=LOG(SCALE;GROWTH)

check: something annually grows 2 times

? in how many years
something will grow 64 times ?

SCALE = GROWTH ^ YEARS
64 = 2 ^ YEARS
YEAR = LOG(SCALE;GROWTH)
= LOG(64;2)
= 6
answer: over 6 years

example: over 25 years of inflation
devalued money 12 times

? what was inflation every year ?
? what was logarithm of inflation ?

? what should be growth to something
would have grown 12 times over 25 years ?

YEAR = LOG (SCALE;GROWTH)
GROWTH = SCALE ^ (1 / YEARS)

GROWTH = 12 ^ (1/25)
GROWTH = 1.1045 = 10.5 % per year

translate to same logarithm:
decimal: = LOG (SCALE) / LOG (GROWTH)
natural: = LN (SCALE) / LN (GROWTH)

 

[DANILIN]

Formula include Logarithm is checked through Math package

 

Example: if multiplier is 12 for 15 years: inflation =12^(1/15) = +18%.
Example: if multiplier is 12 and inflation is 1.18: =LOG(12)/LOG(1.18) = 15 years.


So I'm interested in: do you use WolframAlpha ?

 

In general a dozen formulas have been tested...

[_vince]

In general a dozen formulas have been tested...

is there a document confirming this formula?

[DANILIN]

formula is proved logically purely from definition of logarithm:
to what degree to raise to get
and I first solved it in numbers
and then understanding was translated into chains of formulas

https://wolframalpha.com/input/?i=solve+C%2B%281-p%29%5EN%3D1+for+N

https://mathsolver.microsoft.com/ru/solve-problem/C+%7B%60left(1-P%60right)%7D%5E%7BN%7D%3D1

plus formulas of compound percentage
are also derived logarithmically with checks

Visual Mathematics & DANILIN Russians formulas

500 KB = 0,5 MB

Russia & USA
http://kenokeno.ucoz.ru/doc/davizmath.pdf

Only english USA
http://kenokeno.ucoz.ru/doc/davizeng.pdf

[_vince]

I was looking for something more official, but I found it!

[DANILIN]

This forum included topic of 2019-2020 No. 1976:
approximately "Randomness and probability waves and we"
I do not remember exact name

Where we discussed with several ones even after analyzing and understanding formulas
but then topic went to off-topic and into archive and disappeared
and I can't find copies anywhere but my messages are same everywhere
and only answers of local ones are practically lost

Parallel english topic:
https://csharpforums.net/threads/falsification-of-probability.5109/page-2#post-15349

Internet Visual Mathematica