-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path⍙⏃⋉⋏⏁⏚
72 lines (61 loc) · 6.1 KB
/
⍙⏃⋉⋏⏁⏚
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
⏁⊑⟒ ☊⊑⟟⌰⎅ ☊⍀⏃⍙⌰⟒⎅ ⟟⋏⏁⍜ ⏁⊑⟒ ⎅⟒⋏⌇⟒ ☌⍀⏃⌇⌇. ⊬⍜⎍ ☊⏃⋏⋏⍜⏁ ⏚⍀⟒⍙ ⏁⟒⏃ ⟟⋏ ⏃ ☊⍜⌰⎅ ⌿⍜⏁.⏚⍀⟒⏃☍ ⊑⏃⋏⎅⌰⟟⋏☌ ⎍⏁⟟⌰⟟⏁⟟⟒⌇ ⋔⍜⎅⎍⌰⟒
⏁⟟⏁⌰⟒ ⏚⍀☍2 -- ⏚⍀⟒⏃☍ ⊑⏃⋏⎅⌰⟟⋏☌ ⎍⏁⟟⌰⟟⏁⟟⟒⌇ ⋔⍜⎅⎍⌰⟒
⏁⍀⎍⟒ ⟒⍾⎍ 01⊑ ;⏚⍜⍜⌰⟒⏃⋏ ⏁⍀⎍⟒
⎎⏃⌰⌇⟒ ⟒⍾⎍ 00⊑ ;⏚⍜⍜⌰⟒⏃⋏ ⎎⏃⌰⌇⟒
⏚⍀⟒⏃☍⟟⋏⏁ ⟒⍾⎍ 23⊑ ;⎅⍜⌇ ☊⍜⋏⏁⍀⍜⌰-⏚⍀⟒⏃☍ ⟟⋏⏁⍀⌿⏁
☌⟒⏁⎐⟒☊⏁⍜⍀ ⟒⍾⎍ 35⊑ ;⎅⍜⌇ ☌⟒⏁ ⎐⟒☊⏁⍜⍀ ⎎⎍⋏☊⏁⟟⍜⋏
⌇⟒⏁⎐⟒☊⏁⍜⍀ ⟒⍾⎍ 25⊑ ;⎅⍜⌇ ⌇⟒⏁ ⎐⟒☊⏁⍜⍀ ⎎⎍⋏☊⏁⟟⍜⋏
⎅⍜⌇_⎎⎍⋏☊⏁⟟⍜⋏ ⟒⍾⎍ 21⊑ ;⎅⍜⌇ ⎎⎍⋏☊⏁⟟⍜⋏ ☊⏃⌰⌰
⏚⍀⟒⏃☍ ⌇⟒☌⋔⟒⋏⏁ ⌿⎍⏚⌰⟟☊ '☊⍜⎅⟒'
⏚⍀⟒⏃☍⎎⌰⏃☌ ⎅⏚ 0⊑ ;⏚⍀⟒⏃☍ ☍⟒⊬ ⊑⟟⏁ ⎎⌰⏃☌
⌇⏃⎐⟒⏚⍀☍ ⎅⎅ 0⊑ ;⌇⏃⎐⟒⎅ ⏚⍀⟒⏃☍ ⎐⟒☊. ☊⍜⋏⏁⟒⋏⏁⌇
⏃⌇⌇⎍⋔⟒ ☊⌇:⏚⍀⟒⏃☍
⏃⌇⌇⎍⋔⟒ ⎅⌇:⋏⍜⏁⊑⟟⋏☌
;☊⊑⟒☊☍_⏚⍀⟒⏃☍ ☊⊑⟒☊☍⌇ ⟟⎎ ☊⏁⍀⌰-⏚⍀⟒⏃☍ ⊑⏃⌇ ⏚⟒⟒⋏ ⌿⍀⟒⌇⌇⟒⎅. ⟟⏁ ⍀⟒⏁⎍⍀⋏⌇
;⏁⍀⎍⟒ ⟟⎎ ☊⏁⍀⌰-⏚⍀⟒⏃☍ ⊑⏃⌇ ⏚⟒⟒⋏ ⌿⍀⟒⌇⌇⟒⎅ ⏃⋏⎅ ⎎⏃⌰⌇⟒ ⟟⎎ ⟟⏁ ⊑⏃⌇⋏'⏁.
⌿⎍⏚⌰⟟☊ ☊⊑⟒☊☍_⏚⍀⟒⏃☍
☊⊑⟒☊☍_⏚⍀⟒⏃☍ ⌿⍀⍜☊ ⎎⏃⍀
⌖⍜⍀ ⏃⌖, ⏃⌖ ;☊⌰⟒⏃⍀ ⏃⌖
⋔⍜⎐ ⏃⌰, ⏚⍀⟒⏃☍⎎⌰⏃☌ ;⍀⟒⏁⎍⍀⋏ ⎐⏃⌰⎍⟒ = ⏚⍀⟒⏃☍⎎⌰⏃☌
⋔⍜⎐ ⏚⍀⟒⏃☍⎎⌰⏃☌, ⎎⏃⌰⌇⟒ ;⍀⟒⌇⟒⏁ ⏚⍀⟒⏃☍⎎⌰⏃☌
⍀⟒⏁
☊⊑⟒☊☍_⏚⍀⟒⏃☍ ⟒⋏⎅⌿
;⟟⋏⌇⏁⏃⌰⌰_⏚⍀⟒⏃☍_⊑⏃⋏⎅⌰⟒⍀ ⌇⟒⏁⌇ ⎍⌿ ⏃ ☊⏁⍀⌰-⏚⍀⟒⏃☍ ⟟⋏⏁⟒⍀⍀⎍⌿⏁ ⊑⏃⋏⎅⌰⟒⍀. ⟟⏁
;⏃⌰⌇⍜ ⌇⏃⎐⟒⌇ ⏁⊑⟒ ⏃⎅⎅⍀⟒⌇⌇ ⍜⎎ ⏁⊑⟒ ⎎⍜⍀⋔⟒⍀ ⏚⍀⟒⏃☍ ⊑⏃⋏⎅⌰⟒⍀ ⌇⍜ ⏁⊑⏃⏁ ⟟⏁ ☊⏃⋏
;⏚⟒ ⍀⟒⌇⏁⍜⍀⟒⎅ ⌰⏃⏁⟒⍀.
⌿⎍⏚⌰⟟☊ ⟟⋏⌇⏁_⏚⍀☍_⊑⏃⋏⎅⌰⍀
⟟⋏⌇⏁_⏚⍀☍_⊑⏃⋏⎅⌰⍀ ⌿⍀⍜☊ ⎎⏃⍀
⌿⎍⌇⊑ ⎅⌇
⋔⍜⎐ ⏃⌰, ⏚⍀⟒⏃☍⟟⋏⏁ ;⏃⌰ = ⏚⍀⟒⏃☍ ⟟⋏⏁⟒⍀⍀⎍⌿⏁
⋔⍜⎐ ⏃⊑, ☌⟒⏁⎐⟒☊⏁⍜⍀ ;⏃⊑ = ⎅⍜⌇ ⎎⎍⋏☊⏁⟟⍜⋏ ☊⍜⎅⟒
⟟⋏⏁ ⎅⍜⌇_⎎⎍⋏☊⏁⟟⍜⋏ ;☊⏃⌰⌰ ⎅⍜⌇
⋔⍜⎐ ⍙⍜⍀⎅ ⌿⏁⍀ ⌇⏃⎐⟒⏚⍀☍, ⏚⌖ ;⌇⏃⎐⟒ ⍜⎎⎎⌇⟒⏁ ⟟⋏ ⟟⋏⏁ ⎐⟒☊⏁⍜⍀
⋔⍜⎐ ⍙⍜⍀⎅ ⌿⏁⍀ ⌇⏃⎐⟒⏚⍀☍+2, ⟒⌇ ;⌇⏃⎐⟒ ⏚⏃⌇⟒ ⟟⋏ ⟟⋏⏁ ⎐⟒☊⏁⍜⍀
⋔⍜⎐ ⏃⌰, ⏚⍀⟒⏃☍⟟⋏⏁ ;⏃⌰ = ⏚⍀⟒⏃☍ ⟟⋏⏁⟒⍀⍀⎍⌿⏁
⋔⍜⎐ ⏃⊑, ⌇⟒⏁⎐⟒☊⏁⍜⍀ ;⏃⊑ = ⎅⍜⌇ ⎎⎍⋏☊⏁⟟⍜⋏ ☊⍜⎅⟒
⋔⍜⎐ ⎅⌖, ⍜⎎⎎⌇⟒⏁ ⏚⍀☍_⊑⏃⋏⎅⌰⟒⍀ ;⎅⌖ = ⍜⎎⎎⌇⟒⏁ ⍜⎎ ⏚⍀☍ ⊑⏃⋏⎅⌰⟒⍀
⋔⍜⎐ ⏚⌖, ☊⌇ ;⏚⌖ = ⏁⊑⟟⌇ ⌇⟒☌⋔⟒⋏⏁
⋔⍜⎐ ⎅⌇, ⏚⌖ ;⎅⌇ = ⏁⊑⟟⌇ ⌇⟒☌⋔⟒⋏⏁
⟟⋏⏁ ⎅⍜⌇_⎎⎍⋏☊⏁⟟⍜⋏ ;☊⏃⌰⌰ ⎅⍜⌇
⌿⍜⌿ ⎅⌇
⍀⟒⏁
⟟⋏⌇⏁_⏚⍀☍_⊑⏃⋏⎅⌰⍀ ⟒⋏⎅⌿
;⏚⍀☍_⊑⏃⋏⎅⌰⟒⍀ ⟟⌇ ⟟⋏⎐⍜☍⟒⎅ ⏚⊬ ⏁⊑⟒ ⏚⟟⍜⌇ ⍙⊑⟒⋏ ☊⏁⍀⌰_⏚⍀⟒⏃☍ ⟟⌇ ⌿⍀⟒⌇⌇⟒⎅
⏚⍀☍_⊑⏃⋏⎅⌰⟒⍀ ⌿⍀⍜☊ ⎎⏃⍀
⋔⍜⎐ ⏚⍀⟒⏃☍⎎⌰⏃☌, ⏁⍀⎍⟒ ;⏚⍀⟒⏃☍⎎⌰⏃☌ = ⊬⟒⌇, ⏚⍀⟒⏃☍ ⊑⟟⏁
⟟⍀⟒⏁
⏚⍀☍_⊑⏃⋏⎅⌰⟒⍀ ⟒⋏⎅⌿
;⍀⟒⋔⍜⎐⟒_⏚⍀⟒⏃☍_⊑⏃⋏⎅⌰⟒⍀ ⍀⟒⌇⏁⍜⍀⟒⌇ ⏁⊑⟒ ⌿⍀⟒⎐⟟⍜⎍⌇ ☊⏁⍀⌰-⏚⍀⟒⏃☍ ⊑⏃⋏⎅⌰⟒⍀
⍀⟒⋔_⏚⍀☍_⊑⏃⋏⎅⌰⍀ ⌿⍀⍜☊ ⎎⏃⍀
⌿⎍⌇⊑ ⎅⌇
⋔⍜⎐ ⏃⌰, ⏚⍀⟒⏃☍⟟⋏⏁ ;⏃⌰ = ⏚⍀⟒⏃☍ ⟟⋏⏁⟒⍀⍀⎍⌿⏁
⋔⍜⎐ ⏃⊑, ⌇⟒⏁⎐⟒☊⏁⍜⍀ ;⏃⊑ = ⎅⍜⌇ ⎎⎍⋏☊⏁⟟⍜⋏ ☊⍜⎅⟒
⋔⍜⎐ ⎅⌖, ⍙⍜⍀⎅ ⌿⏁⍀ ⌇⏃⎐⟒⏚⍀☍ ;⎅⌖ = ⌇⏃⎐⟒⎅ 1⌇⏁ ⍙⍜⍀⎅
⋔⍜⎐ ⏚⌖, ⍙⍜⍀⎅ ⌿⏁⍀ ⌇⏃⎐⟒⏚⍀☍+2 ;⏚⌖ = ⌇⏃⎐⟒⎅ 2⋏⎅ ⍙⍜⍀⎅
⋔⍜⎐ ⎅⌇, ⏚⌖ ;⎅⌇ = ⌇⏃⎐⟒⎅ 2⋏⎅ ⍙⍜⍀⎅
⟟⋏⏁ ⎅⍜⌇_⎎⎍⋏☊⏁⟟⍜⋏ ;☊⏃⌰⌰ ⎅⍜⌇
⌿⍜⌿ ⎅⌇
⍀⟒⏁
⍀⟒⋔_⏚⍀☍_⊑⏃⋏⎅⌰⍀ ⟒⋏⎅⌿
⏚⍀⟒⏃☍ ⟒⋏⎅⌇
⟒⋏⎅