विभाजन पानी का एक नक्शा है


17

यह पलंतीर टेक्नोलॉजीज द्वारा उनके साक्षात्कार में पूछे गए इंटरनेट पर एक चुनौती है

किसानों के एक समूह के पास कुछ आंकड़े हैं, और हम उन्हें यह समझने में मदद करने जा रहे हैं कि उनके खेत में वर्षा कैसे होती है। हम भूमि को ऊंचाई के दो-आयामी सरणी के रूप में दर्शाते हैं और निम्न मॉडल का उपयोग करते हैं, इस विचार के आधार पर कि पानी बहता है:

यदि किसी सेल की चार पड़ोसी कोशिकाओं में सभी उच्च ऊंचाई हैं, तो हम इस सेल को एक सिंक कहते हैं; पानी सिंक में इकट्ठा होता है। अन्यथा, पानी सबसे कम ऊंचाई वाले पड़ोसी सेल में जाएगा। यदि कोई सेल सिंक नहीं है, तो आप मान सकते हैं कि इसका एक अद्वितीय निम्नतम पड़ोसी है और यह पड़ोसी सेल से कम होगा।

कोशिकाएं जो एक ही सिंक में जाती हैं - प्रत्यक्ष या अप्रत्यक्ष रूप से - एक ही बेसिन का हिस्सा होती हैं।

आपकी चुनौती नक्शे को बेसिनों में विभाजित करना है। विशेष रूप से, ऊंचाइयों का एक नक्शा दिया गया है, आपके कोड को नक्शे को आधारों में विभाजित करना चाहिए और अवरोही क्रम में बेसिनों के आकार का उत्पादन करना चाहिए।

मान लें कि ऊँचाई के नक्शे चौकोर हैं। इनपुट एक पूर्णांक के साथ शुरू होगा, एस, नक्शे की ऊंचाई (और चौड़ाई)। अगली S लाइनों में प्रत्येक में मैप की एक पंक्ति होगी, जिसमें प्रत्येक पूर्णांक के साथ होता है - पंक्ति में S कोशिकाओं की ऊँचाई। कुछ किसानों के पास नीचे के उदाहरण जैसे छोटे भूखंड हैं, जबकि कुछ में बड़े भूखंड हैं। हालाँकि, किसी भी स्थिति में किसान के पास S = 5000 से बड़ी भूमि का प्लाट नहीं होगा।

आपके कोड को अवरोही क्रम में बेसिन आकारों की एक अलग-अलग सूची का उत्पादन करना चाहिए। (अनुगामी रिक्त स्थान की अनदेखी की जाती है।)

कुछ उदाहरण नीचे दिए गए हैं।

इनपुट:

3
1 5 2
2 4 7
3 6 9 

आउटपुट: 7 2

A और B के लेबल वाले बेसिन हैं:

A A B
A A B
A A A 

इनपुट:

1
10

आउटपुट: 1

इस मामले में केवल एक बेसिन है।

इनपुट:

5
1 0 2 5 8
2 3 4 7 9
3 5 7 8 9
1 2 5 4 2
3 3 5 2 1 

आउटपुट: 11 7 7

बेसिन, ए, बी और सी के साथ लेबल हैं:

A A A A A
A A A A A
B B A C C
B B B C C
B B C C C 

इनपुट:

4
0 2 1 3
2 1 0 4
3 3 3 3
5 5 2 1 

आउटपुट: 7 5 4

बेसिन, ए, बी और सी के साथ लेबल हैं:

A A B B
A B B B
A B B C
A C C C

1
मैंने इस साइट के लिए इसे और अधिक उपयुक्त बनाने के लिए आपके प्रश्न का संपादन किया। इससे पहले, यह एक प्रोग्रामिंग प्रश्न / कोड की समीक्षा थी। अब यह चुनौती के रूप में है। यह साइट प्रयास करने के लिए समुदाय के लिए कोड चुनौतियों / समस्याओं को जारी करने के लिए है। नोट: आपको अभी भी एक जीत मापदंड की आवश्यकता है: सबसे छोटा कोड ( कोड-गोल्फ ) अनुशंसित है।
जस्टिन

2
@ यदि आप कई वैकल्पिक गोल्फ समाधानों के बजाय अपने मूल प्रश्न का उत्तर चाहते हैं, तो मैं सुझाव देता हूं कि इसे स्टैक ओवरफ्लो (या शायद कोड समीक्षा?) पर फिर से पूछें
गैरेथ

1
@JanDvorak मुझे लगता है कि संपादन से पहले मूल प्रश्न कोड की समीक्षा पर ठीक हो सकता है (शुरू करने के लिए कोई गोल्फिंग शामिल नहीं थी)? आप शायद एसओ के बारे में सही हैं, हालांकि।
गारेथ

1
@JanDvorak मुझे लगता है कि इसे संपादित करें और इसे एक मान्य कोड-गोल्फ बनाएं
जस्टिन

1
मैंने कोड समीक्षा पर समस्या पोस्ट की है - Codereview.stackexchange.com/questions/39895/…
AnkitSablok

जवाबों:


8

मेथेमेटिका

बेसिन आकार सूची द्वारा प्राप्त किया जा सकता है

