ฉันมีความท้าทายสำหรับคุณ:

• พิมพ์ "Hello World" โดยใช้ภาษาใดก็ได้
• อักขระแต่ละตัวจะต้องพิมพ์จากเธรดที่ไม่ซ้ำใคร

แค่นั้นแหละ. เห็นได้ชัดว่าไม่มีการรับประกันว่าเธรดจะทำงานตามลำดับที่คุณเริ่มต้นคุณต้องทำให้เธรดโปรแกรมของคุณปลอดภัยเพื่อให้แน่ใจว่าผลลัพธ์จะถูกพิมพ์ในลำดับที่ถูกต้อง

และเนื่องจากนี่คือรหัสกอล์ฟโปรแกรมที่สั้นที่สุดชนะ

ปรับปรุง:

ผู้ชนะคือรายการ APL ของ Marinusที่ 34 ตัวอักษร นอกจากนี้ยังชนะรางวัลสำหรับการอ่านที่น้อยที่สุด

APL (Dyalog) ( 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 ตัวอักษรยังลดความปลอดภัยของด้าย

Ruby, 46 ตัวอักษร

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

มีการซิงโครไนซ์เนื่องจากความจริงที่ว่าโปรแกรมจะรอให้เธรดสิ้นสุดก่อนเริ่มเธรดถัดไปและดำเนินการกับอักขระถัดไป

Pythonect (35 ตัวอักษร)

http://www.pythonect.org

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

Python ( 101 93 98)

นี่คือทางออกของ Peter Taylor มันทำงานได้โดยการล่าช้าการพิมพ์ตัวอักษร N - th โดย 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-th จะเสร็จสิ้นก่อนที่เธรด N + 1-th จะถูกสร้างขึ้น เห็นได้ชัดว่ามันขัดกับกฎที่ต้องพึ่งพาสิ่งนี้

C # 73

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

APL (Dyalog Unicode) , 28 ไบต์^SBCS

โปรแกรมเต็มรูปแบบ พิมพ์ไปยัง stderr แรงบันดาลใจจากการแก้ปัญหา marinus'

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

ลองออนไลน์!

⍳11 11 จำนวนเต็มแรก

'Hello World'{… }&¨ สำหรับแต่ละจำนวนเต็มว่าเป็นอาร์กิวเมนต์ที่ถูกต้อง ( ⍵) ให้วางฟังก์ชันต่อไปนี้โดยใช้อักขระที่สอดคล้องกันเป็นอาร์กิวเมนต์ซ้าย ( ⍺):

 ⎕DL⍵ dอีลิตร 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();}}

ใช่ฉันรู้ว่านี่เป็นภาษาที่ผิดสำหรับรหัสกอล์ฟฉันทำเพื่อความสนุกสนาน

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

ฉันไม่แน่ใจเกี่ยวกับการคูณด้วย 9999 - ฉันมี 2Ghz Xeon ซึ่งมันจะทำงานได้ดีแม้ว่าคุณจะทำไม่ได้ แต่ฉันก็มี Pentium 4 ที่ต้องการ (999 ให้ผลลัพธ์ที่อ่านไม่ออกและ 99 didn ' ไม่ทำอะไรเลย)

สกาล่า ( 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..$]);
}

ฉันจะเริ่มหัวข้อถัดไปเมื่อฉันพิมพ์ char ปัจจุบันแล้ว

แก้ไข +2 chars เพื่อการตรวจสอบที่ถูกต้องยิ่งขึ้น

สกาล่า 74

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

• zipWithIndex สร้าง ((H, 0), (e, 1), (l, 2) ... )
• ตราไว้หุ้นละทำให้มันเป็นคอลเลกชันแบบขนาน

แบบทดสอบ:

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

สกาล่า (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"

วิธีการทำงานคือแต่ละเธรดเริ่มต้นถัดไปหลังจากที่ได้แสดงตัวละครดังนั้นพวกเขาจริง ๆ แล้วสิ่งที่มีประโยชน์ไม่สามารถเกิดขึ้นได้ตามลำดับ

Bash , 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 แยกย่อยสำหรับแต่ละตัวอักษร (และรอให้ออก) แต่คราวนี้printfเป็น Bash ในตัว