This is a maze generator in 191 characters.
t={-2,2}function g(x,y)if(pget(x,y)<7)return line(x,y)::l::r=rnd(t)if(rnd(2)>1)then g(x+r,y)else g(x,y+r)end line(x,y)if(rnd(99)>1)goto l end cls(7)g(0,0)pal(7,8,1)pal(6,7,1)::_::flip()goto _ |
This is my first time doing this, let me know if it could be improved.
![](/gfx/set_like0.png)
![](/gfx/top_drop.png)
![](/media/82211/7_realshadowcaster.png)
Depends on what your challenge is.
Your current code is readable, are you you willing to renounce that?
Do you want less characters ? you could do r=rnd({-2,2}) or remove flip() for example.
Do you want more speed ? change the rnd(99) to a lower value. You could probably get a maze instantly if you don't mind getting a few unreached intersections.
Maybe you want to add something ? Like a maze solver or colored pixels chasing each-other for example?
What is the upper limit of character for your challenge ?
![](/gfx/set_like0.png)
![](/gfx/top_drop.png)
![](/media/92447/Logo.png)
@RealShadowCaster Mainly it was just for fun, as I hadn't tried this before! Yeah, I could do r=rnd{-2,2} but then the name wouldn't match the number of characters =p
[Please log in to post a comment]