WatershedComponents[
 Image[Rest@ImportString[m,"Table"]] // ImageAdjust,
 CornerNeighbors -> False,
 Method -> "Basins"
 ] // Reverse@Sort@Part[Tally[Flatten@#], All, 2] &

mदिया गया इनपुट डेटा कहां है। सवाल एक में लोगों की तरह एक मैट्रिक्स प्रदर्शित करने के लिए जगह ले सकता है // Reverse@Sort@Part[Tally[Flatten@#], All, 2] &के साथ /. {1 -> "A", 2 -> "B", 3 -> "C"} // MatrixFormया एक एक छवि के बजाय का उपयोग कर के रूप में यह प्रदर्शित कर सकते हैं //ImageAdjust//Image


हमें फांसी मत छोड़ो! सॉर्ट किए गए बेसिन आकार सूची में BinCounts [] और Sort [], सही का उपयोग किया जाएगा?
स्कॉट लेडले

@ScottLeadley मैंने महसूस नहीं किया कि यह बेसिन आकार की सूची थी जिसे अनुरोध किया गया था, जो आपको इंगित करने के लिए धन्यवाद। मैंने उत्तर तय कर लिया है (हालाँकि अंतिम भाग को शायद बहुत छोटा बनाया जा सकता है)।

2

जावास्क्रिप्ट - 673 707 730 751

e=[],g=[],h=[],m=[],q=[];function r(){a=s,b=t;function d(d,A){n=a+d,p=b+A;c>e[n][p]&&(u=!1,v>e[n][p]&&(v=e[n][p],w=n,k=p))}c=e[a][b],u=!0,v=c,w=a,k=b;0!=a&&d(-1,0);a!=l&&d(1,0);0!=b&&d(0,-1);b!=l&&d(0,1);g[a][b]=w;h[a][b]=k;return u}function x(a,b,d){function c(a,b,c,k){g[a+b][c+k]==a&&h[a+b][c+k]==c&&(d=x(a+b,c+k,d))}d++;0!=a&&c(a,-1,b,0);a!=l&&c(a,1,b,0);0!=b&&c(a,0,b,-1);b!=l&&c(a,0,b,1);return d}y=$EXEC('cat "'+$ARG[0]+'"').split("\n");l=y[0]-1;for(z=-1;z++<l;)e[z]=y[z+1].split(" "),g[z]=[],h[z]=[];for(s=-1;s++<l;)for(t=-1;t++<l;)r()&&m.push([s,t]);for(z=m.length-1;0<=z;--z)s=m[z][0],t=m[z][1],q.push(x(s,t,0));print(q.sort(function(a,b){return b-a}).join(" "));

परीक्षण के परिणाम (नैशॉर्न का उपयोग करके):

$ for i in A B C D; do jjs -scripting minlm.js -- "test$i"; done
7 2
1
11 7 7
7 5 4
$

5000 के आकार के नक्शे के लिए स्टैक समस्याएं होंगी (लेकिन यह एक कार्यान्वयन विवरण है :)।

सभी में यह दुर्भाग्यपूर्ण स्रोत है:

// lm.js - find the local minima


//  Globalization of variables.

/*
    The map is a 2 dimensional array. Indices for the elements map as:

    [0,0] ... [0,n]
    ...
    [n,0] ... [n,n]

Each element of the array is a structure. The structure for each element is:

Item    Purpose         Range       Comment
----    -------         -----       -------
h   Height of cell      integers
s   Is it a sink?       boolean
x   X of downhill cell  (0..maxIndex)   if s is true, x&y point to self
y   Y of downhill cell  (0..maxIndex)

Debugging only:
b   Basin name      ('A'..'A'+# of basins)

Use a separate array-of-arrays for each structure item. The index range is
0..maxIndex.
*/
var height = [];
var sink = [];
var downhillX = [];
var downhillY = [];
//var basin = [];
var maxIndex;

//  A list of sinks in the map. Each element is an array of [ x, y ], where
// both x & y are in the range 0..maxIndex.
var basinList = [];

//  An unordered list of basin sizes.
var basinSize = [];


//  Functions.

function isSink(x,y) {
    var myHeight = height[x][y];
    var imaSink = true;
    var bestDownhillHeight = myHeight;
    var bestDownhillX = x;
    var bestDownhillY = y;

    /*
        Visit the neighbors. If this cell is the lowest, then it's the
    sink. If not, find the steepest downhill direction.

        This would be the place to test the assumption that "If a cell
    is not a sink, you may assume it has a unique lowest neighbor and
    that this neighbor will be lower than the cell." But right now, we'll
    take that on faith.
    */
    function visit(deltaX,deltaY) {
        var neighborX = x+deltaX;
        var neighborY = y+deltaY;
        if (myHeight > height[neighborX][neighborY]) {
            imaSink = false;
            if (bestDownhillHeight > height[neighborX][neighborY]) {
                bestDownhillHeight = height[neighborX][neighborY];
                bestDownhillX = neighborX;
                bestDownhillY = neighborY;
            }
        }
    }
    if (x !== 0) {
        // upwards neighbor exists
        visit(-1,0);
    }
    if (x !== maxIndex) {
        // downwards neighbor exists
    visit(1,0);
    }
    if (y !== 0) {
        // left-hand neighbor exists
        visit(0,-1);
    }
    if (y !== maxIndex) {
        // right-hand neighbor exists
        visit(0,1);
    }

    downhillX[x][y] = bestDownhillX;
    downhillY[x][y] = bestDownhillY;
    return imaSink;
}

