작업

이것은 매우 간단한 코딩 작업입니다. 프로그램에서 캔버스 (또는 다른 코딩 언어의 대안)에 포인트를 놓고 이미 배치 된 모든 점에 연결하면됩니다. 프로그램은 하나의 입력과 배치해야하는 도트 수를 가져 와서 도트가 연결된 상태에서 일종의 디스플레이를 출력해야합니다. 예

요구 사항

• 나는 그것을 실행할 수 있어야한다. 즉, 온라인으로 또는 공개적으로 다운로드 할 수있는 컴파일러 / 도구가 있어야한다는 것을 의미한다.
• 이 문제를 해결하기위한 목적으로 만 설계된 것이 아니라면이 문제가 설정되기 전에 만들어진 라이브러리를 사용할 수 있습니다.
• 이것은 문자를 의미하는 가장 짧은 코드 작업입니다. 주석, 색상 변경 (예쁜) 및 라이브러리는 무시됩니다.
• 답은 고유해야하며 다른 사람들의 코드를 훔치지 말고 몇 글자를 줄인 후 다시 게시하십시오.
• 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발병률 행렬입니다. 두 번째 인수는 n x 2점의 좌표 가있는 행렬 이어야 하지만 두 번째 차원이 2보다 큰 경우 중요하지 않으므로 n x n임의 값 의 행렬을 생성합니다 ( 매트릭스를 생성하는 것보다 2 문자가 짧음 n x 2).

문서에 대한 링크

• gplot
• 그들
• 랜드

자바 : 318 282 265

왜냐하면, 자바는 :

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 자 :)

파이썬 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 포인트로 생성되었습니다.)

매스 매 티카 95 87

벨리 사리우스의 도움으로.

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)

그렇지 않으면 영원히 걸릴 것입니다. :피

언 골프 드 :

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()

제 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=5DOSBox 0.74에서 실행되는 QBasic 1.1로 테스트되었습니다.

의 경우 N=100DOSBox 0.74에서 실행되는 QBasic 1.1로 테스트되었습니다.

배쉬 + 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로,이 플랫폼의 최신 운영체제에 루아 스크립트를 추가)
또한 할 수있다 여기에 온라인 시도 (단지 삭제 데모 스크립트 및 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();
        }
    }
}

manatwork 덕분에 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 프라임이 도착했습니다. 실제 계산기에서 n = 100의 실행 시간은 다음과 같습니다.

n = 100의 경우 약 0.65 초.

에뮬레이터는 Core i5 2410M 랩톱에서 약 4 배 (약 0.178 초) 빠릅니다.

NetLogo, 51 바이트

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

필요에 따라 9s를 다른 상수 또는 변수로 바꾸십시오.