タスク

これは非常に単純なコーディングタスクです。プログラムで行う必要があるのは、キャンバス（または別のコーディング言語の代替）にポイントを配置し、それを既に配置されているすべてのドットに接続することだけです。プログラムは、1つの入力、配置されるドットの数を受け取り、ドットが接続されたある種のディスプレイを出力する必要があります。 例

必要条件

• 実行できるようにする必要があります。つまり、オンラインで実行するか、ダウンロードして公開するコンパイラ/ツールが必要です。
• これを解決するためだけに設計されていない限り、このチャレンジが設定される前に作成されたライブラリを使用できます。
• これは最短のコードタスクであり、文字を意味します。コメント、色を変えるコード（可愛さのため）、およびライブラリは無視されます。
• あなたの答えはユニークでなければならず、他の人のコードを盗んではいけません。それを数文字短くして再投稿してください。
• 5と100の値の場合、5分未満で実行できる必要があります。また、少なくとも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

• 入力-ドット数（int、ハードコーディング可能）
• 出力-相互に接続された、ランダムに配置されたドットの画像（グラフィック）
• 勝者-最短コード

Matlab（22）

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

nはポイント数であり、n = 10の場合は次のようになります。

n=6：

説明

gplotグラフをプロットするためのコマンドです。最初の引数はn x n発生行列（1でいっぱい、明らかに）です。2番目の引数はn x 2、ポイントの座標を持つ行列でなければなりませんが、2番目の次元が2より大きいかどうかは関係ないのでn x n、ランダム値の行列（行列の生成より2文字短いn x 2）を生成します。

ドキュメントへのリンク

• gplot
• もの
• ランド

Java：318282 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つをインポートしました。

編集2：OPはハードコーディング数のドットの許容量を追加しました。-17文字:)

パイソン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

1行のコードで、いくつかの接続されたポイントをプロットできます。

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

（スクリーンショットは10ポイントで生成されました。）

Mathematica 95 87

ベリサリウスの助けを借りて。

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

n = 5

n = 100

タイミング：2.082654秒

Python 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")。次に、入力を変数に割り当てます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秒で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]ルア- 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は、例えばなどのグラフのものをユーザーに許可してもベースのAPIで、このプラットフォームの最近のOSにLuaスクリプトを追加しました）
それはまたすることができ、ここで、オンラインで試してみました（単に消去デモスクリプトを追加して 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、manatworkのおかげ

<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個減らします。前の3つではなく、2つのネストされたループのみ。

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;

Ungolfed（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のWebサイトまたはhttp://www.hp-prime.de/en/category/6-downloadsから入手できます。

...ハードウェアが到着するのを待っています。実行時間の更新が続きます。

今日、私のHP Primeが到着しました。実際の計算機でのn = 100の実行時間は次のとおりです。

n = 100の場合、約0.65秒。

エミュレータは、Core i5 2410Mラップトップで約4倍（約0.178秒）です。

NetLogo、51バイト

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

必要に応じて、9を他の定数または変数に置き換えます。