我的窗户上有水

13

场景

我开车沿路行驶，开始下雨。雨滴随机落在我的窗户上，现在我问自己，最大的连通湿区在哪里？

任务

为了简化操作，将窗口划分为10 * 10正方形矩阵。您的工作是在窗口上找到最大的连接的水滴区域。

输入值

有两种可能的输入，您可以使用2维数组或1维数组。您可以在任何输入（例如stdin等）之间进行选择。
例如：

// 2-dimensional:
[[0,1,0,0,0,0,1,0,0,0],
 [0,1,1,0,0,0,0,1,1,0],
 [0,1,1,0,0,0,0,1,0,0],
 [0,1,0,0,0,0,0,0,0,0],
 [0,0,0,0,0,0,0,0,1,0],
 [0,0,0,1,1,0,0,0,1,0],
 [0,0,0,1,1,0,0,0,1,0],
 [0,0,0,0,0,1,1,0,1,0],
 [0,0,0,0,0,1,1,0,1,0],
 [0,0,0,0,0,0,0,0,0,0]]

// 1-dimensional
[0,1,0,0,0,0,1,0,0,0,
 0,1,1,0,0,0,0,1,1,0,
 0,1,1,0,0,0,0,1,0,0,
 0,1,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,1,0,
 0,0,0,1,1,0,0,0,1,0,
 0,0,0,1,1,0,0,0,1,0,
 0,0,0,0,0,1,1,0,1,0,
 0,0,0,0,0,1,1,0,1,0,
 0,0,0,0,0,0,0,0,0,0]

输出量

您的代码必须以
“大小：Z坐标：（X1，Y1）（X2，Y2）..” 的格式输出最大连接区域的大小以及属于该区域的水滴的x坐标和y坐标。 ”。
先前输入的示例：

Size: 6 Coordinates: (1,0) (1,1) (2,1) (1,2) (2,2) (1,3)

坐标的顺序无关紧要。

规则

  • 如果水滴相互垂直接触，则它们相互连接
  • 对角线连接不计算在内
  • 可能有很多领域，您的代码必须找到最大的领域
  • 空字段表示为“ 0”，湿字段表示为“ 1”
  • 发布您的解决方案并提供简短说明和先前输入的输出
  • 接下来7天内的最短代码将获胜
  • 如果有两个面积相同的区域，则可以选择一个

优胜者：Ventero 171-红宝石

code-golf 
— 伊兹林
source
2
@Doorknob抱怨打字错误？OP是德语。
— edc65
1
@Doorknob我更改了，谢谢。时限仅说明我何时确定获胜者，但您仍然可以发布答案。
— 伊兹林
6
— 2014年
1
@TeunPronk：OP表示原始海报。在Google中查找它：)
— 2014年
2
确切地讲，对允许使用哪种输入方法进行一些澄清非常好。
— Ventero 2014年

Answers:

3

Ruby，171个字符

r=eval *$*
u=(0..99).map(&v=->p{-~p*r[p]>0?" (#{r[p]=0;u=p%c=10},#{p/c})"+v[p+c]+v[p-c]+v[u>0?p-1:p]+v[u<9?p+1:p]:""}).max_by &:size
puts"Size: #{u.size/6} Coordinates:"+u

通过命令行参数输入为一维数组。

样本输入的输出： Size: 6 Coordinates: (1,0) (1,1) (1,2) (1,3) (2,2) (2,1)

该答案使用简单的洪水填充方法，为每个雨滴簇建立坐标列表。大部分代码实际上用于边界检查和I / O。

— 文特罗
source
5

Python-192

a=10;g+=[0]*a
def f(k):
 if g[k]:g[k]=0;return" (%d,%d)"%(k/a,k%a)+f(k+a)+f(k-a)+f(k+(k%a<9))+f(k-(k%a>0))
 return''
m=max(map(f,range(100)),key=len)
print"Size: "+`len(m)/6`+" Coordinates:"+m

输入（在代码之前粘贴）：

