Langton's ant: Difference between revisions

<lang Phix>sequence grid = repeat(repeat(' ',53100),80100) -- smaller grid to trim the output

integer aX = 4850, aY = 2550, -- (size/start found by trial/err)

gXY, angle = 01 -- ' '/'#'; 0,1,2,3 = NESW

constant dX = {0,-1,0,-1} -- (dY = reverse(dX))

while aX>=1 and aX<=80 100

and aY>=1 and aY<=53100 do

angle = mod(angle+2*gXY+13,4) -- +/-1, ie 0,1,2,3 -> 1,2,3,0 or 3,0,1,2

puts(1,join(grid,"\n"))</lang>

## ############ ##

# #### ## ##

### # ## ## #

# # # # # #

## ## # # ### #

### # # # # ## ## ###

# # ### ## #### ## # # # ## ##

# ### ## # ## ### # # ### ###

# # ##### # # #### # ### # # #

### ## # #### ## ## ###### # ### # #

# ### # ## # # ## ## ## # ##### ### ##

# # # ## ### # # # #### # ##

# # ## ## # ## ## # ##

### # # ## ### # ## # ### ## ## #

# ### ## ## ## ### # # ## #### #

### # # # # # #### ## # ## ### # #

# ### # ## # # ### # ### ## # # ##

### # # ## # ## ## ##### #### #### ## #

# ### # # # # ### # # ## ## # # # # #

### # ## ### ## # ## #### #### # #

# ### # # # ## ########### # #### # # #

### # ## # #### ## ######### # ## # ##

# ### # # ## # ## ## ## ### ### # # ## #### #

### # ## # # ###### ## # ## # # ### ### ## #

# ### # # # ##### # ##### # # ## # ## #

### # ## # # ## ##### ## # # # # ## # # #

# ### # # # # #### # ##### ## ########## ##

### # ## # ## ## # # #### # ## #### ##

# ### # # ##### # ## ## # # # # # # # #

### # ## ## ## # # # ## ## # # ## # ## ##

# ### # # # # # ######## # # ## #### #

### # ## # # # ## ## # # ## #

# ### # # # # # # ## ## ## ####

### # ## ## # ## ## # # ###

## ### # # # ## #### #### ### ####

### # ## ### #### ## # ## # # #

# #### # ## ## ## ## ### ## #####

### # ## # # # ## # ## ###

# ## # ### # # # ####### # # ##

### # ## # # ## ###### # ##

# ###### # ###### # ## # ## #### #

# ## # # # ## #### # # # #### ###

# ### ## ###### # # # ## # # #

### ## ## # ### # ## # ##

## # # # ## ## # #######

# # ## ## ## #### ## ## ####