Die Aufgabe

Dies ist eine recht einfache Codierungsaufgabe. Alles, was Ihr Programm tun muss, ist, einen Punkt auf einer Zeichenfläche (oder Ihre Alternative in einer anderen Codierungssprache) zu platzieren und ihn mit allen bereits platzierten Punkten zu verbinden. Ihr Programm muss eine Eingabe, die Anzahl der Punkte, die platziert werden sollen, und eine Art Anzeige mit den verbundenen Punkten ausgeben. Beispiel

Bedarf

• Ich muss in der Lage sein, es auszuführen, was bedeutet, dass es einen Compiler / ein Tool haben muss, um es entweder online auszuführen oder öffentlich zum Herunterladen verfügbar zu sein.
• Sie dürfen jede Bibliothek verwenden, die vor dem Festlegen dieser Herausforderung erstellt wurde, sofern sie nicht ausschließlich zu diesem Zweck entwickelt wurde.
• Dies ist eine kürzeste Code-Aufgabe, dh Zeichen. Kommentare, Code, der die Farbe ändert (um hübsch zu sein) und Bibliotheken werden ignoriert.
• Ihre Antwort muss eindeutig sein, stehlen Sie nicht den Code anderer Leute, kürzen Sie ihn um einige Zeichen und veröffentlichen Sie ihn erneut.
• Es muss für die Werte 5 und 100 in weniger als 5 Minuten ausgeführt werden können. Außerdem muss eine Auflösung von mindestens 200 * 200 verwendet und jeder Punkt an einer zufälligen Stelle auf der Leinwand mit einer nicht trivialen Verteilung platziert werden.

Aktuelle Rangliste

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

Wenn ich dich vermisst habe, tut es mir sehr leid, füge einfach einen Kommentar zu deiner Arbeit hinzu und ich werde ihn hinzufügen, sobald ich ihn sehe =)

TL; DR

• Eingabe - Anzahl der Punkte (int, kann fest codiert werden)
• Ausgabe - Bild von zufällig platzierten Punkten, die alle miteinander verbunden sind (Grafik)
• Gewinner - Kürzester Code

Matlab (22)

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

Es wird angenommen, dass n die Anzahl der Punkte ist und dies für n = 10 so aussieht:

n=6:

Erklärung

gplotist ein Befehl zum Zeichnen von Graphen. Das erste Argument ist eine n x nInzidenzmatrix (offensichtlich voller Einsen). Das zweite Argument sollte eine n x 2Matrix mit den Koordinaten der Punkte sein, aber es spielt keine Rolle, ob die zweite Dimension größer als 2 ist, also erstelle ich einfach eine n x nMatrix aus Zufallswerten (die 2 Zeichen kürzer ist als das Erzeugen einer n x 2Matrix).

Links zur Dokumentation

• gplot
• Einsen
• rand

Java: 318 282 265

Weil, weißt du, 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();}}

Es ist nur eine einfache Schleife, die zufällige Punkte erzeugt und Linien zwischen dem aktuellen Punkt und allen vorherigen Punkten zeichnet.

Beispiel mit 25 Punkten:

Mit Zeilenumbrüchen und Importen:

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

Bearbeiten: Da wir keine Importe zählen, habe ich später noch ein paar Dinge importiert, um einige Zeichen zu speichern.

Edit 2: OP hat die Anzahl der Punkte fest codiert. -17 Zeichen :)

Python 2 - 41 35

Nach dem Importieren einiger Bibliotheken als für diese Herausforderung zulässig

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

Wir können einige verbundene Punkte mit nur einer Codezeile zeichnen:

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

(Der Screenshot wurde mit 10 Punkten erstellt.)

Mathematica 95 87

Mit etwas Hilfe von Belisarius.

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

n = 5

n = 100

Timing: 2,082654 Sek

Python 2, 158

Importanweisungen, die nicht in der Anzahl der Zeichen enthalten sind ("Bibliotheken werden ignoriert").

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

Beispielausgaben:

n = 2 (...):

n = 10 (sieht aus wie ausgefallenes 3D-Ding oder so):

n = 100 (sieht aus, als wäre jemand mit einem roten Stift BLELEEEAARARGHHH gegangen):

n = 500, 1000, 10000 (dauert etwa 1,5 Sekunden, 5 bis 6 Sekunden bzw. 3,5 Minuten):

Hinweis: Die 10000 Punkte wurden mit einer leicht optimierten Version ausgeführt, bei der Zeile 3 (ohne Importe) folgendermaßen geändert wurde:

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

Sonst hätte es ewig gedauert. : P

Ungolfed:

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

