У мене є виклик для вас:

• Роздрукуйте "Hello World" будь-якою мовою.
• Кожен символ повинен бути надрукований із власної, унікальної нитки

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

І, оскільки це кодовий гольф, виграє найкоротша програма.

Оновлення:

Переможець - запис APL Марінуса на 34 символи. Він також виграє приз за найменш читабельний запис.

APL (Діалог) ( 44 43 39 34)

{⍞←⍺⊣⎕DL⍵}&⌿2 11⍴'Hello World',⍳11

Пояснення:

• 2 11⍴'Hello World',⍳11 створює матрицю: (H, 1), (e, 2), ...
• &⌿ означає: для кожного стовпця матриці зробіть на окремому потоці:
• У нитці - ⍺це зараз персонаж і ⍵зараз час
• ⎕DL⊃⍵чекає ⍵секунд.
• Потім ⍞←⍺виводить персонаж.

C, 61 62 символів

i;main(){write(1,"Hello World\n"+i++,1);i>13||fork()||main();}

У всіх функціях бібліотеки pthread є імена loooooong, тому натомість я запустив цілий окремий процес для кожного символу. fork()настільки коротше.

Використовувати це потрібно було write()замість того, putchar()що функції буферизації stdio не є безпечними для потоків.

Відредаговано : резервне копіювання до 62 символів. В моєму завзятті, опускаючись до 61 символу, також знизилася безпека нитки.

Рубі, 46 символів

"Hello World".chars{|c|Thread.new{$><<c}.join}

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

Pythonect (35 символів)

http://www.pythonect.org

"Hello World"|list|_.split()->print

Пітон ( 101 93 98)

Це рішення Пітера Тейлора. Він працює, затримуючи друк N-го символу на N секунд. Дивіться коментарі.

import sys.threading as t
for x in range(11):t.Timer(x,sys.stdout.write,"Hello World"[x]).start()

Це оригінал:

import sys,threading as t
for x in "Hello World":t.Thread(None,sys.stdout.write,x,x).start()

Це спрацювало, тому що час, необхідний для друку одного символу, менший, ніж часу, необхідному Python для ініціалізації нового потоку, тому N-й потік закінчиться до створення N + 1-го потоку. Мабуть, проти правил покладатися на це.

C # 73

"hello world".ToList().ForEach(c=>Task.Run(()=>Console.Write(c)).Wait());

APL (Dyalog Unicode) , 28 байт ^SBCS

Повна програма. Друкує на stderr. Натхненний розчином марінуса .

'Hello World'{⍞←⍺⊣⎕DL⍵}&¨⍳11

Спробуйте в Інтернеті!

⍳11 перші 11 цілих чисел

'Hello World'{… }&¨ Для кожного цілого числа як правого аргументу ( ⍵), породжуйте наступну функцію відповідним символом як аргумент зліва ( ⍺):

 ⎕DL⍵ d e l ay права аргументація секунд

 ⍺⊣ відмовтеся від цього (ефективна затримка) на користь символу лівого аргументу

 ⍞← роздрукуйте його до stdout без переривання ліній

Java (160 символів)

class A{static int i;public static void main(String...a){new Thread(){public void run(){System.out.print("Hello World".charAt(i++));if(i<11)main();}}.start();}}

Так, я знаю, що це неправильна мова для кодового гольфу, я це роблю для задоволення.

Баш (64)

:(){ [ "$1" ]&&(echo -n "${1:0:1}"&: "${1:1}")};: "Hello World"

Haskell ( 120 118)

import Control.Concurrent
t=threadDelay.(*3^8)
main=(\(x,y)->forkIO$t x>>putChar y)`mapM_`zip[0..]"Hello World">>t 99

