任务

这是一个非常简单的编码任务，您的程序所要做的就是将一个点放置在画布上（或用另一种编码语言替代），并将其连接到所有已放置的点上。您的程序必须接受一个输入，即应放置的点数，并在连接点的情况下输出某种显示。 例

要求

• 我必须能够运行它，这意味着它必须具有编译器/工具才能在线运行或公开下载。
• 允许您使用在设置此挑战之前创建的任何库，只要它并非旨在解决该问题的唯一目的即可。
• 这是最短的代码任务，即字符。注释，更改颜色的代码（用于修饰）和库将被忽略。
• 您的答案必须是唯一的，不要窃取其他人的代码，请缩短一些字符并重新发布。
• 它必须能够在5分钟内运行（值5和100）。它还必须使用至少200 * 200的分辨率，并使用非平凡的分布将每个点放在画布上的随机位置。

现任排行榜

Flawr        - Matlab        - 22  - Confirmed
Falko        - Python 2      - 41  - Confirmed
Wyldstallyns - NetLogo       - 51  - Confirmed 
Ssdecontrol  - R             - 66  - Confirmed
David        - Mathematica   - 95  - Confirmed
ILoveQBasic  - QBasic        - 130 - Confirmed
Adriweb      - TI-Nspire Lua - 145 - Confirmed
Manatwork    - Bash          - 148 - Confirmed
Doorknob     - Python 2      - 158 - Confirmed
Kevin        - TCL           - 161 - Confirmed
M L          - HPPPL         - 231 - Confirmed
Manatwork    - HTML/JS       - 261 - Confirmed - Improved code of Scrblnrd3
Makando      - C#            - 278 - Confirmed
Scrblnrd3    - HTML/JS       - 281 - Confirmed
Geobits      - Java          - 282 - Confirmed

如果我很想念您，很抱歉，只需在您的作品中添加一条评论，这样，我一看到就会立即添加它=）

TL; DR

• 输入-点数（整数，可以硬编码）
• 输出-随机放置的点的图像，所有点相互连接（图形）
• 优胜者-最短代码

Matlab（22）

gplot(ones(n),rand(n))

假设n是点数，对于n = 10，它看起来像这样：

n=6：

讲解

gplot是用于绘制图形的命令。第一个参数是一个n x n发生率矩阵（显然充满了）。第二个参数应该是具有n x 2点坐标的矩阵，但是第二个维度是否大于2并不重要，因此我只是生成一个n x n随机值矩阵（比生成n x 2矩阵短2个字符）。

文档链接

• gplot
• 那些
• 兰德

Java的：318 282 265

因为，您知道，Java：

class M{public static void main(String[]a){new Frame(){public void paint(Graphics g){int i=0,j,d=640,n=25,x[]=new int[n],y[]=x.clone();for(setSize(d,d);i<n;i++)for(j=0,x[i]=(int)(random()*d),y[i]=(int)(random()*d);j<i;g.drawLine(x[i],y[i],x[j],y[j++]));}}.show();}}

它只是一个简单的循环，它会随机产生点，并在当前点和所有先前点之间画线。

25个点的示例：

带换行符和导入：

import java.awt.*;
import static java.lang.Math.*;

class M{
    public static void main(String[]a){
        new Frame(){
            public void paint(Graphics g){
                int i=0,j,d=640,n=25,x[]=new int[n],y[]=x.clone();
                for(setSize(d,d);i<n;i++)
                    for(j=0,x[i]=(int)(random()*d),y[i]=(int)(random()*d);
                        j<i;
                        g.drawLine(x[i],y[i],x[j],y[j++]));
            }
        }.show();
    }
}

编辑：由于我们不计入进口量，因此我又进口了几件东西以以后保存一些字符。

编辑2：OP添加了硬编码点数的余量。-17个字符:)

Python 2-41 35

导入一些库以解决此挑战后

from pylab import rand as r
from pylab import plot as p
from itertools import product as x
from itertools import chain as c

我们可以只用一行代码绘制一些连接点：

X=r(5,2);p(*zip(*c(*list(x(X,X)))))

（屏幕截图生成了10分。）

Mathematica 95 87

在belisarius的帮助下。

CompleteGraph[n, VertexSize -> {2, 2},
VertexCoordinates -> Table[RandomInteger[{0, 199}, 2], {n}]]

n = 5

n = 100

时间：2.082654秒

蟒蛇2，158

如问题所述，导入语句不包括在字符计数中（“库将被忽略”）。

from PIL import Image,ImageDraw
from random import randint

s=[(randint(0,200),randint(0,200))for _ in range(int(input()))]
i=Image.new('RGB',(200,200))
[ImageDraw.Draw(i).line((p,q),255)for p in s for q in s]
i.show()

样本输出：

n = 2（...）：

n = 10（看起来像是3D奇特的东西）：