Dieses betrügt an der Grenze, aber ich denke immer noch, dass es innerhalb der Regeln liegt. Zum Einrichten laden Sie das igraphPaket mit library(igraph), das Sie mit von CRAN herunterladen können install.packages("igraph"). Weisen Sie dann die Eingabe der Variablen zu N. Nach den Regeln werden diese nicht mitgerechnet.

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

N = 50

Beachten Sie, dass dieser Code auch Selbstverbindungen zeichnet. Wenn Sie sie eliminieren (obwohl es keine Regel gegen sie gibt), werden 6 Zeichen hinzugefügt:

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

R 141

Dies ist eine ehrliche Lösung in Basis 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]))

obwohl Sie noch eingeben müssen N von Hand .

N = 50

Ich frage mich, ob eine forSchleife weniger Zeichen enthalten würde als, applyaber ich bin zufrieden mit dem, was ich habe.

QBasic oder QuickBasic, 130 Zeichen

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

Code-Variationen

• Wenn Sie nicht zur Eingabe eines Startwerts aufgefordert werden möchten, ersetzen Sie diesen RANDOMIZEdurchRANDOMIZE TIMER .
• Wenn Sie zur Eingabe von N aufgefordert werden möchten, ersetzen Sie diese N=10durch INPUT Noder INPUT "N";N.

Probeläufe

Für N=5, getestet mit QBasic 1.1 unter DOSBox 0.74:

Für N=100, getestet mit QBasic 1.1 unter DOSBox 0.74:

Bash + ImageMagick: 148 Zeichen

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:

Probelauf:

bash-4.3$ time ./line.sh 5

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

Beispielausgabe:

Probelauf:

bash-4.3$ time ./line.sh 25

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

Beispielausgabe:

Probelauf:

bash-4.3$ time ./line.sh 100

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

Beispielausgabe:

TCL 161 Zeichen

Es wird sicherlich nicht gewinnen, aber es schlägt einige andere, die hier vorgestellt werden, und ich denke, es nutzt eine stark unterbewertete Sprache.

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}}

Die Standardleinwandgröße in meinem System scheint 291 x 204 zu sein. Ich weiß nicht warum, aber die Verwendung spart 13 Zeichen.

Ziemlich schnell, 400 Punkte in <5 Sekunden, 500 in ~ 10 Sekunden. Größe und Punkte können beliebig skaliert und Farben und Linienstile auf Kosten der Zeichen geändert werden. Ohne Golf spielen und Variablen verwenden, um das Skalieren und Färben klarer und einfacher zu machen:

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

(Aktualisierte feste Version)

"Importieren" von math.random als "r", als erstes, wie erlaubt: r=math.random

Tatsächlicher Code:

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

Hinweis: Dieser Code funktioniert mit den TI-Nspire- Rechnern (TI hat Lua-Skripte zu den neuesten Betriebssystemen dieser Plattform hinzugefügt, mit einer geraden API, mit der Benutzer beispielsweise Grafiken usw.
erstellen können .) Sie können ihn auch online ausprobieren (einfach löschen) das Demo-Skript und voranstellen mir mit n=10zum Beispiel)

C # Windows Forms, 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

Der vollständige Code ist unten angegeben

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, dank Handarbeit

<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});}}}

Ich möchte sagen, dass ich Stroke = Brushed.Red entfernen könnte. Aber das bedeutet leider, dass ich transparente Linien male und meine Vermutung ist, dass es nicht wirklich zählt. : PI kann auch einige Bytes sparen, indem Sie einfach ein Raster in der XAML-Ansicht erstellen. Aber das schien unfair, also habe ich die XAML entfernt, um eine leere Leinwand zu werden. (Ich zähle die XAML nicht als Bytes ...)

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-Programmiersprache für den HP Prime-Farbgrafikrechner)

Golf es runter. Elf Zeichen weniger, indem alle möglichen neuen Linien direkt nach jeder neuen Punkterstellung gezeichnet werden. Nur zwei verschachtelte Schleifen anstelle der vorherigen drei.

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

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;

Beispiele:

c (10)

c (30)

Der HP Prime Color Graphing Calculator verfügt über ein 320 x 240 Pixel großes Farbdisplay.

Ein Emulator, der auch mit dem Connectivity Kit funktioniert, ist auf der HP Website oder hier erhältlich: http://www.hp-prime.de/de/category/6-downloads

... noch auf die Hardware warten. Update zur Ausführungszeit folgt.

Heute ist mein HP Prime angekommen. Hier ist die Ausführungszeit für n = 100 auf einem tatsächlichen Rechner:

Um 0,65 s für n = 100.

Der Emulator ist auf meinem Core i5 2410M-Laptop ungefähr viermal so schnell (ungefähr 0,178 s).

NetLogo, 51 Bytes

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

Ersetzen Sie 9s bei Bedarf durch andere Konstanten oder Variablen.