Langton's ant: Difference between revisions
m
→{{header|Uiua}}: Upscaled image
m (→{{header|Uiua}}: Upscaled image) |
|||
(4 intermediate revisions by 3 users not shown) | |||
Line 2,269:
=={{header|EasyLang}}==
[https://easylang.dev/show/#cod=bZHLDoIwEEX3/Yq7VAlNa0wMifgjhIXhEUiUmopA/94ZKILBJn3k9M70zvReNCiTFFopHHgVT2syvCrTQ0IKAKWxcIih0BpEESNPhw2lUZeU0E3JEJAmgE5JqBcJjYfpCrpzP9AWWQu9Vkqx2qWQkzv7bjgWeW1nk/mQ8CMJ+dE0Q410xM7jUPubEfdVfefnr+z/1uR0vIx++ewW7CbsTXSUaVva3I+/NSNE5wVsNsaOtwBH0nZ76kKOE4u9hgJjLoVEc143IvdF3ASu/6xwUlCCf0p8AA== Run it]
<syntaxhighlight lang="text">
len f[] 100 * 100
proc show . .
for y = 0 to 99
for x = 0 to 99
if f[y * 100 + x + 1] = 1
move x y
rect 1 1
.
.
.
proc run x y dir . .
dx[] = [ 0 1 0 -1 ]
dy[] = [ -1 0 1 0 ]
while x >= 0 and x < 100 and y >= 0 and y < 100
v = f[y * 100 + x + 1]
f[y * 100 + x + 1] = 1 - v
dir = (dir + 2 * v) mod 4 + 1
x += dx[dir]
y += dy[dir]
.
.
</syntaxhighlight>
Line 8,931:
## ############ #
</pre>
=={{header|Uiua}}==
[https://www.uiua.org/pad?src=0_12_0-dev_1__IyBEcmF3IExhbmd0b24ncyBBbnQuCgpOIOKGkCAxMDAKIyBpbml0aWFsaXNlIGRpciBwb3MgbWFwClvCrzEgMF0gWzUwIDUwXSDihq9OX04gMQojIFJ1biB1bnRpbCBvdXQgb2YgYm91bmRzCuKNoigKICDiipko4p-cKOKNnOKKoSgtOjEpKSkKICDin6jijZwo4oqhMXzCrynih4x84oeM4o2cKOKKoTF8wq8p4p-pOuKKmSjiiqEsLCkKICDin5wrCnwg4omlMOKLhS_ihqcKKQojIFNjYWxlIHVwCuKWveKfnOKJoeKWvTTil4zil4wK Run it in Uiua Pad!]
<syntaxhighlight lang="Uiua">
# Draw Langton's Ant.
N ← 100
# initialise dir pos map
[¯1 0] [50 50] ↯N_N 1
# Run until out of bounds
⍢(
⊙(⟜(⍜⊡(-:1)))
⟨⍜(⊡1|¯)⇌|⇌⍜(⊡1|¯)⟩:⊙(⊡,,)
⟜+
| ≥0⋅/↧
)
# Scale up
▽⟜≡▽4◌◌
</syntaxhighlight>
{{out}}
[[File:Uiua Langton's Ant Upscaled.png|thumb|center]]
=={{header|VBA}}==
Line 9,310 ⟶ 9,333:
{{trans|D}}
The textual version only.
<syntaxhighlight lang="
var height = 52
var maxSteps = 12000
|