[過去ﾛｸﾞ] プログラミングのお題スレ Part13 (1002ﾚｽ)

プログラミングのお題スレ Part13 http://mevius.5ch.net/test/read.cgi/tech/1549160513/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

384: さまよえる蟻人間 ◆T6xkBnTXz7B0 [sage] 2019/02/25(月) 02:47:19.11 ID:qxzw13Bf お題: スリープと複数のスレッドを使って素数を10個求めよ。１つのスレッドは素数倍数のループを意味する。 http://mevius.5ch.net/test/read.cgi/tech/1549160513/384

385: さまよえる蟻人間 ◆T6xkBnTXz7B0 [sage] 2019/02/25(月) 03:51:24.00 ID:qxzw13Bf >>384 ヒント: 一秒ごとにリセットするカウンターを使う。 http://mevius.5ch.net/test/read.cgi/tech/1549160513/385

403: デフォルトの名無しさん [sage] 2019/02/26(火) 18:05:30.42 ID:KX5s2hIr >>384 Squeak/Pharo Smalltalk | tick start primes sema sieveMaker processes ans | tick := 1 second. start := DateAndTime now. primes := SharedQueue new. sema := Semaphore new. sieveMaker := [:x | [[(tick * x) asDelay wait. sema signal] repeat]]. processes := SharedQueue new. tick asDelay wait. processes nextPut: [ [ tick asDelay wait. sema isSignaled ifFalse: [ | prime sieve | prime := primes nextPut: (DateAndTime now - start / tick) asInteger. sieve := sieveMaker value: prime. processes nextPut: sieve fork ]. sema initSignals ] repeat ] fork. ans := (1 to: 10) collect: [:idx | primes next]. 1 to: processes size do: [:idx | processes next terminate]. ans "=> #(2 3 5 7 11 13 17 19 23 29) " http://mevius.5ch.net/test/read.cgi/tech/1549160513/403

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.030s