... /> LET v$(i)=CHR$ (65+RND*25):
NEXT i
90 LET t1=(65536*PEEK 23674+256*PEEK 23673+PEEK 23672)/50:
LET t2=(65536*PEEK 23674+256*PEEK 23673+PEEK ...

... DEF FN t()=65536*PEEK 23674+256*PEEK 23673+PEEK 23672
10 ... 50:
LET o=INT (RND*50)+1: LET n=INT ... (RND*50)+1:
LET o$= ...

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 ...

... DEF FN t()=(PEEK 23672+256*PEEK 23673+65536*PEEK 23674)/50
p$(n)=CHR$ (RND*25+65): NEXT n

... DEF FN t()=(PEEK 23672+256*PEEK 23673+65536*PEEK 23674)/50
p$(n)=CHR$ (RND*25+65): NEXT n

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 ...

[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 ...

... /> 230 LET a=(65536*PEEK 23674+256*PEEK 23673+PEEK 23672)/50:
LET b=(65536*PEEK 23674+256*PEEK 23673+PEEK ... /> LET a$(a)=CHR$ (65+RND*25):
NEXT a:

... DEF FN t()=(PEEK 23672+256*PEEK 23673+65536*PEEK 23674)/50
CHR$ (RND*25+65): NEXT i

... DEF FN t()=(PEEK 23672+256*PEEK 23673+65536*PEEK 23674)/50
RND*25+65): NEXT i

[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 ...

... DEF FN t()=(PEEK 23672+256*PEEK 23673+65536*PEEK 23674)/50
RND*25+65): NEXT i

... /> 220 LET a=(65536*PEEK 23674+256*PEEK 23673+PEEK 23672)/50:
LET b=(65536*PEEK 23674+256*PEEK 23673+PEEK ... /> LET a$(a)=CHR$ (65+RND*25):
NEXT a:

... /> 190 LET a=(65536*PEEK 23674+256*PEEK 23673+PEEK 23672)/50:
LET b=(65536*PEEK 23674+256*PEEK 23673+PEEK ... /> LET a$(a)=CHR$ (65+RND*25):
NEXT a:

... /> 190 LET a=(65536*PEEK 23674+256*PEEK 23673+PEEK 23672)/50:
LET b=(65536*PEEK 23674+256*PEEK 23673+PEEK ... /> LET a$(a)=CHR$ (65+RND*25):
NEXT a:

... should not RANDOMIZE before each RND btw) you are demonstrating ... the numbers initially generated by RND will be very close ... emans the formula used by RND to generate random numbers ... RANDOMIZE yourself. Like "RANDOMIZE PEEK x + 256*PEEK x" where x = address ...

... ="Courier New"]xx10 RANDOMIZE PEEK 23672+256*PEEK 23672[/FONT]

RND*100)[/FONT]

With ... wee loop that executes the RND 10 times.

Paddy

... ="Courier New"]xx10 RANDOMIZE PEEK 23672+256*PEEK 23672[/FONT]

RND*100)[/FONT]

With ... wee loop that executes the RND 10 times.

Paddy ...

... />
[CODE]100 RANDOMIZE PEEK 23672+256*PEEK 23672
110 FOR ... /> 120 LET b=1+INT (RND*100)
130 PRINT b ...

... Courier 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 ...

... RANDOMIZE PEEK...

110 LET a=1+INT(RND*100)

... Coleman;532359]10 RANDOMIZE PEEK 23672+256*PEEK 23672[/QUOTE]
< ... a key press before each PEEK, to ensure a variable ... 20
30 LET a=PEEK 23672
40 IF ... 60
70 LET b=PEEK 23672
80 RANDOMIZE ... /> 120 LET b=1+INT (RND*100)
130 PRINT b ...

... 60
70 POKE 23671, PEEK 23672
100 REM Remaining ... /> 120 LET b=1+INT (RND*100)
130 PRINT b ...

... /> 160 POKE 23563,PEEK 23675: POKE 23564,PEEK 23676: IF P THEN ... LET p=INT (RND*7): LET i=INT (RND*7): IF p ...

... 6*RND:IF RND < .03 THEN CLS
3 POKE v, PEEK ... v-2: PLOT 255*RND,175*RND: DRAW 99*RND, 99*RND, v*RND:POKE ... v,PEEK v+2 ...

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 ...

... 63797
3400 LET m=PEEK 23672:
IF m=0 ... ,m:
PAUSE 1+INT (RND*31):
NEXT h[/CODE ...

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< ...

... =48304 TO 48443: POKE f,PEEK (f+9): NEXT f: POKE ... 49359 STEP -1: POKE f,PEEK (f-2): NEXT f: POKE ... : 0b 8f 05 REG(143)+=RND(5) ;
e31a: 01 93 ... : 0b 8f 05 REG(143)+=RND(5) ;
e31a: 01 93 ...

... : PRINT AT y,x; PAPER RND*7;" ": NEXT x: NEXT y ... 23231: POKE a,PEEK a-(64 AND PEEK a>64): NEXT ...