n = 100（看起来有人用红笔去了BLELEEEAARARGHHH）：

n = 500、1000、10000（分别运行约1.5秒，5-6秒和3.5分钟）：

注意：10000点是使用稍微优化的版本运行的，该版本将第3行（不包括导入）更改为：

d=ImageDraw.Draw
for p in s:
  for q in s:d.line((p,q),255)

否则，这将是永远的。：P

取消高尔夫：

from PIL import Image, ImageDraw
from random import randint
point_count = int(input())
image_size = 200
points = [(randint(0, image_size), randint(0, image_size)) for _ in range(point_count)]
image = Image.new('RGB', (200, 200))
draw = ImageDraw.Draw(image)
for start_point in points:
    for end_point in points:
        draw.line((start_point, end_point), 255)
image.show()

R，66

这是边缘作弊，但我仍然认为这是在规则范围内。通过加载设置igraph包library(igraph)，它可以从CRAN与下载install.packages("igraph")。然后将输入分配给variable N。根据规则，这些不计入总数。

G=graph.adjacency(matrix(1,N,N),"un")
plot(G,layout=layout.random)

N = 50

请注意，此代码还会绘制自连接。消除它们（尽管没有针对它们的规则）会添加6个字符：

G=graph.adjacency(matrix(1,N,N),"un",diag=F)
plot(G,layout=layout.random)

R，141

这是基于R的诚实至善解决方案：

p=replicate(2,runif(N))
g=as.matrix(expand.grid(1:N,1:N))
plot.new()
apply(g,1,function(i) segments(p[i[1],1],p[i[1],2],p[i[2],1],p[i[2],2]))

尽管您仍然需要N手动输入。

N = 50

我想知道for循环中的字符是否少于，apply但是我对自己所拥有的感到满意。

QBasic或QuickBasic，130个字符

SCREEN 1:RANDOMIZE:N=10:DIM X(100),Y(100):FOR I=1 TO N:X(I)=RND*320:Y(I)=RND*200:FOR J=1 TO I:LINE(X(I),Y(I))-(X(J),Y(J)):NEXT J,I

代码变体

• 如果不想提示您输入种子，请替换RANDOMIZE为RANDOMIZE TIMER。
• 如果要提示您输入N，请N=10用INPUT N或替换INPUT "N";N。

样品运行

对于N=5，使用在DOSBox 0.74上运行的QBasic 1.1进行了测试：

对于N=100，使用在DOSBox 0.74上运行的QBasic 1.1进行了测试：

Bash + ImageMagick：148个字符

c=()
while((i++<$1)); do
p=$[RANDOM%200],$[RANDOM%200]
c+=($p)
for e in ${c[@]};do
d+="line $p $e"
done
done
convert -size 200x200 xc: -draw "$d" x:

样品运行：

bash-4.3$ time ./line.sh 5

real    0m5.256s
user    0m0.137s
sys     0m0.017s

样本输出：

样品运行：

bash-4.3$ time ./line.sh 25

real    0m3.043s
user    0m0.574s
sys     0m0.023s

样本输出：

样品运行：

bash-4.3$ time ./line.sh 100

real    0m5.662s
user    0m11.156s
sys     0m0.076s

样本输出：

TCL 161个字符

显然不会取胜，但会击败这里提出的其他几项，我认为它很好地利用了一种被低估的语言。

for {set i 0} {$i<10} {incr i} {lappend l [expr rand()*291] [expr rand()*204]}
pack [canvas .c]
foreach {x y} $l {foreach {w z} $l {.c create line $x $y $w $z}}

我系统上的默认画布大小似乎为291x204。不知道为什么，但是使用它可以节省13个字符。

相当快，在不到5秒的时间内可以得到400分，在大约10 s内可以得到500分。大小和点数可以任意缩放，颜色和线条样式可以更改，当然要以字符为代价。取消高尔夫球运动并使用变量使其更清晰，更容易缩放和着色：

set n 20
set width 500
set height 500
set bg_color black
set line_color white
for {set i 0} {$i < $n} {incr i} {
        lappend points [expr rand() * $width] [expr rand() * $height]
}
canvas .c -width $width -height $height -background $bg_color 
pack .c
foreach {x1 y1} $points {
        foreach {x2 y2} $points {
                .c create line $x1 $y1 $x2 $y2 -fill $line_color
        }
}       

[TI-Nspire]的Lua - 145 135 130

（更新的固定版本）

首先将允许的math.random导入为“ r”： r=math.random

实际代码：

function on.paint(g)t={}for b=1,2*n-1,2 do t[b]=r(318)t[b+1]=r(212)for c=1,b-1,2 do g:drawLine(t[b],t[b+1],t[c],t[c+1])end end end

