13 lines
230 B
Text
13 lines
230 B
Text
# Draw Langton's Ant.
|
|
|
|
N ← 100
|
|
# initialise dir pos map
|
|
[¯1 0] [50 50] ↯N_N 1
|
|
# Run until out of bounds
|
|
⍢(⊙⟜⍜⊡¬
|
|
˜⨬(⍜⊡₁¯⇌|⇌⍜⊡₁¯)⊙◡⊡
|
|
⟜+
|
|
| ≥0⋅/↧
|
|
)
|
|
# Scale up
|
|
▽⟜≡▽4◌◌
|