function exploreBasin(x,y,currentSize) {//,basinName) {
    //  This cell is in the basin.
    //basin[x][y] = basinName;
    currentSize++;

    /*
        Visit all neighbors that have this cell as the best downhill
    path and add them to the basin.
    */
    function visit(x,deltaX,y,deltaY) {
        if ((downhillX[x+deltaX][y+deltaY] === x) && (downhillY[x+deltaX][y+deltaY] === y)) {
            currentSize = exploreBasin(x+deltaX,y+deltaY,currentSize); //,basinName);
        }
        return 0;
    }
    if (x !== 0) {
        // upwards neighbor exists
        visit(x,-1,y,0);
    }
    if (x !== maxIndex) {
        // downwards neighbor exists
        visit(x,1,y,0);
    }
    if (y !== 0) {
        // left-hand neighbor exists
        visit(x,0,y,-1);
    }
    if (y !== maxIndex) {
        // right-hand neighbor exists
        visit(x,0,y,1);
    }

    return currentSize;
}

//  Read map from file (1st argument).
var lines = $EXEC('cat "' + $ARG[0] + '"').split('\n');
maxIndex = lines.shift() - 1;
for (var i = 0; i<=maxIndex; i++) {
    height[i] = lines.shift().split(' ');
    //  Create all other 2D arrays.
    sink[i] = [];
    downhillX[i] = [];
    downhillY[i] = [];
    //basin[i] = [];
}

//  Everyone decides if they are a sink. Create list of sinks (i.e. roots).
for (var x=0; x<=maxIndex; x++) {
    for (var y=0; y<=maxIndex; y++) {
        if (sink[x][y] = isSink(x,y)) {
            //  This node is a root (AKA sink).
            basinList.push([x,y]);
        }
    }
}
//for (var i = 0; i<=maxIndex; i++) { print(sink[i]); }

//  Each root explores it's basin.
//var basinName = 'A';
for (var i=basinList.length-1; i>=0; --i) { // i-- makes Closure Compiler sad
    var x = basinList[i][0];
    var y = basinList[i][1];
    basinSize.push(exploreBasin(x,y,0)); //,basinName));
    //basinName = String.fromCharCode(basinName.charCodeAt() + 1);
}
//for (var i = 0; i<=maxIndex; i++) { print(basin[i]); }

//  Done.
print(basinSize.sort(function(a, b){return b-a}).join(' '));

तत्व वस्तुओं को अलग-अलग सरणियों में तोड़कर, हर जगह भूमंडलीकरण करके और दुष्परिणामों को गले लगाकर मैंने बेहतर न्यूनतम परिणाम प्राप्त किया। NSFW।

कोड कम करने के प्रभाव:

  • 4537 बाइट्स, अकुशल
  • 1180 बाइट्स, पैकर
  • 855 बाइट्स, पैकर + हाथ अनुकूलन (1 चरित्र वैश्विक नाम)
  • 751 बाइट्स, ADVANCED_OPTIMIZATIONS (NB के साथ गूगल क्लोजर कंपाइलर, यह एक मृत "कोड के रूप में" वापस लौटना "
  • 730 बाइट्स, लापरवाह हाथ अनुकूलन (मैं निर्विवाद स्रोत नहीं बदल रहा हूं, इसलिए NSFW)
  • 707 बाइट्स, अधिक लापरवाह हाथ अनुकूलन (सिंक करने के लिए सभी संदर्भों को हटा दें]];
  • 673 बाइट्स, सभी "var" s को हटा दें, नाशोर्न -स्ट्रिक्ट फ्लैग को छोड़ दें

अगर मैं मूल स्रोत को संशोधित करने के लिए तैयार हूं तो मैं न्यूनतम कोड को संपादित किए बिना 700 बाइट्स के करीब हासिल कर सकता था। लेकिन मैंने ऐसा नहीं किया क्योंकि मुझे लगता है कि इसे छोड़ना-शुरुआती बिंदु से एक दिलचस्प दृश्य है।


आप छोटा कर सकते हैं var e=[],g=[],h=[],l,m=[],q=[]करने के लिए e=g=h=l=m=q=[]varयदि आप किसी भी वैश्विक चर को कम नहीं कर रहे हैं, तो आप शायद कीवर्ड के अन्य उपयोगों से भी छुटकारा पा सकते हैं।
nyuszika7h

@ nyuszika7h नहीं कर सकते। ई = जी = एच = एल = एम = क्यू = [] उन सभी को एक ही सरणी के लिए एक सूचक का उपयोग करना होगा। और नैशॉर्न को var की आवश्यकता होती है।
स्कॉट लेडले

@ nyuszika7h आपने मेरी रट से बाहर निकाल दिया। मैंने नैशॉर्न -स्ट्रिक्ट को गिरा दिया और सभी "var" को हटा दिया।
स्कॉट लेडले

