Langton's ant: Difference between revisions
Content added Content deleted
m (→{{header|APL}}: slow updates down a bit so RIDE can keep up) |
(Applesoft BASIC) |
||
Line 623: | Line 623: | ||
..............................⌺⌺....................................................................</pre> |
..............................⌺⌺....................................................................</pre> |
||
=={{header|Applesoft BASIC}}== |
|||
{{trans|BBC BASIC}} |
|||
<syntaxhighlight lang="gwbasic"> 100 HGR |
|||
110 HCOLOR= 3 |
|||
120 LOMEM: 16384 |
|||
130 DEF FN M4(N) = N - INT (N / 4) * 4 |
|||
140 READ Y(0),X(1),Y(2),X(3) |
|||
150 DATA 1,1,-1,-1 |
|||
160 LET FS = 100 |
|||
170 DIM F%(FS,FS) |
|||
180 LET X = INT (FS / 2) |
|||
190 LET Y = X |
|||
200 FOR Q = 0 TO 1 STEP 0 |
|||
210 LET F = F%(X,Y) = 0 |
|||
220 LET F%(X,Y) = F |
|||
230 LET D = D + F * 2 - 1 |
|||
240 HPLOT X * 3,220 - Y * 3 TO X * 3 + 1,220 - Y * 3 TO X * 3 + 1,221 - Y * 3 TO X * 3,221 - Y * 3 |
|||
250 LET D = FN M4(D + 4) |
|||
260 LET X = X + X(D) |
|||
270 LET Y = Y + Y(D) |
|||
280 LET Q = X > FS OR X < 0 OR Y > FS OR Y < 0 |
|||
290 NEXT Q</syntaxhighlight> |
|||
=={{header|AutoHotkey}}== |
=={{header|AutoHotkey}}== |
||
ahk forum: [http://ahkscript.org/boards/viewtopic.php?f=17&t=1363 discussion] |
ahk forum: [http://ahkscript.org/boards/viewtopic.php?f=17&t=1363 discussion] |