Skip to content

Commit 4060084

Browse files
ThijsRayThijsRay
committed
Add working Piet program with absolute operator in it
1 parent bd3c95b commit 4060084

File tree

2 files changed

+112
-61
lines changed

2 files changed

+112
-61
lines changed

‎contents/euclidean_algorithm/code/piet/euclidian_algorithm.piet

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -52,7 +52,7 @@ not 1/0 BA // 1 if a = b and 0 if a ≠ b
5252
not 0/1 BA // 1 if a ≠ b and 0 if a = b
5353
pointer BA
5454

55-
// Go down if a ≠ b
55+
// Go left if a ≠ b
5656
duplicate BBA
5757
push 3 3BBA
5858
push 2 23BBA
@@ -90,7 +90,7 @@ pointer BA
9090
subtract BA // B = B - A
9191
// Go back to start of loop
9292

93-
// Go right if a = b (end of while loop)
93+
// Go down if a = b (end of while loop)
9494
pop A
9595
out(number) -
9696

‎contents/euclidean_algorithm/code/piet/subtract/euclidian_algorithm_subtract.ppm

Lines changed: 110 additions & 59 deletions
Original file line numberDiff line numberDiff line change
@@ -1,95 +1,146 @@
11
P3
22
# a piet program euclidian_algorithm_subtract.ppm
3-
25 25
3+
31 30
44
255
5-
255 0 0 192 192 255 0 192 0 192 0 0 192 0 0 255 192 192
6-
255 192 192 255 0 0 0 0 192 0 192 0 0 192 0 192 255 192
7-
0 255 0 192 0 0 255 255 192 0 192 192 255 0 255 0 192 0
8-
0 255 0 0 255 0 0 0 0 192 192 0 0 0 0 255 255 255
9-
255 255 255 255 255 255 255 255 255 0 0 0 192 0 0 0 0 0
10-
255 255 255 255 255 255 255 255 255 255 255 255 0 192 0 255 255 255
11-
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 192 0 0
12-
192 0 0 0 0 0 0 255 0 0 255 0 192 192 0 192 192 0
13-
0 0 0 255 255 255 255 255 255 255 255 255 0 0 0 0 192 0
14-
0 0 0 255 255 255 255 255 255 255 255 255 255 255 255 0 192 0
15-
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
16-
255 255 255 192 0 0 0 0 0 255 255 255 0 0 0 192 192 0
17-
0 0 0 255 255 255 255 255 255 255 255 255 255 255 255 0 0 0
18-
255 255 255 0 0 0 255 255 255 255 255 255 255 255 255 255 255 255
5+
255 255 192 192 0 192 0 192 192 192 255 255 255 255 192 0 255 0
6+
255 0 255 255 255 192 255 255 0 255 255 0 192 192 0 192 255 192
7+
0 192 192 192 255 255 192 192 255 192 0 192 0 255 255 255 255 0
8+
192 192 0 192 0 192 255 192 192 192 255 255 192 0 192 255 192 255
9+
255 192 255 255 0 255 192 0 0 255 255 0 192 192 0 0 192 0
10+
0 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
11+
255 255 255 255 255 255 255 255 255 255 255 0 255 255 255 0 0 0
12+
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
13+
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
14+
255 192 255 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15+
0 0 0 0 255 255 255 255 255 255 255 255 255 255 255 255 255 255
1916
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
20-
255 255 255 255 255 255 255 192 192 0 0 0 255 255 255 255 255 255
2117
0 0 0 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
22-
0 0 0 255 255 255 0 0 0 255 255 255 255 255 255 255 255 255
2318
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
24-
255 255 255 255 255 255 255 255 255 255 192 192 0 0 0 255 255 255
2519
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
26-
255 255 255 0 0 0 255 255 255 0 0 0 255 255 255 255 255 255
20+
0 255 255 255 255 0 255 255 0 255 255 255 255 255 255 255 255 255
2721
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
28-
255 255 255 255 255 255 255 255 255 255 255 255 255 0 0 0 0 0
22+
255 255 255 0 0 0 255 255 255 0 0 0 255 255 255 0 0 0
23+
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
24+
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
25+
0 0 0 0 0 0 0 0 0 255 255 0 255 255 255 255 255 255
2926
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
3027
255 255 255 255 255 255 0 0 0 255 255 255 0 0 0 255 255 255
31-
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
32-
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 0 0 192
3328
0 0 0 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
29+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
30+
255 255 255 255 255 255 255 255 255 255 255 255 192 192 0 255 255 255
31+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
3432
255 255 255 255 255 255 255 255 255 0 0 0 255 255 255 0 0 0
33+
255 255 255 0 0 0 255 255 255 255 255 255 255 255 255 255 255 255
3534
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
36-
255 255 255 255 255 255 255 255 255 255 255 255 0 192 0 0 192 0
37-
0 192 0 0 0 0 255 255 255 255 255 255 255 255 255 255 255 255
38-
255 255 255 255 255 255 255 255 255 255 255 255 0 0 0 255 255 255
39-
0 0 0 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
35+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 192 192 0
4036
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
41-
255 255 255 0 192 0 0 0 0 255 255 255 255 255 255 255 255 255
42-
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 0 0 0
43-
255 255 255 0 0 0 0 0 0 255 255 255 255 255 255 255 255 255
37+
255 255 255 255 255 255 255 255 255 255 255 255 0 0 0 192 192 0
38+
0 0 0 255 192 192 0 0 0 255 255 255 255 255 255 255 255 255
4439
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
45-
255 255 255 255 255 255 192 255 192 0 0 0 255 255 255 255 255 255
4640
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
47-
0 0 0 255 255 255 0 0 0 0 0 0 255 255 255 255 255 255
41+
255 255 192 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
42+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 0 0 0
43+
255 0 0 0 0 0 0 192 0 0 0 0 255 255 255 255 255 255
4844
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
49-
255 255 255 255 255 255 255 255 255 0 255 0 0 0 0 255 255 255
5045
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
51-
255 255 255 0 0 0 255 255 255 0 0 0 255 255 255 255 255 255
46+
255 255 255 255 0 255 255 255 255 255 255 255 255 255 255 255 255 255
5247
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
53-
255 255 255 255 255 255 255 255 255 255 255 255 192 0 0 0 0 0
48+
0 0 0 192 255 192 0 0 0 0 255 0 0 0 0 0 0 0
5449
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
55-
255 255 255 255 255 255 0 0 0 255 255 255 0 0 0 255 255 255
5650
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
57-
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 192 0 0
51+
0 255 255 0 255 255 0 255 255 255 255 255 255 255 255 255 255 255
52+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
53+
255 255 255 0 0 0 0 192 0 0 0 0 192 255 192 0 0 0
5854
0 0 0 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
59-
255 255 255 255 255 255 255 255 255 0 0 0 255 255 255 0 0 0
6055
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
56+
255 255 255 255 255 255 255 255 255 0 255 255 255 255 255 255 255 255
6157
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
62-
255 192 192 0 0 0 255 255 255 255 255 255 255 255 255 255 255 255
63-
255 255 255 255 255 255 255 255 255 255 255 255 0 0 0 255 255 255
58+
255 255 255 255 255 255 0 0 0 0 255 0 0 0 0 192 255 192
6459
0 0 0 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
6560
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
66-
255 255 255 255 0 0 0 0 0 255 255 255 255 255 255 255 255 255
61+
255 255 255 255 255 255 255 255 255 255 255 255 0 192 192 255 255 255
62+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
63+
255 255 255 255 255 255 255 255 255 0 0 0 0 255 0 0 255 0
64+
192 192 0 0 0 0 255 255 255 255 255 255 255 255 255 255 255 255
65+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
66+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 192 255 255
67+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
68+
255 255 255 255 255 255 255 255 255 255 255 255 0 0 0 0 0 255
69+
0 0 0 0 255 255 0 0 0 255 255 255 255 255 255 255 255 255
70+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
71+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
72+
255 255 0 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
6773
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 0 0 0
68-
255 255 255 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
69-
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
70-
0 0 0 0 0 0 0 0 192 0 0 0 255 255 255 255 255 255
74+
255 192 192 0 0 0 192 255 255 0 0 0 255 255 255 255 255 255
7175
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
72-
0 0 0 255 255 255 255 255 255 255 255 255 255 255 255 255 0 255
73-
255 255 192 192 192 0 255 255 0 255 255 0 255 192 192 0 192 0
74-
0 255 0 192 255 192 192 255 192 192 192 0 0 0 0 255 255 255
7576
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
76-
0 0 0 0 0 0 255 255 255 0 0 0 0 0 0 0 0 0
77-
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
78-
0 0 0 0 0 0 0 0 0 192 255 192 192 192 255 0 0 0
77+
255 255 255 0 192 0 255 255 255 255 255 255 255 255 255 255 255 255
7978
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
80-
255 255 255 0 0 0 0 0 0 255 255 255 255 255 255 255 255 255
81-
255 255 255 192 192 0 255 0 0 192 255 192 0 192 0 0 255 0
82-
0 255 0 0 0 0 0 0 0 0 0 0 0 0 0 255 255 255
83-
0 0 0 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
84-
255 255 255 255 255 255 0 0 0 0 0 0 0 0 0 0 0 0
85-
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
86-
0 0 0 0 255 0 0 0 255 255 192 192 192 0 0 255 0 0
87-
255 0 0 0 0 0 255 255 255 255 255 255 255 255 255 255 255 255
79+
0 0 0 192 0 0 0 0 0 0 192 192 0 0 0 255 255 255
80+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
81+
255 255 255 0 255 255 255 255 255 255 255 255 255 255 255 255 255 255
82+
255 255 255 255 255 255 0 0 255 255 255 255 255 255 255 255 255 255
83+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
84+
255 255 255 0 0 0 255 0 0 0 0 0 0 192 192 0 192 192
85+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
86+
255 255 255 255 255 255 0 255 255 255 255 255 255 255 255 255 255 255
87+
255 255 255 255 255 255 255 255 0 255 192 192 255 255 255 255 255 255
88+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
89+
255 255 255 255 255 255 0 0 0 255 0 0 255 255 255 192 0 192
90+
0 255 0 255 0 255 255 255 192 192 192 0 255 255 0 255 255 0
91+
192 255 255 0 192 192 0 255 255 0 255 255 255 0 255 255 255 192
92+
192 192 0 192 192 0 255 255 0 255 255 0 0 255 255 255 255 255
8893
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
8994
255 255 255 255 255 255 255 255 255 255 255 255 0 0 0 0 0 0
90-
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
9195
0 0 0 0 0 0 0 0 0 255 255 255 255 255 255 255 255 255
9296
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
97+
255 255 255 255 255 255 255 255 255 255 255 255 192 255 255 192 255 255
98+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
99+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
100+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
101+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
102+
255 255 255 255 255 255 255 255 255 255 255 255 0 0 0 192 255 255
103+
0 0 0 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
104+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
105+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
106+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
107+
255 255 255 255 255 255 255 255 255 255 255 255 0 0 0 0 255 0
108+
0 255 0 0 255 0 255 255 255 255 255 255 255 255 255 255 255 255
109+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
110+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
111+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
112+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
113+
0 0 0 0 255 0 0 0 0 255 255 255 255 255 255 255 255 255
114+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
115+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
116+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
117+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
118+
255 255 255 255 255 255 0 0 0 255 255 255 255 255 255 255 255 255
119+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
120+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
121+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
122+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
123+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
124+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
125+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
126+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
127+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
128+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
129+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
130+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
131+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
132+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
133+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
134+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
135+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
136+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
137+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
138+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
139+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
140+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
141+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
142+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
143+
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
93144
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
94145
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
95146
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
@@ -106,4 +157,4 @@ P3
106157
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
107158
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
108159
255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
109-
255 255 255
160+

0 commit comments

Comments
 (0)