g=[0,1,0,0,0,0,1,0,0,0,0,1,1,0,0,0,0,1,1,0,0,1,1,0,0,0,0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,1,1,0,0,0,1,0,0,0,0,1,1,0,0,0,1,0,0,0,0,0,0,1,1,0,1,0,0,0,0,0,0,1,1,0,1,0,0,0,0,0,0,0,0,0,0,0]

感谢加尔文的爱好建议的编辑！

— 向量化
source
您可以使用map(f,range(100))而不是[f(i)for i in range(100)]保存8个字符。我也相信您的坐标是（y，x）而不是（x，y）。
— 加尔文的爱好2014年
3

C＃-548 523 522 511 503 476

（500 ...以下）

我敢肯定还有很多改进的余地。

我输入数据的方式是初始化数组。我没有在分数中包含该数组（如果您认为这是作弊的话，我可以更改代码，但由于C＃不能很好地解析数组，因此它将添加相对较多的代码）

using o=System.Console;using l=System.Collections.Generic.List<int[]>;class P{
static int[,] a ={{0,1,0,0,0,0,1,0,0,0},{0,1,1,0,0,0,0,1,1,0},{0,1,1,0,0,0,0,1,0,0},{0,1,0,0,0,0,0,0,0,0},{0,0,0,0,0,0,0,0,1,0},{0,0,0,1,1,0,0,0,1,0},{0,0,0,1,1,0,0,0,1,0},{0,0,0,0,0,1,1,0,1,0},{0,0,0,0,0,1,1,0,1,0},{0,0,0,0,0,0,0,0,0,0}};
static int w=10,h=w,x=0,y;static l t=new l(),m=new l();static void f(int r,int c){if(a[r,c]==1){a[r,c]=0;if(r<h)f(c,r+1);if(r>0)f(c,r-1);if(c<w)f(c+1,r);if(c>0)f(c-1,r);t.Add(new[]{c,r});}}static void Main(){for(;++x<w;)for(y=0;++y<h;){if(a[x,y]==1)f(x,y);if(t.Count>m.Count)m=t.FindAll(r=>true);t.Clear();}o.Write("Size: "+m.Count+" Coordinates: ");m.ForEach(c=>o.Write("({0},{1}) ",c[0],c[1]));}}

在http://ideone.com/UCVCPM上进行测试

注意：当前版本在ideone中不起作用，因为它不喜欢using l=System.Collections...，因此ideone版本略有过时（并且更长）

怎么运行的

它基本上检查是否存在1。如果找到一个，它将使用Flood Fill算法用替换所有相邻1的，0并将替换后的坐标添加到临时列表中。之后，它将顶部列表（m）与临时列表（t）进行比较，并设置m为t是否t包含更多元素。

— 克里斯多夫·博姆瓦尔德（ChristophBöhmwalder）
source
3

Mathematica-180个字节

此函数采用二维数组。

打高尔夫球

f@x_:=(c=MorphologicalComponents[x,CornerNeighbors->False];m=Last@SortBy[ComponentMeasurements[c,"Count"],Last];Print["Size: ",Last@m," Coordinates: ",Reverse/@Position[c,m[[1]]]])

漂亮

f@x_ := (
   c = MorphologicalComponents[x, CornerNeighbors -> False];
   m = Last@SortBy[ComponentMeasurements[c, "Count"], Last];
   Print["Size: ", Last@m, " Coordinates: ", Reverse/@Position[c, m[[1]]]]
   );

例

{0,1,0,0,0,0,1,0,0,0,0,1,1,0,0,0,0,1,1,0,0,1,1,0,0,0,0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,1,1,0,0,0,1,0,0,0,0,1,1,0,0,0,1,0,0,0,0,0,0,1,1,0,1,0,0,0,0,0,0,1,1,0,1,0,0,0,0,0,0,0,0,0,0,0};
w=Partition[%,10];
f@w

大小：6坐标：{{1,2}，{2,2}，{2,3}，{3,2}，{3,3}，{4,2}}