1

पायथन: 276 306 365 बाइट्स

यह मेरा पहला गोल्फ प्रयास है। सुझावों की सराहना की है!

संपादित करें: आयात और समापन फ़ाइलें बहुत सारे वर्ण लेती हैं! तो चर और नेस्टेड सूची समझ में फ़ाइलों को संग्रहीत करता है।

t=map(int,open('a').read().split());n=t.pop(0);q=n*n;r,b,u=range(q),[1]*q,1
while u!=0:
    u=0
    for j in r:
        d=min((t[x],x)for x in [j,j-1,j+1,j-n,j+n]if int(abs(j/n-x/n))+abs(j%n-x%n)<=1 and x in r)[1]
        if j-d:u|=b[j];b[d]+=b[j];b[j]=0
for x in sorted(b)[::-1]:print x or '',

पूरी तरह से टिप्पणी (2130 बाइट्स ...)

from math import floor
with open('a') as f:
    l = f.read()
    terrain = map(int,l.split()) # read in all the numbers into an array (treating the 2D array as flattened 1D)
    n = terrain.pop(0) # pop the first value: the size of the input
    valid_indices = range(n*n) # 0..(n*n)-1 are the valid indices of this grid
    water=[1]*(n*n) # start with 1 unit of water at each grid space. it will trickle down and sum in the basins.
    updates=1 # keep track of whether each iteration included an update

    # helper functions
    def dist(i,j):
        # returns the manhattan (L1) distance between two indices
        row_dist = abs(floor(j/n) - floor(i/n))
        col_dist = abs(j % n - i % n)
        return row_dist + col_dist

    def neighbors(j):
        # returns j plus up to 4 valid neighbor indices
        possible = [j,j-1,j+1,j-n,j+n]
        # validity criteria: neighbor must be in valid_indices, and it must be one space away from j
        return [x for x in possible if dist(x,j)<=1 and x in valid_indices]

    def down(j):
        # returns j iff j is a sink, otherwise the minimum neighbor of j
        # (works by constructing tuples of (value, index) which are min'd
        # by their value, then the [1] at the end returns its index)
        return min((terrain[i],i) for i in neighbors(j))[1]

    while updates!=0: # break when there are no further updates
        updates=0 # reset the update count for this iteration
        for j in valid_indices: # for each grid space, shift its water 
            d =down(j)
            if j!=d: # only do flow if j is not a sink
                updates += water[j] # count update (water[j] is zero for all non-sinks when the sinks are full!)
                water[d] += water[j] # move all of j's water into the next lowest spot
                water[j] = 0 # indicate that all water has flown out of j
    # at this point, `water` is zeros everywhere but the sinks.
    # the sinks have a value equal to the size of their watershed.
    # so, sorting `water` and printing nonzero answers gives us the result we want!
    water = sorted(water)[::-1] # [::-1] reverses the array (high to low)
    nonzero_water = [w for w in water if w] # 0 evaulates to false.
    print " ".join([str(w) for w in nonzero_water]) # format as a space-separated list

कृपया एक वर्ष में गोल्फ न करें। 365 वर्ण बहुत अच्छा है। : पी
टॉस

1
मैं इसे 306 पर ले गया! मुझे उन अतिरिक्त 59 दिनों के अवकाश समय की आवश्यकता है।
गलत

आपको open('a').read()लगता है कि मुझे बस करने में सक्षम होना चाहिए ।
मृ

1

जावास्क्रिप्ट (ECMAScript 6) - 226 वर्ण

s=S.split(/\s/);n=s.shift(k=[]);u=k.a;t=s.map((v,i)=>[v,i,1]);t.slice().sort(X=(a,b)=>a[0]-b[0]).reverse().map(v=>{i=v[1];p=[v,i%n?t[i-1]:u,t[i-n],(i+1)%n?t[i+1]:u,t[+n+i]].sort(X)[0];p==v?k.push(v[2]):p[2]+=v[2]});k.join(' ')

व्याख्या

s=S.split(/\s/);                  // split S into an array using whitespace as the boundary.
n=s.shift();                      // remove the grid size from s and put it into n.
k=[];                             // an empty array to hold the position of the sinks.
u=k.a;                            // An undefined variable
t=s.map((v,i)=>[v,i,1]);          // map s to an array of:
                                  // - the elevation
                                  // - the position of this grid square
                                  // - the number of grid squares which have flowed into
                                  //      this grid square (initially 1).
X=(a,b)=>a[0]-b[0];               // A comparator function for sorting.
t.slice()                         // Take a copy of t
 .sort(X)                         // Then sort it by ascending elevation
 .reverse()                       // Reverse it to be sorted in descending order
 .map(v=>{                        // For each grid square (starting with highest elevation)
   i=v[1];                        // Get the position within the grid
   p=[v,i%n?t[i-1]:u,t[i-n],(i+1)%n?t[i+1]:u,t[+n+i]]
                                  // Create an array of the grid square and 4 adjacent
                                  //   squares (or undefined if off the edge of the grid)
     .sort(X)                     // Then sort by ascending elevation
     [0];                         // Then get the square with the lowest elevation.
   p==v                           // If the current grid square has the lowest elevation
     ?k.push(v[2])                // Then add the number of grid square which have
                                  //   flowed into it to k
     :p[2]+=v[2]});               // Else flow the current grid square into its lowest
                                  //   neighbour.
