Mam dla ciebie wyzwanie:

• Wydrukuj „Hello World” w dowolnym języku.
• Każda postać musi być wydrukowana z własnego, unikalnego wątku

Otóż ​​to. Oczywiście, ponieważ nie ma gwarancji, że wątki będą działały w kolejności, w jakiej je uruchomiłeś, musisz zapewnić bezpieczeństwo swojego wątku programu, aby mieć pewność, że wydruk zostanie wydrukowany we właściwej kolejności.

A ponieważ jest to kod golfowy, wygrywa najkrótszy program.

Aktualizacja:

Zwycięzcą jest wpis APL Marinusa, składający się z 34 znaków. Wygrywa także nagrodę za najmniej czytelne zgłoszenie.

APL (Dyalog) ( 44 43 39 34)

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

Wyjaśnienie:

• 2 11⍴'Hello World',⍳11 tworzy macierz: (H, 1), (e, 2), ...
• &⌿ oznacza: dla każdej kolumny macierzy wykonaj w osobnym wątku:
• W wątku ⍺jest teraz postacią i ⍵nadszedł czas
• ⎕DL⊃⍵czeka ⍵sekund.
• Następnie ⍞←⍺wypisuje postać.

C, 61 62 znaków

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

Wszystkie funkcje biblioteki pthread mają długie nazwy, więc zamiast tego uruchomiłem osobny proces dla każdej postaci. fork()jest o wiele krótszy.

Konieczne było użycie write()zamiast, putchar()ponieważ funkcje buforowania stdio nie są bezpieczne dla wątków.

Edytowano : Wykonaj kopię zapasową do 62 znaków. W mojej gorliwości zejście do 61 znaków obniżyło także bezpieczeństwo wątków.

Ruby, 46 znaków

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

Jest zsynchronizowany ze względu na fakt, że program czeka na zakończenie wątku przed rozpoczęciem następnego wątku i kontynuowaniem następnego znaku.

Pythonect (35 znaków)

http://www.pythonect.org

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

Python ( 101 93 98)

To jest rozwiązanie Petera Taylora. Działa poprzez opóźnienie drukowania N-tego znaku o N sekund. Zobacz komentarze.

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

To jest oryginalny:

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

Działało, ponieważ czas potrzebny do wydrukowania pojedynczego znaku jest krótszy niż czas potrzebny Pythonowi na zainicjowanie nowego wątku, dlatego N-ty wątek skończyłby się przed utworzeniem N + 1-tego wątku. Najwyraźniej poleganie na tym jest niezgodne z zasadami.

C # 73

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

APL (Dyalog Unicode) , 28 bajtów ^SBCS

Pełny program Drukuje na stderr. Zainspirowany rozwiązaniem marinus .

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

Wypróbuj online!

⍳11 pierwsze 11 liczb całkowitych

'Hello World'{… }&¨ Dla każdej liczby całkowitej jako prawego argumentu ( ⍵), spawn następującą funkcję z odpowiednim znakiem jako lewym argumentem ( ⍺):

 ⎕DL⍵ d e l Ay sek prawego argumentu

 ⍺⊣ odrzuć to (skuteczne opóźnienie) na korzyść znaku lewostronnego

 ⍞← wydrukuj to na standardowe wyjście bez przerywania linii

Java (160 znaków)

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

Tak, wiem, że to zły język dla golfa kodowego, robię to dla zabawy.

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

Nie jestem pewien, czy pomnożyć przez 9999 - mam Xeon 2Ghz, na którym będzie działał dobrze, nawet jeśli nie, ale mam też Pentium 4, który tego potrzebuje (999 dał zniekształcony wynik, a 99 nie zrobił ” w ogóle nic.)

scala ( 81 79 znaków)

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

Groovy, 51 znaków

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

D (135 znaków)

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..$]);
}

Następny wątek zaczynam dopiero, gdy już wydrukowałem bieżący znak

edytuj +2 znaki, aby lepiej sprawdzić wiązanie

Scala 74

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

• zipWithIndex produkuje ((H, 0), (e, 1), (1, 2) ...).
• par sprawia, że ​​jest to kolekcja równoległa.

Testy:

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

Rozwiązanie oparte na łączeniu wątków

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

lub

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

To jest moja próba F #. Mój pierwszy poważny program w języku F #. Proszę bądź uprzejmy.

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

Udać się

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

Erlang (90)

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

Skompilować erlc +export_all h.erl

Nimrod, 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: za dużo znaków, ale działa.

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

Działająca wersja: http://ideone.com/0dXNw

Cel C (183 znaków)

-(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 znaków

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

Jak to działa, każdy wątek zaczyna się od następnego po wyświetleniu swojego charakteru, więc tak naprawdę przydatne rzeczy nie mogą wydarzyć się poza sekwencją.

Bash , 43 bajty

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

Wypróbuj online!

xargsrozwidla osobny printfproces dla każdej postaci (i czeka na zakończenie).

Bash , 45 bajtów, brak zewnętrznych narzędzi

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

Wypróbuj online!

Rozwija się (printf H); (printf e); (printf l); (printf l); (printf o); (printf \ ); (printf W); (printf o); (printf r); (printf l); (printf d);przed oceną. Nawiasy sprawiają, że rozwidlenie Bash jest podpowłoką dla każdej litery (i czeka na zakończenie), ale tym razem printfjest to wbudowane Bash.