Задание

Это довольно простая задача кодирования, все, что ваша программа должна сделать, это поместить точку на холст (или вашу альтернативу на другом языке кодирования) и подключить ее ко всем уже размещенным точкам. Ваша программа должна принимать за один вход количество точек, которые должны быть размещены, и выводить какой-то вид отображения с подключенными точками. пример

Требования

• Я должен быть в состоянии запустить его, а это значит, что он должен иметь компилятор / инструмент для запуска его в Интернете или в открытом доступе для загрузки.
• Вам разрешается использовать любую библиотеку, созданную до того, как была поставлена ​​эта задача, если она не была предназначена исключительно для решения этой проблемы.
• Это задача кратчайшего кода, что означает символы. Комментарии, код, который меняет цвет (для красивости) и библиотеки, будут игнорироваться.
• Ваш ответ должен быть уникальным, не крадите чужой код, сокращайте его до нескольких символов и размещайте его повторно.
• Он должен быть в состоянии работать менее чем за 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

• Input - количество точек (int, может быть жестко закодировано)
• Вывод - изображение случайно расположенных точек, связанных друг с другом (рисунок)
• Победитель - кратчайший код

Матлаб (22)

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

Предполагается, что n является числом точек, и это выглядит так при n = 10:

n=6:

Explaination

gplotэто команда для построения графиков Первый аргумент - это n x nматрица инцидентности (очевидно, она полна единиц). Второй аргумент должен быть n x 2матрицей с координатами точек, но не имеет значения, если второе измерение больше 2, поэтому я просто генерирую n x nматрицу случайных значений (которая на 2 символа короче генерации n x 2матрицы).

Ссылки на документацию

• gplot
• те,
• рант

Ява: 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

С некоторой помощью Велисария.

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

п = 5

п = 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 (выглядит как причудливая трехмерная вещь или что-то в этом роде):

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)

Иначе это заняло бы вечность. :П

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

Р, 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, протестировано с QBasic 1.1, работающим на DOSBox 0.74:

Для N=100, протестировано с QBasic 1.1, работающим на DOSBox 0.74:

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 символов.

Довольно быстро, 400 очков за <5 секунд, 500 за ~ 10 с. Размер и точки можно масштабировать произвольно, а цвета и стили линий можно изменять, конечно же, за счет символов. Отключите гольф и используйте переменные, чтобы сделать его более понятным и легче масштабировать и окрашивать:

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 добавил 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, благодаря 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 меньше символов, рисуя все возможные новые линии сразу после каждого создания новой точки. Только две вложенные петли вместо предыдущих трех.

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;

Примеры:

с (10)

с (30)

Цветной графический калькулятор HP Prime оснащен цветным дисплеем с разрешением 320x240 пикселей.

Эмулятор, который также работает с комплектом подключения, доступен на веб-сайте HP или здесь: http://www.hp-prime.de/en/category/6-downloads.

... все еще жду прибытия оборудования. Обновление о времени выполнения будет следовать.

Сегодня прибыл мой HP Prime. Вот время выполнения для n = 100 на реальном калькуляторе:

Около 0,65 с для n = 100.

Эмулятор работает примерно в 4 раза быстрее (около 0,178 с) на моем ноутбуке Core i5 2410M.

NetLogo, 51 байт

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

Замените 9 с другими константами или переменными по мере необходимости.