-
Sorting an array...Hi Folks, Over the weekend I had a play with sorting algorithms - takes me back to my student days! :-o My first try was with the good old Bubble S…
Hi Battle Bunny,
Never ceases to amaze me the difference in performance between BASIC and MCODE. Sounds like you have a powerful routine there.
I have modified my demo version so that it can be used (for future generations ;)) as ... -
Sorting an array...Hi Folks, Over the weekend I had a play with sorting algorithms - takes me back to my student days! :-o My first try was with the good old Bubble S…
... ] 1 DEF FN t()=(PEEK 23672+256*PEEK 23673+65536*PEEK ... : LET
p$(n)=CHR$ (RND*25+65): NEXT n
Sorting an array...Hi Folks, Over the weekend I had a play with sorting algorithms - takes me back to my student days! :-o My first try was with the good old Bubble S…
... ] 1 DEF FN t()=(PEEK 23672+256*PEEK 23673+65536*PEEK ... : LET
p$(n)=CHR$ (RND*25+65): NEXT n
Sorting an array...Hi Folks, Over the weekend I had a play with sorting algorithms - takes me back to my student days! :-o My first try was with the good old Bubble S…
Hi Dr Beep etc.
Come on guys - you know more about Sinclair BASIC than is healthy! :smile: Surely you have some tips to optimise/speed up the following code.
[CODE]100 GO SUB 250
110 REM SHELL SORT V4
120 LET b=INT (n ...Sorting an array...Hi Folks, Over the weekend I had a play with sorting algorithms - takes me back to my student days! :-o My first try was with the good old Bubble S…
[QUOTE=JamesD;482918]If you can use ELSE it should look like this.
[CODE]110 REM COMB SORT V2
...[/CODE][/QUOTE]
Hi James,
Coded up your V2 Comb Sort and got the following results:
Paddy's original V1 Comb ...Sorting an array...Hi Folks, Over the weekend I had a play with sorting algorithms - takes me back to my student days! :-o My first try was with the good old Bubble S…
... 23674+256*PEEK 23673+PEEK 23672)/50:
LET b=(65536 ... 23674+256*PEEK 23673+PEEK 23672)/50:
LET a=(a ... /> LET a$(a)=CHR$ (65+RND*25):
NEXT a:
Sorting an array...Hi Folks, Over the weekend I had a play with sorting algorithms - takes me back to my student days! :-o My first try was with the good old Bubble S…
... /> 9000 DEF FN t()=(PEEK 23672+256*PEEK 23673+65536*PEEK ... : LET p$(i)=
CHR$ (RND*25+65): NEXT i
Sorting an array...Hi Folks, Over the weekend I had a play with sorting algorithms - takes me back to my student days! :-o My first try was with the good old Bubble S…
... /> 9000 DEF FN t()=(PEEK 23672+256*PEEK 23673+65536*PEEK ... n: LET p$(i)=CHR$ (RND*25+65): NEXT i
Sorting an array...Hi Folks, Over the weekend I had a play with sorting algorithms - takes me back to my student days! :-o My first try was with the good old Bubble S…
[B]STEP 3 -[/B] Now let's take a look at the quicksort algorithm, since we will need to properly understand it in order to find further improvements.
The basic idea behind the quicksort algorithm can be represented by the following pseudo-code ...Sorting an array...Hi Folks, Over the weekend I had a play with sorting algorithms - takes me back to my student days! :-o My first try was with the good old Bubble S…
... /> 9000 DEF FN t()=(PEEK 23672+256*PEEK 23673+65536*PEEK ... n: LET p$(i)=CHR$ (RND*25+65): NEXT i
Sorting an array...Hi Folks, Over the weekend I had a play with sorting algorithms - takes me back to my student days! :-o My first try was with the good old Bubble S…
... 23674+256*PEEK 23673+PEEK 23672)/50:
LET b=(65536 ... 23674+256*PEEK 23673+PEEK 23672)/50:
LET a=(a ... /> LET a$(a)=CHR$ (65+RND*25):
NEXT a:
Sorting an array...Hi Folks, Over the weekend I had a play with sorting algorithms - takes me back to my student days! :-o My first try was with the good old Bubble S…
... 23674+256*PEEK 23673+PEEK 23672)/50:
LET b=(65536 ... 23674+256*PEEK 23673+PEEK 23672)/50:
LET a=(a ... /> LET a$(a)=CHR$ (65+RND*25):
NEXT a:
Sorting an array...Hi Folks, Over the weekend I had a play with sorting algorithms - takes me back to my student days! :-o My first try was with the good old Bubble S…
... 23674+256*PEEK 23673+PEEK 23672)/50:
LET b=(65536 ... 23674+256*PEEK 23673+PEEK 23672)/50:
LET a=(a ... /> LET a$(a)=CHR$ (65+RND*25):
NEXT a:
Random numbers...Hi Folks, I am not an expert when it comes to random numbers. If I have the RANDOMIZE statement the beginning of a program and then proceed to gene…
... New"]xx10 RANDOMIZE PEEK 23672+256*PEEK 23672[/FONT]
there ... "]x100 LET a=1+INT(RND*100)[/FONT]
With ... wee loop that executes the RND 10 times.
PaddyRandom numbers...Hi Folks, I am not an expert when it comes to random numbers. If I have the RANDOMIZE statement the beginning of a program and then proceed to gene…
... New"]xx10 RANDOMIZE PEEK 23672+256*PEEK 23672[/FONT]
there ... "]x100 LET a=1+INT(RND*100)[/FONT]
With ... wee loop that executes the RND 10 times.
Paddy ...Random numbers...Hi Folks, I am not an expert when it comes to random numbers. If I have the RANDOMIZE statement the beginning of a program and then proceed to gene…
... /> [CODE]100 RANDOMIZE PEEK 23672+256*PEEK 23672
110 FOR a ... /> 120 LET b=1+INT (RND*100)
130 PRINT b ...Random numbers...Hi Folks, I am not an expert when it comes to random numbers. If I have the RANDOMIZE statement the beginning of a program and then proceed to gene…
... New"]xx10 RANDOMIZE PEEK 23672+256*PEEK 23672[/FONT]
RND*100)[/FONT]
RND 10 times.
[/ ... CODE]100 RANDOMIZE PEEK 23672+256*PEEK 23672
110 FOR ... 120 LET b=1+INT (RND*100)
130 PRINT ...Random numbers...Hi Folks, I am not an expert when it comes to random numbers. If I have the RANDOMIZE statement the beginning of a program and then proceed to gene…
... ;532359]10 RANDOMIZE PEEK 23672+256*PEEK 23672[/QUOTE]
Actually ...
30 LET a=PEEK 23672
40 IF INKEY$"" THEN ...
70 LET b=PEEK 23672
80 RANDOMIZE a*256 ... /> 120 LET b=1+INT (RND*100)
130 PRINT b ...Random numbers...Hi Folks, I am not an expert when it comes to random numbers. If I have the RANDOMIZE statement the beginning of a program and then proceed to gene…
...
70 POKE 23671, PEEK 23672
100 REM Remaining program ... /> 120 LET b=1+INT (RND*100)
130 PRINT b ...Xor-shift random number generator for Z80[QUOTE=Patrik Rak;320244]Come on, people, [URL="http://www.jstatsoft.org/v08/i14/paper"]xor-shift generators[/URL] devised by Marsaglia, that's the w…
Hi Patrik,
Sorry to bother you again but I have noticed a "funny" issue. Now I fully accept it might be down to me and the way I altered the machine code or a bug in BASin. When I run the attached program for the first time in BASin the ...Xor-shift random number generator for Z80[QUOTE=Patrik Rak;320244]Come on, people, [URL="http://www.jstatsoft.org/v08/i14/paper"]xor-shift generators[/URL] devised by Marsaglia, that's the w…
...
3400 LET m=PEEK 23672:
IF m=0 THEN ... ,m:
PAUSE 1+INT (RND*31):
NEXT h[/CODE ...Xor-shift random number generator for Z80[QUOTE=Patrik Rak;320244]Come on, people, [URL="http://www.jstatsoft.org/v08/i14/paper"]xor-shift generators[/URL] devised by Marsaglia, that's the w…
Thanks Philip. Mofied program now looks like:
[CODE]100 REM Fast
110 REM
120 REM Create MCODE
130 REM
140 CLEAR 63793
150 RESTORE 620: LET a=63798
160 READ v: IF v255-(256-42*INT (256/42)) THEN GO TO 340< ...Help needed... RND in machine codeI have been battling away trying to convert a simple BASIC routine (below) to machine code, but to no avail. The routine is used to fire 2 bullets a…
... /> I use the timer from 23672 as seed and pointer in ... ROM.
When RND is read I adjust the ...WibbleBibble's Basic threadHi in an attempt to keep my questions from spamming the forum. I think its better to put them all in one place. Thanks everyone so far, I feel I am …
... ()=INT ((PEEK 23673*256+PEEK 23672)/50)
30 FOR n ... ,1,142
50 POKE 23672,0: POKE 23673,0
Problem With POINT StatementHello everyone this is my first ever post, So firstly i'd like to say hello to everyone and secondly thank you to the admins for such a great site, …
... /> =CHR$ 16+CHR$ INT (RND*8)+CHR$ 17+CHR$ INT ... (RND*8)+CHR$ (a+143):
RND*21): LET ca=INT (RND*31):
... LET rz=INT (RND*21): LET ... cz=INT (RND*31)
803 ...