k.join(' ')                       // Output the sizes of the block with  space separation.

पिछला संस्करण - 286 वर्ण

s=S.split(/\s/);n=s.shift()*1;k=[];u=k[1];t=s.map((v,i)=>({v:v,p:i,o:[]}));for(i in t){t[p=[t[i],i%n?t[i-1]:u,t[i-n],(+i+1)%n?t[+i+1]:u,t[+i+n]].sort((a,b)=>(a.v-b.v))[0].p].o.push([i]);p==i&&k.push([i])}k.map(x=>{while(x[L="length"]<(x=[].concat(...x.map(y=>t[y].o)))[L]);return x[L]})

मानता है कि इनपुट एक चर में है S;

व्याख्या

s=S.split(/\s/);                  // split S into an array using whitespace as the boundary.
n=s.shift()*1;                    // remove the grid size from s and put it into n.
k=[];                             // an empty array to hold the position of the sinks.
u=k[1];                           // Undefined
t=s.map((v,i)=>({v:v,p:i,o:[]})); // map s to an Object with attributes:
                                  // - v: the elevation
                                  // - p: the position of this grid square
                                  // - o: an array of positions of neighbours which
                                  //      flow into this grid square.
for(i in t){                      // for each grid square
  p=[t[i],i%n?t[i-1]:u,t[i-n],(+i+1)%n?t[+i+1]:u,t[+i+n]]
                                  // start with an array containing the objects 
                                  //   representing that grid square and its 4 neighbours
                                  //   (or undefined for those neighbours which are
                                  //   outside the grid)
      .sort((a,b)=>(a.v-b.v))     // then sort that array in ascending order of elevation
      [0].p                       // then get the first array element (with lowest
                                  //   elevation) and get the position of that grid square.
  t[p].o.push([i]);               // Add the position of the current grid square to the
                                  //   array of neighbours which flow into the grid square
                                  //   we've just found.
  p==i&&k.push([i])               // Finally, if the two positions are identical then
                                  //   we've found a sink so add it to the array of sinks (k)
}
k.map(x=>{                        // For each sink start with an array, x, containing the
                                  //   position of the sink.
  while(x.length<(x=[].concat(...x.map(y=>t[y].o))).length);
                                  // Compare x to the concatenation of x with all the
                                  //   positions of grid squares which flow into squares
                                  //   in x and loop until it stops growing.
  return x.length                 // Then return the number of grid squares.
})

परीक्षा

S="3\n1 5 2\n2 4 7\n3 6 9";
s=S.split(/\s/);n=s.shift()*1;k=[];u=k[1];t=s.map((v,i)=>({v:v,p:i,o:[]}));for(i in t){t[p=[t[i],i%n?t[i-1]:u,t[i-n],(+i+1)%n?t[+i+1]:u,t[+i+n]].sort((a,b)=>(a.v-b.v))[0].p].o.push([i]);p==i&&k.push([i])}k.map(x=>{while(x[L="length"]<(x=[].concat(...x.map(y=>t[y].o)))[L]);return x[L]})

आउटपुट: [7, 2]

S="5\n1 0 2 5 8\n2 3 4 7 9\n3 5 7 8 9\n1 2 5 4 2\n3 3 5 2 1"
s=S.split(/\s/);n=s.shift()*1;k=[];u=k[1];t=s.map((v,i)=>({v:v,p:i,o:[]}));for(i in t){t[p=[t[i],i%n?t[i-1]:u,t[i-n],(+i+1)%n?t[+i+1]:u,t[+i+n]].sort((a,b)=>(a.v-b.v))[0].p].o.push([i]);p==i&&k.push([i])}k.map(x=>{while(x[L="length"]<(x=[].concat(...x.map(y=>t[y].o)))[L]);return x[L]})

आउटपुट: [11, 7, 7]

S="4\n0 2 1 3\n2 1 0 4\n3 3 3 3\n5 5 2 1"
s=S.split(/\s/);n=s.shift()*1;k=[];u=k[1];t=s.map((v,i)=>({v:v,p:i,o:[]}));for(i in t){t[p=[t[i],i%n?t[i-1]:u,t[i-n],(+i+1)%n?t[+i+1]:u,t[+i+n]].sort((a,b)=>(a.v-b.v))[0].p].o.push([i]);p==i&&k.push([i])}k.map(x=>{while(x[L="length"]<(x=[].concat(...x.map(y=>t[y].o)))[L]);return x[L]})

आउटपुट: [5, 7, 4]


1
मेरी नज़र में, तीर (=>) फ़ंक्शन परिभाषाएँ बहुत स्पष्ट हैं।
स्कॉट लीडली

1

जूलिया, 315

function f(a,i,j)
    z=size(a,1)
    n=filter((x)->0<x[1]<=z&&0<x[2]<=z,[(i+1,j),(i-1,j),(i,j-1),(i,j+1)])
    v=[a[b...] for b in n]
    all(v.>a[i,j]) && (return i,j)
    f(a,n[indmin(v)]...)
