Завдання

Це досить проста задача кодування, все, що має зробити ваша програма, - це розмістити крапку на полотні (або альтернативу іншою мовою кодування) та підключити її до всіх уже розміщених крапок. Ваша програма повинна взяти за один вхід кількість точок, які слід розмістити, та вивести якийсь дисплей із підключеними точками. Приклад

Вимоги

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

• Введення - Кількість крапок (int, може бути жорстко закодовано)
• Вихід - зображення випадково розміщених крапок, всі з'єднані між собою (графічне)
• Переможець - найкоротший код

Матлаб (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матрицю).

Посилання на документацію

• гплот
• ті
• rand

Ява: 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: ОП додало припуск на жорстке кодування кількості крапок. -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 балами.)

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

Інакше це зайняло б назавжди. : 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, протестований з 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

Вибірка зразка:

161 символів TCL

Ясна річ не збирається перемагати, але перемагає декілька інших представлених тут, і я думаю, що вона добре використовує дуже занижену мову.

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] Луа - 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, завдяки манатурності

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

Я хотів би сказати, що я міг видалити «Інсульт» = «Почесаний». Але, на жаль, це означає, що я малюю прозорі лінії, і я здогадуюсь, що це насправді не буде рахувати. : 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/uk/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 на інші константи або змінні за потребою.