Web   ·   Wiki   ·   Activities   ·   Blog   ·   Lists   ·   Chat   ·   Meeting   ·   Bugs   ·   Git   ·   Translate   ·   Archive   ·   People   ·   Donate
summaryrefslogtreecommitdiffstats
path: root/samples/square.ta
diff options
context:
space:
mode:
Diffstat (limited to 'samples/square.ta')
-rwxr-xr-xsamples/square.ta68
1 files changed, 68 insertions, 0 deletions
diff --git a/samples/square.ta b/samples/square.ta
new file mode 100755
index 0000000..7cc3252
--- /dev/null
+++ b/samples/square.ta
@@ -0,0 +1,68 @@
+(lp0
+(I0
+S'repeat'
+p1
+I853
+I277
+(lp2
+NaI1
+aI2
+aNatp3
+a(I1
+(S'number'
+p4
+I4
+tp5
+I939
+I286
+(lp6
+I0
+aNatp7
+a(I2
+S'forward'
+p8
+I948
+I326
+(lp9
+I0
+aI3
+aI4
+atp10
+a(I3
+(g4
+I200
+tp11
+I1022
+I335
+(lp12
+I2
+aNatp13
+a(I4
+S'right'
+p14
+I948
+I365
+(lp15
+I2
+aI5
+aNatp16
+a(I5
+(g4
+I90
+tp17
+I1022
+I374
+(lp18
+I4
+aNatp19
+a(I-1
+S'turtle'
+p20
+F2.8421709430404007e-14
+F-3.6738190614671318e-14
+F0.0
+I0
+I50
+I5
+tp21
+a. \ No newline at end of file