end
p(a)=prod(["$n " for n=(b=[f(a,i,j) for i=1:size(a,1),j=1:size(a,2)];sort([sum(b.==s) for s=unique(b)],rev=true))])

बस एक पुनरावर्ती कार्य है जो या तो वर्तमान सेल निर्धारित करता है एक सिंक है या नाली पाता है, तो सूचक के हर सेट पर कॉल करें। इनपुट भाग को करने की जहमत नहीं उठाई क्योंकि मैं वैसे भी जीतने वाला नहीं था, और वह हिस्सा मज़ेदार नहीं है।


1

हास्केल, 271 286

import Data.List
m=map
q[i,j]=[-1..1]>>= \d->[[i+d,j],[i,j+d]]
x%z=m(\i->snd.fst.minimum.filter((`elem`q i).snd)$zip(zip z[0..])x)x
g(n:z)=iterate(\v->m(v!!)v)(sequence[[1..n],[1..n]]%z)!!(n*n)
main=interact$unwords.m show.reverse.sort.m length.group.sort.g.m read.words

यहाँ गोल्फ होने के लिए अभी भी कुछ कोड हो सकते हैं।

& runhaskell 19188-Partition.hs <<INPUT
> 5
> 1 0 2 5 8
> 2 3 4 7 9
> 3 5 7 8 9
> 1 2 5 4 2
> 3 3 5 2 1
INPUT
11 7 7

व्याख्या

मूल विचार: प्रत्येक सेल (i, j) के लिए "पड़ोस" में सबसे कम सेल का पता लगाएं। यह एक ग्राफ [ (i, j)(mi, mj) ] देता है। यदि कोई कोशिका स्वयं सबसे कम कोशिका है, तो (i, j) == (mi, mj)

इस ग्राफ को पुनरावृत्त किया जा सकता है: प्रत्येक के लिए a → b के लिए, इसे → c जहाँ b → c के साथ बदलें ग्राफ़ में है। जब इस पुनरावृत्ति में कोई अधिक परिवर्तन नहीं होता है, तो ग्राफ में प्रत्येक सेल उस निम्नतम सेल पर इंगित करता है, जिस पर वह प्रवाहित होगी।

इसे गोल्फ करने के लिए, कई बदलाव किए गए हैं: सबसे पहले, निर्देशांक को एक जोड़ी के बजाय लंबाई 2 की सूची के रूप में दर्शाया गया है। दूसरा, एक बार पड़ोसियों को मिल जाने के बाद, कोशिकाओं को उनके सूचकांक द्वारा कोशिकाओं के रैखिक सरणी में दर्शाया जाता है, न कि 2D निर्देशांक। तीसरा, चूंकि एन * एन सेल हैं, एन * एन पुनरावृत्तियों के बाद, ग्राफ स्थिर होना चाहिए।

Ungolf'd

type Altitude = Int     -- altitude of a cell

type Coord = Int        -- single axis coordinate: 1..n
type Coords = [Coord]   -- 2D location, a pair of Coord
    -- (Int,Int) would be much more natural, but Coords are syntehsized
    -- later using sequence, which produces lists

type Index = Int        -- cell index
type Graph = [Index]    -- for each cell, the index of a lower cell it flows to


neighborhood :: Coords -> [Coords]                              -- golf'd as q
neighborhood [i,j] = concatMap (\d -> [[i+d,j], [i,j+d]]) [-1..1]
    -- computes [i-1,j] [i,j-1] [i,j] [i+1,j] [i,j+1]
    -- [i,j] is returned twice, but that won't matter for our purposes

flowsTo :: [Coords] -> [Altitude] -> Graph                      -- golf'd as (%)
flowsTo cs vs = map lowIndex cs
  where
    lowIndex is = snd . fst                          -- take just the Index of
                  . minimum                          -- the lowest of
                  . filter (inNeighborhood is . snd) -- those with coords nearby
                  $ gv                               -- from the data

    inNeighborhood :: Coords -> Coords -> Bool
    inNeighborhood is ds = ds `elem` neighborhood is

    gv :: [((Altitude, Index), Coords)]
        -- the altitudes paired with their index and coordinates
    gv = zip (zip vs [0..]) cs


flowInput :: [Int] -> Graph                                     -- golf'd as g
flowInput (size:vs) = iterate step (flowsTo coords vs) !! (size * size)
  where
    coords = sequence [[1..size],[1..size]]
        -- generates [1,1], [1,2] ... [size,size]

    step :: Graph -> Graph
    step v = map (v!!) v
        -- follow each arc one step

main' :: IO ()
main' = interact $
            unwords . map show      -- counts a single line of text
            . reverse . sort        -- counts from hi to lo
            . map length            -- for each common group, get the count
            . group . sort          -- order cells by common final cell index
            . flowInput             -- compute the final cell index graph
            . map read . words      -- all input as a list of Int

यह बहुत अच्छा होगा यदि आप बता सकते हैं कि यहाँ क्या हो रहा है।
नहीं है कि चार्ल्स

@ घर - किया!
मटनवार्क

1

रूबी, २१६

