Langton's ant: Difference between revisions

Content added Content deleted
(→‎{{header|Run BASIC}}: Fix chirality of text output.)
(→‎{{header|Run BASIC}}: Toggle before moving, not after (actual source of chirality problem))
Line 2,427: Line 2,427:
if nxt > 4 then nxt = 1
if nxt > 4 then nxt = 1
end if
end if

plane(x,y) = (plane(x,y) <> 1)
x = x + (nxt = 2) - (nxt = 4)
x = x + (nxt = 2) - (nxt = 4)
y = y + (nxt = 3) - (nxt = 1)
y = y + (nxt = 3) - (nxt = 1)
plane(x,y) = (plane(x,y) <> 1)
my = min(y,my)
my = min(y,my)
wend
wend
Line 2,447: Line 2,448:
output
output
Ouptut (Produces both character and graphic):[[File:LogansAnt.png|right|graphic]]
Ouptut (Produces both character and graphic):[[File:LogansAnt.png|right|graphic]]
<pre style="height: 40ex; overflow: scroll"> ## ############ ## 27
<pre style="height: 40ex; overflow: scroll"> 20
## # #### # 28
## 21
# ## ## ### 29
## 22
# # # # # # 30
## ## ### ## # 23
# ### # # ## ## 31
# ## ### #### # # 24
### ## ## # # # # ### 32
# ## # ## ## # # 25
## ## # # # ## #### ## ### # # 33
## # # ####### ### ## 26
### ### # # ### ## # ## ### # 34
# # # ## # # ##### # # 27
# # # ### # #### # # ##### # # 35
### # #### ## ### # ## 28
# # ### # ###### ## ## #### # ## ### 36
## # # ## # # ## #### ###### 29
## ### ##### # ## ## ## # # ## # ### # 37
# # # # ## ## # # ##### # 30
## # #### # # # ### ## # # # 38
### ## # # # ##### # ## # ### 31
## # ## ## # ## ## # # 39
## ## ### ## ### ## #### # # 32
# ## ## ### # ## # ### ## # # ### 40
### ### # # # ### # # ## 33
# #### ## # # ### ## ## ## ### # 41
# # ######### ##### #### 34
# # ### ## # ## #### # # # # # ### 42
### ### ## # # # ## # 35
## # # ## ### # ### # # ## # ### # 43
##### ##### ## ##### # # # 36
# ## #### #### ##### ## ## # ## # # ### 44
## # ####### ### ###### ##### # ### 37
# # # # # ## ## # # ### # # # # ### # 45
# ## ## ### # # # # # # 38
# # #### #### ## # ## ### ## # ### 46
### ### # ## ## # # ## # 39
# # # #### # ########### ## # # # ### # 47
# # # # # ##### # # ## 40
## # ## # ######### ## #### # ## # ### 48
## ### # # ## ## # # # 41
# #### ## # # ### ### ## ## ## # ## # # ### # 49
# # # # # # ## # # ### ## # 42
# ## ### ### # # ## # ## ###### # # ## # ### 50
# ### # # # # #### ## ## #### 43
# ## # ## # # ##### # ##### # # # ### # 51
# ## ### ## # # # #### # ## 44
# # # ## # # # # ## ##### ## # # ## # ### 52
# ## ### # #### ### ## ## 45
## ########## ## ##### # #### # # # # ### # 53
# ### ### ### ## # # 46
## #### ## # #### # # ## ## # ## # ### 54
# # # # #### #### ## ## 47
# # # # # # # # ## ## # ##### # # ### # 55
# ## ### ## # ## #### ### # # 48
## ## # ## # # ## ## # # # ## ## ## # ### 56
# # # ##### # # ### ### 49
# #### ## # # ######## # # # # # ### # 57
# #### # ### ## ### # # # 50
# ## # # ## ## # # # ## # ### 58
# # ## ## ## #### ## ## #### 51
#### ## ## ## # # # # # # ### # 59
# # ## ## # ####### 52
### # # ## ## # ## ## # ### 60
### ## ## # ### # ## # # 53
#### ### #### #### ## # # # ### # 61
### ## ###### # # #### # 54
# # # ## # ## #### ## ## # ### 62
# ## # ## ## #### # ## #### # 55
##### ## ### ## ## ## # # ### # 63
# ####### ###### # ## # # # 56
#### # ## # ## # ### 64
# # ## # # ## ###### # # 57
## ## ## # # ### # 65
# ## ### # # ####### # ## 58
## ## # ### 66
## # ## # # # ## # ## ### 59
# #### ## # # # ### # 67
###### ## ##### # 60
### ### # # ## # ### 68
# # ##### # # # 61
# # # ## # # # ### # 69
## # # ## # # 62
## ## ## # ### 70
## # ## # ## # ### 63
## # # ## 71
# ## # # # # ### 64
## # ###72
# #### ## # # # 65
# # # # 73
### # # ### #### 66
## #### 74
# ## ## ## # 67
# ## # 75
## ## # ### 68
#### 76
## # ## ## # 69
## 77</pre>
## # ### 70
# ## ## # 71
## # ### 72
# ## ## # 73
## # ### 74
# ## ## # 75
## # ### 76
# ## ## # 77
## # ### 78
# ## ## # 79
## # ### 80
# ## ## # 81
## # ### 82
# ## ## # 83
## # ### 84
# ## ## # 85
## # ### 86
# ## ## # 87
## # ### 88
# ## ## # 89
## # ### 90
# ## ## # 91
## # ### 92
# ## ## # 93
## # ### 94
# ## ## # 95
## # ##### 96
# # #### 97
## ### # 98
# # ## 99
100
</pre>


=={{header|Scala}}==
=={{header|Scala}}==