aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

March 2014 update

Browse source
This commit is contained in:
Ingy döt Net 2014-04-02 16:56:35 +00:00
parent 09687c4926
commit a25938f123
1846 changed files with 21876 additions and 5203 deletions
Download patch file Download diff file Expand all files Collapse all files

13
Task/Langtons-ant/TI-83-BASIC/langtons-ant.ti-83
View file

@ -1,19 +1,18 @@
PROGRAM:LANT
:ClrDraw
:0→N
:Pxl-On(0,0)
:47→X
:31→Y
:47→A
:31→B
:90→Θ
:Repeat getKey
:If pxl-Test(Y,X)
:If pxl-Test(B,A)
:Then
:Θ+90→Θ
:Else
:Θ-90→Θ
:End
:Pxl-Change(Y,X)
:X+cos(Θ°)→X
:Y+sin(Θ°)→Y
:Pxl-Change(B,A)
:A+cos(Θ°)→A
:B+sin(Θ°)→B
:N+1→N
:End