Langton's ant: Difference between revisions

Line 12:

=={{header|Ada}}==

{{incorrect|Ada|The chirality of the output is reversed, meaning the ant is turning left when the spec says it should turn right, and vice-versa.}}

<lang Ada>with Ada.Text_IO;

Line 48:

Line 47:

begin

loop -- iterate the loop until an exception is raised

⚫

Is_Black(Ant_X, Ant_Y) := not Is_Black(Ant_X, Ant_Y);

if Is_Black(Ant_X, Ant_Y) then

Left(Ant_North, Ant_West);

Line 54:

Line 52:

Right(Ant_North, Ant_West);

end if;

⚫

Is_Black(Ant_X, Ant_Y) := not Is_Black(Ant_X, Ant_Y);

Ant_X := Ant_X - Ant_North; -- this may raise an exception

Ant_Y := Ant_Y - Ant_West; -- this may raise an exception

Line 71:

Line 70:

</lang>

Ouptut (to save space, I have removed the all-blank lines):[[File:Ada_Langton.png|right|thumb|Output png]]

<pre style="height:30ex;overflow:scroll"> ## ############ ##

## # ~~####~~ #

# #### # ##

# ## ## ###

### ## ## #

# # # # # #

# ### # # ## ##

## ## # # ### #

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

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

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

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

~~###~~ ### # # ### ## # ## ### #

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

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

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

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

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

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

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

## # ~~####~~ # # # ### ## # # #

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

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

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

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

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

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

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

# # ~~###~~ ## # ## #### # # # # # ~~###~~

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

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

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

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

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

# # # # # ## ## # # ### # # # # ~~###~~ #

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

# # #### #### ## # ## ### ## # ~~###~~

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

# # # #### # ########### ## # # # ~~###~~ #

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

## # ## # #~~####~~#### ## #### # ## # ###

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

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

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

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

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

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

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

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

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

## ########## ## ##### # #### # # # ~~# ### #~~

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

## #### ## # ~~###~~# # # ## ## # ## # ~~###~~

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

# # # # # # # # ## ## # ~~####~~# # # ~~###~~ #

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

## ## # ## # # ## ## # # # ## ## ## # ~~###~~

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

# ~~####~~ ## # # ######## # # # ~~# # ### #~~

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

# ## # # ## ## # # # ## # ~~###~~

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

~~####~~ ## ## ## # # # # # # ~~###~~ #

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

~~###~~ # # ## ## # ## ## ~~# ###~~

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

~~####~~ ~~###~~ ~~####~~ ~~####~~ ## # # # ~~###~~ #

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

# # # ## # ## ~~####~~ ## ## # ~~###~~

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

~~#####~~ ## ~~###~~ ## ## ## # # ~~###~~ #

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

~~####~~ # ## # ## # ~~###~~

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

## ## ## # # ~~###~~ #

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

## ## # ~~###~~

### # ## ##

# ~~####~~ ## # # # ~~###~~ #

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

~~###~~ ~~###~~ # # ## # ~~###~~

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

# # # ## # # # ~~###~~ #

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

## ## ## # ~~###~~

### # ## ## ##

## # # ~~###~~ #

## # # ##

## # ~~###~~

## # ##

# # # # #

# # # #

## ~~####~~

#### ##

# ## #

~~####~~

####

##

# Iteration: ~~11670~~

# Iteration: 11656

</pre>