Я не все впевнений у множенні на 9999 - у мене є 2 ГГц Xeon, на якому він буде добре працювати, навіть якщо ви цього не зробите, але у мене також є Pentium 4, який йому потрібен (999 дав неприємний вихід і 99 didn ' t взагалі нічого не роблю.)

scala ( 81 79 символів)

def?(l:String){if(l.size!=0)new Thread{print(l(0));?(l.tail)}}
?("Hello World")

Groovy, 51 персонаж

"Hello World".each{a->Thread.start{print a}.join()}

D (135 символів)

import std.concurrency,std.stdio;
void main(){
    p("Hello World");
}
void p(string h){
    write(h[0]);
    if(h.length>1)spawn(&p,h[1..$]);
}

Наступний потік я починаю лише тоді, коли вже надрукував поточну таблицю

відредагуйте +2 символи для кращої перевірки

Scala 74

"Hello World".zipWithIndex.par.map(x=>{Thread.sleep(x._2*99);print(x._1)})

• zipWithIndex виробляє ((H, 0), (e, 1), (l, 2) ...).
• par робить його паралельним збором.

Тести:

(1 to 10).foreach {_ => "Hello World".zipWithIndex.par.map(x=>{Thread.sleep(x._2*99);print(x._1)});println()}
Hello World
Hello World
Hello World
...
Hello World

Javascript (72)

(function f(){console.log("Hello world"[i++]);i<11&&setTimeout(f)})(i=0)

scala (45)

Тема # приєднання на основі рішення

"Hello World"map{x=>new Thread{print(x)}join}

або

for(x<-"Hello World")new Thread{print(x)}join

Це моя спроба F #. Моя перша серйозна програма F #. Будь ласка, будь ласка.

let myprint c = async {
        printfn "%c"c
}
"Hello World"|>Seq.map myprint|>Async.Parallel|>Async.RunSynchronously|>ignore

Іди

package main
import"fmt"
func main(){o:=make(chan int)
for _,c:=range"Hello World"{go func(c rune){fmt.Printf("%c",c)
o<-0}(c)}
for i:=0;i<11;i++{<-o}}

Ерланг (90)

-module(h).
r()->r("Hello World").
r([])->'';r([H|T])->spawn(h,r,[T]),io:format("~c",[H]).

Складіть erlc +export_all h.erl

Німрод, 121

proc p(c:char){.thread.}=write(stdout,c)
for c in "Hello World":
 var t:TThread[char]
 createThread(t,p,c)
 joinThread(t)

Python: занадто багато символів, але це працює.

# Ok. First we patch Threading.start to test wether our solution actually works

import threading
import random, time
original_run = threading.Thread.run


def myRun(self):
    tosleep = random.randint(0,200)/1000.0
    time.sleep(tosleep)
    original_run(self)

threading.Thread.run = myRun

# And now the real code:
import time, sys, threading
string_to_write = "Hello World\n"
current_char_index = 0 # This integer represents the index of the next char to be written
# It will act as a semaphore: threads will wait until it reaches
# the index of the single char that particular thread is due to output

class Writer(threading.Thread):
    def __init__(self, char_to_write, index_to_write):
        self.char_to_write, self.index_to_write = char_to_write, index_to_write
        super(Writer, self).__init__()
    def run(self):
        ch = globals()['current_char_index']
        while not self.index_to_write == ch:
            time.sleep(0.005)
        sys.stdout.write(self.char_to_write)
        # This will be atomic because no other thread will touch it while it has "our" index
        globals()['current_char_index'] += 1

for i, char in enumerate(string_to_write):
    Writer(char, i).start()

C # 90 84

foreach(var c in"Hello World"){var t=new Thread(Console.Write);t.Start(c);t.Join();}

Виконана версія: http://ideone.com/0dXNw

Objective-C (183 символи)

-(void) thread {[self performSelectorInBackground:@selector(printC) withObject:nil];}
-(void) printC {char *c = "Hello World"; for(int i = 0; c[i] != '\0'; i++) {printf("%c", c[i]);}}

Haskell 99 персонажів

import Control.Concurrent
f[]=return()
f(x:xs)=(putChar x)>>(forkIO$f xs)>>f[]
main=f"Hello World"

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

Баш , 43 байти

xargs -n1 printf<<<'H e l l o \  W o r l d'

Спробуйте в Інтернеті!

xargsформує окремий printfпроцес для кожного символу (і чекає його виходу).

Bash , 45 байт, без зовнішніх утиліт

eval \(printf\ {H,e,l,l,o,\\\ ,W,o,r,l,d}\)\;

Спробуйте в Інтернеті!

Розширюється до (printf H); (printf e); (printf l); (printf l); (printf o); (printf \ ); (printf W); (printf o); (printf r); (printf l); (printf d);оцінки. В дужках виходить Bash fork для підкреслення кожної літери (і чекайте, поки вона вийде), але на цей раз printfце Bash вбудований.