r=[]
M=gets('').split.map &:to_i
N=M.shift
g=M.map{1}
M.sort.reverse.map{|w|t=[c=M.index(w),c%N<0?c:c-1,c%N<N-1?c+1:c,c+N,c-N].min_by{|y|M[y]&&y>=0?M[y]:M.max}
M[c]+=1
t!=c ?g[t]+=g[c]:r<<g[c]}
$><<r.sort.reverse*' '

यह एक अलग दृष्टिकोण है, केवल एक बार प्रत्येक वर्ग पर "प्रवाह" लागू करना (प्रदर्शन निर्भर करता है कि ऐरे :: सूचकांक का प्रदर्शन क्या है)। यह उच्चतम ऊंचाई से निम्नतम तक जाता है, एक कोशिका को एक बार उसके सबसे कम पड़ोसी में खाली करता है और जब यह किया जाता है, तब किए गए सेल को चिह्नित करता है (1 से ऊंचाई में जोड़कर)।

टिप्पणी की और कहा:

results=[]
ELEVATIONS = gets('').split.map &:to_i  # ELEVATIONS is the input map
MAP_SIZE = ELEVATIONS.shift             # MAP_SIZE is the first line of input
watershed_size = ELEVATIONS.map{1}      # watershed_size is the size of the watershed of each cell

ELEVATIONS.sort.reverse.map { |water_level| 
    # target_index is where the water flows to.  It's the minimum elevation of the (up to) 5 cells:
    target_index = [
        current_index = ELEVATIONS.index(water_level),                              # this cell
        (current_index % MAP_SIZE) < 0           ? current_index : current_index-1, # left if possible
        (current_index % MAP_SIZE) >= MAP_SIZE-1 ? current_index : current_index+1, # right if possible
        current_index + MAP_SIZE,                                                   # below
        current_index - MAP_SIZE                                                    # above
    ].min_by{ |y|
        # if y is out of range, use max. Else, use ELEVATIONS[y]
        (ELEVATIONS[y] && y>=0) ? ELEVATIONS[y] : ELEVATIONS.max
    }
# done with this cell.
# increment the elevation to mark done since it no longer matters
ELEVATIONS[current_index] += 1

# if this is not a sink
(target_index != current_index) ? 
    # add my watershed size to the target's
    watershed_size[target_index] += watershed_size[current_index] 
    # else, push my watershed size onto results
    : results << watershed_size[current_index]}

बदलाव का:

216 - बाहर के सीमा सूचकांकों को रद्द करने का बेहतर तरीका

221 - पता चलता है, "11" "2" से पहले आता है ... पर वापस लौटें to_i, लेकिन हमारे ऊपर कुछ स्थान बचाएंgets es ।

224 - sवैसे भी घोषित क्यों ? तथाeach =>map

229 - बड़े पैमाने पर गोल्फिंग - ऊँचाई को पहले छाँटें s(और इस तरह whileखंड छोड़ें ), के min_byबजाय का उपयोग करें , ऊँचाई के लिए sort_by{...}[0]परेशान न to_iकरें flat_map, उपयोग करें , और select{}ब्लॉक हटना

271 - नए आकार में वाटरशेड का आकार ले लिया और Sort_by का उपयोग किया

315 - परिणाम को सरणी में ले जाया गया जिसने सभी प्रकार के लाभ दिए, और पड़ोसी सूचकांक सूची को छोटा कर दिया। सूचकांक लैम्ब्डा में भी एक चार प्राप्त किया।

355 - पहला कमिट


1

अजगर - 470 447 445 393 392 378 376 375 374 369 बाइट्स

मैं अपने आप को रोक नहीं सकता!

जीतने का हल नहीं है, लेकिन मुझे इसे बनाने में बहुत मज़ा आया। यह संस्करण इनपुट को कहीं भी संग्रहीत करने के लिए नहीं मानता है और इसके बजाय इसे स्टड से पढ़ता है। अधिकतम पुनरावृत्ति गहराई = एक बिंदु से सबसे लंबी दूरी तक यह सिंक है।

def f(x,m=[],d=[],s=[]):
 n=[e[a]if b else 99for a,b in(x-1,x%z),(x+1,x%z<z-1),(x-z,x/z),(x+z,x/z<z-1)];t=min(n)
 if t<e[x]:r=f(x+(-1,1,-z,z)[n.index(t)])[0];s[r]+=x not in m;m+=[x]
 else:c=x not in d;d+=[x]*c;r=d.index(x);s+=[1]*c
 return r,s
z,e=input(),[]
exec'e+=map(int,raw_input().split());'*z
for x in range(z*z):s=f(x)[1]
print' '.join(map(str,sorted(s)[::-1]))

मेरे पास आज इसे समझाने के लिए समय नहीं है, लेकिन यहाँ कोड नहीं है:

यह वास्तव में मूल कोड से काफी अलग है। मैं स्टड से एस लाइनों को पढ़ता हूं, विभाजित करता हूं, स्याही को मैप करता हूं और चपटा क्षेत्र प्राप्त करने के लिए सूचियों को समतल करता हूं। फिर मैं एक बार सभी टाइलों के माध्यम से लूप करता हूं (मुझे उन्हें टाइल कहते हैं)। फ्लो-फ़ंक्शन पड़ोसी टाइलों की जांच करता है और सबसे छोटे मूल्य के साथ एक को चुनता है। यदि यह वर्तमान टाइल के मूल्य से छोटा है, तो इसे स्थानांतरित करें और पुनरावृत्ति करें। यदि नहीं, तो वर्तमान टाइल एक सिंक है और नया बेसिन बनाया गया है। रिकर्सन का रिटर्न वैल्यू बेसिन की आईडी है।

