Eu tenho um desafio para você:

• Imprima "Hello World" usando qualquer idioma.
• Cada caractere deve ser impresso a partir de seu próprio e exclusivo thread

É isso aí. Obviamente, como não há garantia de que os encadeamentos operem na ordem em que você os inicia, você deve tornar o encadeamento do programa seguro para garantir que a saída seja impressa na ordem correta.

E, como se trata de código de golfe, o programa mais curto vence.

Atualizar:

O vencedor é a inscrição de Marinus na APL , com 34 caracteres. Ele também ganha o prêmio pela entrada menos legível.

APL (Dyalog) ( 44 43 39 34)

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

Explicação:

• 2 11⍴'Hello World',⍳11 cria uma matriz: (H, 1), (e, 2), ...
• &⌿ significa: para cada coluna da matriz, faça em um thread separado:
• Em um tópico, ⍺agora é o personagem e ⍵agora é a hora
• ⎕DL⊃⍵espera por ⍵segundos.
• Em seguida, ⍞←⍺gera o caractere.

C, 61 62 caracteres

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

Todas as funções da biblioteca pthread têm nomes demais; portanto, iniciei um processo separado inteiro para cada personagem. fork()é muito mais curto.

Era necessário usar em write()vez de, putchar()porque as funções de buffer stdio não são seguras para threads.

Editado : faça backup de 62 caracteres. No meu zelo, cair para 61 caracteres também diminuiu a segurança dos fios.

Ruby, 46 caracteres

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

Ele é sincronizado devido ao fato de o programa aguardar o término do thread antes de iniciar o próximo thread e continuar com o próximo caractere.

Pythonect (35 caracteres)

http://www.pythonect.org

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

Python ( 101 93 98)

Esta é a solução de Peter Taylor. Funciona atrasando a impressão do N-ésimo caractere por N segundos. Ver comentários.

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

Este é o original:

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

Funcionou porque o tempo que leva para imprimir um único caractere é menor que o tempo que o Python leva para inicializar um novo encadeamento; portanto, o N-ésimo segmento terminaria antes que o N-1-ésimo segmento fosse criado. Aparentemente, é contra as regras confiar nisso.

C # 73

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

APL (Dyalog Unicode) , ^{SBCS de} 28 bytes

Programa completo. Imprime em stderr. Inspirado pela solução de marinus .

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

Experimente online!

⍳11 primeiros 11 inteiros

'Hello World'{… }&¨ Para cada número inteiro como argumento da direita ( ⍵), gera a seguinte função com o caractere correspondente como argumento da esquerda ( ⍺):

 ⎕DL⍵ d e l ay segundos argumento direita

 ⍺⊣ descartar que (o atraso efetivo) em favor do caractere de argumento à esquerda

 ⍞← imprima isso no stdout sem quebras de linha à direita

Java (160 caracteres)

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

Sim, eu sei que esse é o idioma errado para o código de golfe, eu faço isso por diversão.

Festança (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

Eu não tenho tanta certeza de multiplicar por 9999 - eu tenho um Xeon de 2Ghz no qual funcionará bem, mesmo que você não o faça, mas também tenho um Pentium 4 que precisa dele (999 deu saída ilegível e 99 não) não faça nada.)

scala ( 81 79 caracteres)

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

Groovy, 51 caracteres

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

D (135 caracteres)

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

Só inicio o próximo segmento quando já imprimi o caractere atual

editar +2 caracteres para uma melhor verificação vinculada

Scala 74

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

• zipWithIndex produz ((H, 0), (e, 1), (l, 2) ...).
• par torna uma coleção paralela.

Testes:

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

Solução baseada em junção do thread #

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

ou

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

Esta é minha tentativa de F #. Meu primeiro programa sério de F #. Por favor seja gentil.

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

Vai

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]).

Compilar 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: muitos caracteres, mas funciona.

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

Versão em execução: http://ideone.com/0dXNw

Objective-C (183 caracteres)

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

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

Como ele funciona é que cada thread começa no próximo depois de exibir seu caractere, de modo que coisas realmente úteis não podem acontecer fora de sequência.

Bash , 43 bytes

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

Experimente online!

xargsbifurca um printfprocesso separado para cada caractere (e aguarda sua saída).

Bash , 45 bytes, sem utilitários externos

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

Experimente online!

Expande para (printf H); (printf e); (printf l); (printf l); (printf o); (printf \ ); (printf W); (printf o); (printf r); (printf l); (printf d);antes da avaliação. Os parênteses tornam o Bash bifurcar um subshell para cada letra (e aguarde a saída), mas desta vez printfé o Bash embutido.