Random maze generator ;-)

Page 2/2
1 |

By wolf_

Ambassador_ (9766)

wolf_'s picture

24-08-2019, 11:27

Well, it could be a one-liner...

1screen1:keyoff:z=rnd(-time):fork=0to1step0:printchr$(203.5+rnd(1));:next

By Manuel

Ascended (15628)

Manuel's picture

24-08-2019, 11:31

So, this is ARTRAG's from 2012:

10 screen 1:width 32: key off
20 print chr$(1)+chr$(92+rnd(1)*3);:  goto 20

Resulting in:

Then NYYRIKKI's take in 2013:

10 SCREEN1:KEYOFF:FORI=0TO0:PRINTCHR$(1);CHR$(93.5+RND(1));:I=INKEY$="":NEXT

Gives similar output as ARTRAG's, but not the same:

And ARTRAG topped it off with a C program with solution included:

By ImATrackMan

Expert (87)

ImATrackMan's picture

24-08-2019, 12:41

10 PRINTCHR$(1)+CHR(25.5+64)+RND(1)*4);:GOTO10

is the closest thing I could find for Japanese computers. Since they don't have a \, you're forced to use a range of graphics characters.

By ARTRAG

Enlighted (6229)

ARTRAG's picture

24-08-2019, 14:57

long time has passed. I was the first to have forgotten those old threads and the maze solver.

Page 2/2
1 |