perl - how to compare 2 overlapping ranges without any repetition -

-

इस सवाल का पहले से ही एक उत्तर है: < / P>

  • 2 जवाब

    मैं मूल्यों की तुलना करने की कोशिश कर रहा हूं @ Arr3 से लेकर श्रेणी के मूल्यों के साथ @ arr4 से लेकर, लेकिन मुझे वांछित आउटपुट नहीं मिल रहा है कृपया मुझे 3,4,5,6,7,9,10,11,12,14,15 के रूप में आउटपुट प्राप्त करने के लिए निम्न कोड में संशोधनों का सुझाव दें (मूल्यों को दोहराए बिना 5 और 10) और कुल मिलाकर = 11।

    फ़ाइल 1: परिणाम 

      3..7 9 .122 14..17   < P> फ़ाइल 2: एनोटेशन  
      1..5 5 ..10 10..15   
     कोड:  
      #! / यूएसआर / बिन / पर्ल खोलें ($ inp1, "& lt; परिणाम") या मरना "नहीं मिला"; खुला ($ INP2, "& lt; एनोटेशन") या मर "नहीं मिला"; मेरा @ arr3 = & lt; $ inp1 & gt ;; मेरा @ arr4 = & lt; $ inp2 & gt ;; मेरी $ लाइन 1 (@ एआर 4) को अग्रगामी करें (मेरी एक्शन 3 foreach $ 2 @) (मेरी ($ से 1, $ to1) = विभाजन (/ /।। /। /, $ पंक्ति 1); मेरा ($ 2 से, $ से 2) = विभाजन (/ / .../, $ line2); #print $ from1; प्रिंट "\ n"; (अगर $ $ i == $ j) के लिए (मेरी $ i = $ से 1; $ i & lt; = $ to1; $ i ++) {के लिए (मेरी $ j = $ से 2; $ j & lt; = $ to2; $ j ++) {if ($ i == $ j) प्रिंट करें "$ i"; 'यहां कोड दर्ज करें' प्रिंट करें \ n "; }}}}}    
     
     
     यदि आपकी सूचियां बहुत बड़ी नहीं हैं, तो आप एक हैश का उपयोग कर सकते हैं , जो पर्ल में "दोहराए बिना" प्राप्त करने का सर्वोत्तम तरीका है:  
      #! / Usr / bin / perl चेतावनियों का उपयोग करें; सख्त उपयोग; मेरा @ रुट = ('3. 4', '9..12', '14 ..17 '); मेरा @ ऍनोटेशन = ('1..5', '5..10', '10 ..15 '); मेरी% cmp; मेरा $ पास = 1; मेरी $ श्रेणी के लिए (@ रुट्स, अंडफ, @ ऍनोटेशन) {$ pass = 2, अगला जब तक $ श्रेणी नहीं है; मेरा ($ से $ $) = विभाजित / \ q../, $ range; मेरे $ num ($ से $ $ $) {$ cmp {$ num} = $ pass अगर 1 == $ पास या $ cmp {$ num}; }} My @output = sort {$ a & lt; = & gt; $ B} grep 2 == $ cmp {$ _}, चाबियाँ% cmp; प्रिंट शामिल (',', @output), "\ n पूर्ण मिलान:", स्केलर @आउटपुट, "\ n";

Comments

Post a Comment

Popular posts from this blog

php - how to change mysql_result($res, 0, "url"); to mysqli -

-
I do not know how to use mysqli_result like in the past. Is this OK? How is right WHERE status = 'popup' and creditsp> = 1 and (CH) from $ res = mysqli_query ($ con, "SELECT` id`,` usrid`, `url` site Lt; cf || cf = 0) sequence by rand () border 1 "); $ Urll = mysqli_result ($ res, 0, "url"); $ Ownerid = mysqli_result ($ res, 0, "Elixir"); $ Citid = mascile_salt ($ res, 0, "id"); Use fetch_assoc on the results: $ line = $ res-> gt; Fetch_assoc (); $ Urll = $ line ['url']; $ Owner = $ line ['nectar']; $ Site id = $ line ['id']; If there are more than one line, then: while ($ line = $ res-> fetch_assoc ()) {// process $ Line}
Read more

c# - Textbox not clickable but editable -

-
I have a small form with 10 text boxes, I have set them in the correct tab order. I want them on my tab service I was wondering if there is a way to set the text box so that they can be selected for editing until they are tabbed. That is ... I do not want the end user to edit the text box to click on them, I just want to make them editable through tabu. this should do the trick public partial category poor text box: Text Box {Safe Override Zero WndProc (Ref: Message Message) {if (m.msg == (Int) WM.LBUTTONDOWN) {Return; // mount down events} base.WndProc (ref m); }} Window message enum can be found. How to do this without anherizing: text box : class EatMouseDown: netwindows {safe override zero WndProc (ref message message) {if (m.msg == (int) WM.LBUTTONDOWN) {return; } Base.WandProc (Ref M); }} Safe Override Zero Onload (EventEurge E) {base.OnLoad (e); How to do this without any part: left a clean part, whatever is important, this can be a buggy but it works R...
Read more

Matlab transpose a table vector -

-
An embarrassing simple question seems to be, but how can I move a Matlab table vector? aTableT = aTable '; I tried a standard syntax for the simple interaction of a line vector to a line vector aTable : ATableT = reshape (aTable, 1, Height (aTable)); and aTableT = rot90 (aTable); According to the head, the last time table should work for table, see. However, I get this error code: Error type in using table / permit (line 396) Undefined function 'permute' for the input arguments. Error in rot 90 (line 29) b = magnitude (b, [2 1 3: ndims (a)]); NB: fliplr is not useful either pretty sure I have covered clear angles - any ideas? Thanks! Try changing your table into an array, move it, then back to a table In other words, try doing this: aTableArray = table2array (aTable); ATableT = array 2table (aTableArray. '); I have also read the document for rot90 , and it says that rot90 is definitely working for tables Do, and I find you...
Read more