# --- ORIGINAL SOURCE ---

# lowest neighboring cell = unique and next
# neihboring cells all higher = sink and end

basinm = [] # list of the used tiles
basins = {} # list of basin sizes
basinf = [] # tuples of basin sinks
field = []  # 2d-list representing the elevation map
size = 0

def flow(x, y):
    global basinf, basinm
    print "Coordinate: ", x, y
    nearby = []
    nearby += [field[y][x-1] if x > 0 else 99]
    nearby += [field[y][x+1] if x < size-1 else 99]
    nearby += [field[y-1][x] if y > 0 else 99]
    nearby += [field[y+1][x] if y < size-1 else 99]
    print nearby
    next = min(nearby)
    if next < field[y][x]:
        i = nearby.index(next)
        r = flow(x+(-1,1,0,0)[i], y+(0,0,-1,1)[i])
        if (x,y) not in basinm:
            basins[r] += 1
            basinm += [(x,y)]
    else:
        c = (x,y) not in basinf
        if c:
            basinf += [(x,y)]
        r = basinf.index((x,y))
        if c: basins[r] = 1
    return r

size = input()
field = [map(int,raw_input().split()) for _ in range(size)]
print field
for y in range(size):
    for x in range(size):
        flow(x, y)
print
print ' '.join(map(str,sorted(basins.values(),reverse=1)))

1

जावास्क्रिप्ट (ईएस 6) 190 203

थोड़ा और ES6ish संपादित करें (1 साल बाद ...)

एक पंक्तियों को स्ट्रिंग के रूप में इनपुट के साथ परिभाषित करें, जिसमें newlines भी शामिल है, पीछे की ओर स्ट्रिंग के साथ आउटपुट आउटपुट

F=l=>{[s,...m]=l.split(/\s+/);for(j=t=[];k=j<s*s;t[i]=-~t[i])for(i=j++;k;i+=k)k=r=0,[for(z of[-s,+s,i%s?-1:+s,(i+1)%s?1:+s])(q=m[z+i]-m[i])<r&&(k=z,r=q)];return t.sort((a,b)=>b-a).join(' ')}

// Less golfed
U=l=>{
      [s,...m] = l.split(/\s+/);
      for (j=t=[]; k=j<s*s; t[i]=-~t[i])
        for(i=j++; k; i+=k)
          k=r=0,
          [for(z of [-s,+s,i%s?-1:+s,(i+1)%s?1:+s]) (q=m[z+i]-m[i]) < r && (k=z,r=q)];
      return t.sort((a,b)=>b-a).join(' ')
    }

// TEST    
out=x=>O.innerHTML += x + '\n';

out(F('5\n1 0 2 5 8\n 2 3 4 7 9\n 3 5 7 8 9\n 1 2 5 4 2\n 3 3 5 2 1'))// "11 7 7"

out(F('4\n0 2 1 3\n2 1 0 4\n3 3 3 3\n5 5 2 1')) //"7 5 4"
<pre id=O></pre>


0

पर्ल 6, 419 404

स्पष्टता के लिए नई कड़ियाँ जोड़ी गईं। आप उन्हें सुरक्षित रूप से निकाल सकते हैं।

my \d=$*IN.lines[0];my @a=$*IN.lines.map(*.trim.split(" "));my @b;my $i=0;my $j=0;
for @a {for @$_ {my $c=$_;my $p=$i;my $q=$j;my &y={@a[$p+$_[0]][$q+$_[1]]//Inf};
loop {my @n=(0,1),(1,0);push @n,(-1,0) if $p;push @n,(0,-1) if $q;my \o=@n.sort(
&y)[0];my \h=y(o);last if h>$c;$c=h;$p+=o[0];$q+=o[1]};@b[$i][$j]=($p,$q);++$j};
$j=0;++$i};say join " ",bag(@b.map(*.flat).flat.map(~*)).values.sort: {$^b <=>$^a}

पुराना समाधान:

my \d=$*IN.lines[0];my @a=$*IN.lines.map(*.trim.split(" "));my @b;my $i=0;my $j=0;
for @a {for @$_ {
my $c=$_;my $p=$i;my $q=$j;
loop {my @n=(0,1),(1,0);@n.push: (-1,0) if $p;@n.push: (0,-1) if $q;
my \o=@n.sort({@a[$p+$_[0]][$q+$_[1]]//Inf})[0];
my \h=@a[$p+o[0]][$q+o[1]];last if h>$c;
$c=h;$p+=o[0];$q+=o[1]};@b[$i][$j]=($p,$q);++$j};$j=0;++$i};
say join " ",bag(@b.map(*.flat.flat).flat.map(~*)).values.sort: {$^b <=>$^a}

और फिर भी मैं पायथन और जावास्क्रिप्ट समाधानों से पिट गया।

हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.