注意：此代码可在TI-Nspire计算器上运行（TI在该平台的最新OS上添加了Lua脚本，并具有基于偶数的API，例如允许用户绘制图形等。）
也可以在此处在线尝试（只需擦除演示脚本，并n=10以例如开头 ）

C＃Windows表格268

static void k(int n,int s){var f=new Form{Height=s+50,Width=s+25};f.Paint+=(u,v)=>{var r=new Random();var p=new Point[n];while(n>0)p[--n]=new Point(r.Next(s),r.Next(s));foreach(var a in p)foreach(var b in p)f.CreateGraphics().DrawLine(Pens.Tan,a,b);};f.ShowDialog();}

N = 5

N = 50

完整代码如下

using System;
using System.Drawing;
using System.Windows.Forms;

namespace WindowsFormsApplication2
{
    static class Program
    {
        static void Main()
        {
            k(50, 200);
        }
        static void k(int n, int s)
        {
            var f = new Form {Height = s + 50, Width = s + 25};
            f.Paint += (u, v) =>
            {
                var r = new Random();
                var p = new Point[n];
                while (n > 0)
                    p[--n] = new Point(r.Next(s), r.Next(s));
                foreach (var a in p)
                    foreach (var b in p)
                        f.CreateGraphics().DrawLine(Pens.Tan, a, b);
            };
            f.ShowDialog();
        }
    }
}

HTML / JS，210，多亏了操作

<canvas id=q /><script>c=q.getContext("2d");r=Math.random;e=prompt(a=[]);for(i=0;i<e;i++){a[i]={x:r()*300,y:r()*150};for(j in a)c.beginPath()+c.moveTo(a[i].x,a[i].y)+c.lineTo(a[j].x,a[j].y)+c.stroke()}</script>

JSFiddle

C＃WPF 306 296

partial class W:Window{public W(){InitializeComponent();int x=5,i=0,j,z=200;int[]f=new int[x],s=new int[x];var r=new Random();var X=new Grid();AddChild(X);for(;i<x;i++){f[i]=r.Next(z);s[i]=r.Next(z);for(j=i;j>=0;)X.Children.Add(newLine(){X1=s[j],Y1=f[j--],X2=s[i],Y2=f[i],Stroke=Brushes.Red});}}}

我想说的是，我可以删除Stroke = Brushed.Red。但是可悲的是，这意味着我正在绘制透明的线条，而我的猜测是，它实际上并不重要。：PI也可以通过仅在XAML视图中创建网格来节省几个字节。但这似乎是不公平的，因此我剥离了XAML成为一块空白画布。（我不将XAML视为字节...）

partial class W:Window
{
    public W()
    {
        InitializeComponent();
        int x=5,i=0,j,z=200;
        int[]f=new int[x],s=new int[x];
        var r = new Random();
        var X = new Grid();
        AddChild(X);
        for (;i<x;i++)
        {
            f[i]=r.Next(z);
            s[i]=r.Next(z);
            for (j=i;j>=0;)
                X.Children.Add(new Line()
                {
                    X1 = s[j],
                    Y1 = f[j--],
                    X2 = s[i],
                    Y2 = f[i],
                    Stroke = Brushes.Red
                });
        }
    }
}

XAML

<Window x:Class="W"
        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        Title="MainWindow" Height="350" Width="525">
</Window>

5

100

HPPPL， 231 220

（用于HP Prime彩色图形计算器的HP Prime编程语言）

打高尔夫球。在每次创建新点后立即绘制所有可能的新线，从而减少了11个字符。只有两个嵌套循环，而不是前三个。

export c(n) begin rect();local g,h;a:=makemat(0,n,2);for g from 1 to n do a(g,1):=ip(random(1,320));a(g,2):=ip(random(1,240));if g>1 then for h from 1 to g-1 do line_p(a(h,1),a(h,2),a(g,1),a(g,2));end;end;end;freeze;end;

空球（270个字符）：

export randomnet(n)
begin
rect();
local g,h;
a:=makemat(0,n,2);
for g from 1 to n do
  a(g,1):=ip(random(1,320));
  a(g,2):=ip(random(1,240));
    if g>1 then
      for h from 1 to g-1 do
        line_p(a(h,1),a(h,2),a(g,1),a(g,2));
      end;
    end;
end;
freeze;
end;

例子：

c（10）

c（30）

HP Prime彩色图形计算器具有320x240像素的彩色显示屏。

可以在HP网站或以下位置获得与连接套件一起使用的仿真器：http : //www.hp-prime.de/en/category/6-downloads

...仍在等待硬件到达。随后将更新执行时间。

今天，我的HP Prime到了。这是实际计算器上n = 100的执行时间：

n = 100时约为0.65 s。

在我的Core i5 2410M笔记本电脑上，仿真器的速度大约是其四倍（约0.178 s）。

NetLogo，51个字节

crt 9 [create-links-with other turtles fd random 9]

根据需要用其他常量或变量替换9s。