रूबी, 68
लैम्ब्डा फ़ंक्शन जटिल संख्या को तर्क के रूप में लेता है, जटिल संख्या देता है।
->z{k=1
4.times{z*=?i.to_c
x,y=z.rect
y*y>=x*x&&y<-x&&(z+=k;k=0)}
z}
हम बिंदु को घुमाकर ९ ० डिग्री से ४ बार घुमाते हैं i। इसलिए यह सभी 4 चतुर्भुजों से होकर गुजरता है, और अपरिवर्तित लौटाया जाएगा - इस तथ्य को छोड़कर कि जब हम उनमें से किसी एक विशेष में होते हैं तो हम इसे संशोधित करते हैं। तथ्य यह है कि यह हमेशा एक ही चतुर्थांश में संशोधित किया जाता है संशोधन को सरल करता है।
यह पालन करना सबसे आसान है अगर हम इसे zसहीहैंड क्वाड्रेंट में बदलते हैं । इस मामले में हम y 1 से समन्वय बढ़ाने की आवश्यकता (यानी जोड़ने iके लिए z।)
हम और x.abs>=y.absके वर्गों की तुलना करके जाँच करते हैं । यह हमें बताता है कि बिंदु दाएं या बाएं खंड में है, ऊपर या नीचे नहीं। यह जाँचने के लिए कि वास्तव में दाहिने हिस्से में हम आगे की जाँच करते हैं (कड़ाई से अधिक क्योंकि हम उस मामले को बाहर करना चाहते हैं जो "शीर्ष" चतुर्थांश से संबंधित है।) जहाँ यह सच है हम जोड़ते हैं।xyx>yx=yiz ।
गोल्फ कारणों के लिए, जोड़ना iवांछनीय नहीं है। इसके बजाय हम उस संख्या को मापते हैं जब वह नीचे के चतुर्थांश में होती है, जिस स्थिति में हमें xसमन्वय में 1 जोड़ना पड़ता है (1 से 1 जोड़ें z।) इस मामले में हम परीक्षण करते हैं कि y*y>=x*xयह जाँचने के लिए कि यह शीर्ष या नीचे के चतुर्थांश में है। आगे यह सुनिश्चित करने के लिए कि हमें नीचे के चतुर्थांश में है, हमें जांच करने की आवश्यकता है y<-x(नीचे दाएं कोने के मामले को छोड़कर जहां y=-x)।
इस चेक का एक लाभ यह है कि समन्वय 0,0 के लिए कोई विशेष मामला नहीं है। दुर्भाग्य से यह पाया गया कि बिंदु को स्थानांतरित करने से इसे एक अलग चतुर्थांश में स्थानांतरित किया जा सकता है और इसका मतलब यह है कि एक दूसरे आंदोलन को दबाया जाना चाहिए ताकि उस चक्र को फिर से जांचा जा सके, जो संभवतः लाभ को नकारता है।
उदाहरण 1
Input 95,-12
Rotate 90deg 12,95
Rotate 90deg -95,12
Rotate 90deg -12,-95
Rotate 90deg 95,-12
y.abs>=x.abs=TRUE, y<-x=TRUE, increase x 95,-11
The check and alteration of the coordinate is done AFTER the rotation.
Thus in this case it gets done in the 4th iteration of the loop, not the 1st.
If the code were rewritten to do the check and alteration BEFORE the rotation,
it would be done in the 1st iteration instead of the 4th.
उदाहरण 2
Input -1,0
Rotate 90deg 0,-1
y.abs>=x.abs=TRUE, y<-x=TRUE, increase x 1,-1
Rotate 90deg 1,1
Rotate 90deg 1,-1
Rotate 90deg -1,-1
y.abs>=x.abs?=TRUE, y<-x=TRUE but DO NOT CHANGE x!
This is an unusual situation due to the fact that the first move caused the
point to advance by one quadrant. We do NOT want to move it again, for this
reason we need to set k to 0 the first time it is moved.
परीक्षण कार्यक्रम में
f=->z{k=1 #amount to be added to coordinate
4.times{z*=?i.to_c #iterate 4 times, rotating point by 90deg till it reaches the original orientation
x,y=z.rect #separate out x and y for testing
y*y>=x*x&&y<-x&&(z+=k;k=0)} #if y.abs>=x.abs and y negative and not equal -x, move the point and zero k.
z} #return z
puts f[Complex(0, 0)] # (0, 0)
puts f[Complex(1, 0)] # (1, 1)
puts f[Complex(1, 1)] # (0, 1)
puts f[Complex(0, 1)] # (-1, 1)
puts f[Complex(-1, 1)] # (-1, 0)
puts
puts f[Complex(-1, 0)] # (-1, -1)
puts f[Complex(-1, -1)] # (0, -1)
puts f[Complex(0, -1)] # (1, -1)
puts f[Complex(1, -1)] # (1, 0)
puts f[Complex(95, -12)] # (95, -11)
puts f[Complex(127, 127)] # (126, 127)
puts
puts f[Complex(-2, 101)] # (-3, 101)
puts f[Complex(-65, 65)] # (-65, 64)
puts f[Complex(-127, 42)] # (-127, 41)
puts f[Complex(-9, -9)] # (-8, -9)
puts f[Complex(126, -127)] # (127, -127)
puts f[Complex(105, -105)] # (105, -104)
आरेख
निम्नलिखित छवि दिखाती है (नीला) वह क्षेत्र जहाँ x*x>=y*y, (पीला) वह क्षेत्र जहाँ y<-xऔर (हरा) इनका प्रतिच्छेदन है, जो कि वह क्षेत्र है जहाँ सही परिवर्तन 1 से करने का जोड़ है z।