输出略有异常。Mathematica从1而不是0开始索引，并用于{}指示位置。-1如果需要将位置索引为0，则添加2个字节（）。如果需要使用大量字节()代替{}:(

说明

f是的功能x。它定义c为的变换x，其中每个（i，j）现在等于一个整数，该整数对应于它属于哪个连接的组件。它涉及主要工作：

MorphologicalComponents[w, CornerNeighbors -> False] // Colorize

在此处输入图片说明

然后m计算每个组件中有多少个元素，按该数字对它们进行排序，然后获取最后的结果（意思是，元素最多）。最后一行显示计数，以及中c包含的索引的位置m。

— 冯冯
source
2

哈斯克尔（246）

r=[0..9]
q=[(i,j)|i<-r,j<-r]
t v p@(i,j)|elem p v||notElem p q||g!!j!!i==0=v|1<2=foldr(\(k,l)v->t v(i+k,j+l))(p:v)$zip[-1,0,1,0][0,-1,0,1]
(?)=map
a=t[]?q;(b,c)=maximum$zip(length?a)a
main=putStrLn.unwords$["Size:",show b,"Coordinates:"]++show?c

输入值

二维粘贴为g，例如：

g = [[0, 1, 1, ......, 0], [......], ....]

不打高尔夫球

field = [
 [0,1,0,0,0,0,1,0,0,0],
 [0,1,1,0,0,0,0,1,1,0],
 [0,1,1,0,0,0,0,1,0,0],
 [0,1,0,0,0,0,0,0,0,0],
 [0,0,0,0,0,0,0,0,1,0],
 [0,0,0,1,1,0,0,0,1,0],
 [0,0,0,1,1,0,0,0,1,0],
 [0,0,0,0,0,1,1,0,1,0],
 [0,0,0,0,0,1,1,0,1,0],
 [0,0,0,0,0,0,0,0,0,0]
 ]
range = [0..9]
positions = [(i, j) | i <- range, j <- range]
directions = zip [-1, 0, 1, 0] [0, -1, 0, 1]
traverse visited pos@(i, j)
  | pos `elem` visited || pos `notElem` positions || field!!j!!i == 0 = visited
  | otherwise = foldr folder (pos:visited) directions
  where folder = (\(di, dj) visited -> traverse visited (i + di, j + dj))
blocks = map (traverse []) positions
(maxCount, maxBlock) = maximum $ zip (map length blocks) blocks
main = putStrLn.unwords $ ["Size:", show maxCount, "Coordinates:"] ++ map show maxBlock
— 射线
source
2

C＃374byte函数

这是我对“你在最大房间里吗？”的回答的重大修改版本。。它采用一维整数数组，并以所需的样式返回字符串。它通过在输入中建立不相交的集合（第一个循环），计算每个集合的大小并找到最大的集合（第二个循环），然后将该集合中的任何单元格附加到输出字符串（第三个循环），然后返回该字符串来工作。

static string F(int[]g){int s=10,e=0,d=s*s,a=0,b=d+1;int[]t=new int[b],r=new int[b];t[d]=d;System.Func<int,int>T=null,k=v=>t[T(v)]=t[v]<d?a:d;T=v=>t[v]!=v?T(t[v]):v;for(;a<d;a++)if(g[a]>0){e=t[a]=a;if(a>s)k(a-s);if(a%s>0)k(a-1);}else t[a]=d;for(;a-->0;)e=r[e]<++r[b=T(a)]&&b<d?b:e;var p="Size: "+r[e]+" Coordinates:";for(;d-->1;)p+=T(d)==e?" ("+d%s+","+d/s+")":"";return p;}

少打高尔夫球（并带有测试代码）：

class P
{
    static int[] z = {0,1,0,0,0,0,1,0,0,0,0,1,1,0,0,0,0,1,1,0,0,1,1,0,0,0,0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,1,1,0,0,0,1,0,0,0,0,1,1,0,0,0,1,0,0,0,0,0,0,1,1,0,1,0,0,0,0,0,0,1,1,0,1,0,0,0,0,0,0,0,0,0,0,0};

    static string F(int[]g)
    {
        int s=10,e=0,d=s*s,a=0,b=d+1;

        int[]t=new int[b],r=new int[b];
        t[d]=d;
        System.Func<int,int>T=null,k=v=>t[T(v)]=t[v]<d?a:d;
        T=v=>t[v]!=v?T(t[v]):v;

        for(;a<d;a++)
            if(g[a]>0)
            {
                e=t[a]=a;
                if(a>s)k(a-s);
                if(a%s>0)k(a-1);
            }
            else
                t[a]=d;
        for(;a-->0;)
            e=r[e]<++r[b=T(a)]&&b<d?b:e;

        var p="Size: "+r[e]+" Coordinates:";
        for(;d-->1;)
            p+=T(d)==e?" ("+d%s+","+d/s+")":"";

        return p;
    }

    static void Main()
    {
        System.Console.WriteLine(F(z));
    }
}
— VisualMelon
source
这让我感到很抱歉我的476字节的解决方案:( +1你，好先生。
— 克里斯托夫Böhmwalder
1

的JavaScript（EcmaScript的6）183 189

具有数组输入和字符串返回值的函数。如果需要实际输出（我不清楚），请为“ alert（）”添加7个字节。

W=(a,n=10,x=0)=>(F=p=>a[p]|0&&(a[p]=0,o+=' ('+p%n+','+(p/n|0)+')',1+F(p-n)+F(p+n)+F(p-(p%n>0))+F(p+((p+1)%n>0))),a.map((e,p)=>(t=F(p,o=''))>x&&(x=t,k=o)),'Size: '+x+' Coordinates:'+k)

测试输出

Size: 6 Coordinates: (1,0) (1,1) (1,2) (1,3) (2,2) (2,1)

更具可读性

W=(a,n=10,x=0)=>
(
  F=p=>
    a[p]|0&&(  
      a[p]=0,o+=' ('+p%n+','+(p/n|0)+')',
      1+F(p-n)+F(p+n)+F(p-(p%n>0))+F(p+((p+1)%n>0)) // modulo takes care of not overflowing out of a row
    ),
  a.map((e,p)=>(t=F(p,o=''))>x&&(x=t,k=o)), 
  'Size: '+x+' Coordinates:'+k
)

说明

获取一个维数组和一个可选参数，其大小为一行。该函数还适用于不同的数组尺寸，甚至x！= y。

伪代码：

 For each element, 
   try to fill. 
   During the fill operation build a string with the coordiinates. 
   Remember the longest fill and the corresponding string and 
 output that at the end.
— edc65
source
1

JavaScript 273

函数采用数组并返回字符串。我的第一次尝试是〜500个字符，并且没有使用Flood Fill。这一个。我正在学习JavaScript，因此任何建议将不胜感激。

此函数循环遍历输入数组，找到的每个数组都从该数组开始，并使用Fill函数将所有连接的1s更改为0。这样做时，它会记住最多1的斑点。填充功能将当前位置更改为0，然后在上方，右侧，下方和左侧的位置调用自身。

function G(m){var B="",b=0;for(var p=0;p<m.length;p++)if(m[p]){var T="",t=0;
Z(p);if(t>b){b=t;B=T;}}return"Size: "+b+" Coordinates:"+B;function Z(p){if(m[p])
{m[p]=0;t++;T+=" ("+p%10+","+Math.floor(p/10)+")";if(p>9)Z(p-10);if(p%10)Z(p-
1);if(p<90)Z(p+10);if(p%10!=9)Z(p+1);}}}

在这里测试：http：//goo.gl/9Hz5OH

可读代码

var map = [0, 1, 0, 0, 0, 0, 1, 0, 0, 0,
           ...
           0, 0, 0, 0, 0, 0, 0, 0, 0, 0];

function F(map) {

    var bestBlob = "", bestLen=0;
    for (var p = 0; p < map.length; p++)
        if (map[p]) {
            var thisBlob = "", thisLen=0;
            Fill(p);
            if (thisLen > bestLen){
                bestLen=thisLen ; bestBlob = thisBlob;
            }
        }
    return "Size: " + bestLen + " Coordinates:" + bestBlob;

    function Fill(p) {
        if (map[p]) {
            map[p] = 0; thisLen++;
            thisBlob += " (" + p % 10 + "," + Math.floor(p / 10) + ")";
            if (p > 9) Fill(p - 10);
            if (p % 10) Fill(p - 1);
            if (p < 90) Fill(p + 10);
            if (p % 10 != 9) Fill(p + 1);
        }
    }
}
— 杰夫·SB
source
1

斯卡拉420

嗨，我的条目将2d数组作为List[List[Int]]，返回了String

val o=for{(r, y)<-w.zipWithIndex;(v,x)<-r.zipWithIndex;if(v == 1)}yield(x,y);val a=o.flatMap(c=>o.collect{case(x,y)if{(x==c._1+1||x==c._1-1)&&y==c._2^(y==c._2+1||y==c._2-1)&&x==c._1}=>c->(x,y)}).groupBy(_._1).map(n => (n._1->n._2.map(t=>t._2)));val b=a.values.flatMap(v=>v.map(c=>a(c)++v));val l=b.collect{case x if (x.length==b.map(_.length).max)=>x}.head;println(s\"Size: ${l.length} Coordinates: ${l.mkString(" ")}\")

说明

给定一个窗口List[List[Int]]，首先我们找到每个“ 1”并将坐标保存在列表中。接下来，我们将该列表转换Map为每个“ 1”的坐标的a ，以将列表转换为每个相邻“ 1”的坐标。然后使用邻接图可传递地将子blob链接为blob，最后返回最大blob（并忽略重复的blob，因为返回坐标的顺序无关紧要）。

更易读

 val w = {
  List(//0,1,2,3,4,5,6,7,8,9
    List(0,1,0,0,0,0,1,0,0,0), //0
    List(0,1,1,0,0,0,0,1,1,0), //1
    List(0,1,1,0,0,0,0,1,0,0), //2
    List(0,1,0,0,0,0,0,0,0,0), //3
    List(0,0,0,0,0,0,0,0,1,0), //4
    List(0,0,0,1,1,0,0,0,1,0), //5
    List(0,0,0,1,1,0,0,0,1,0), //6
    List(0,0,0,0,0,1,1,0,1,0), //7
    List(0,0,0,0,0,1,1,0,1,0), //8
    List(0,0,0,0,0,0,0,0,0,0)) //9
}

case class Coord(x: Int, y: Int)

val ones: List[Coord] = for{
  (row, y)   <- w.zipWithIndex
  (value, x) <- row.zipWithIndex
  if (value == 1)        
} yield Coord(x,y)

val adjacencyMap: Map[Coord, List[Coord]] = ones.flatMap(keyCoord => ones.collect{
case Coord(adjacentX, adjacentY) if {
    (adjacentX == keyCoord.x + 1 || adjacentX == keyCoord.x - 1) && adjacentY == keyCoord.y ^ 
    (adjacentY == keyCoord.y + 1 || adjacentY == keyCoord.y - 1) && adjacentX == keyCoord.x
  }  => keyCoord->Coord(adjacentX,adjacentY)
}).groupBy(_._1).map(n => (n._1->n._2.map(t=>t._2) ))

val blobs: Iterable[List[Coord]] = adjacencyMap.values.flatMap(v => v.map(coord => adjacencyMap(coord)++v))

val largestBlob: List[Coord] = blobs.collect{case x if (x.length == blobs.map(b=> b.length).max) => x}.head

println(s"""Size: ${largestBlob.length} Coordinates: ${largestBlob.collect{case Coord(x,y) => (x,y)}.mkString(" ")}""")

批评是非常赞赏的。

— 朱利安·皮特斯（Julian Peeters）
source
By using our site, you acknowledge that you have read and understand our Cookie Policy and Privacy Policy.
Licensed under cc by-sa 3.0 with attribution required.