commit d0586da7c181ef9cede1d2c12a267d9a90b5b25c Author: fredrikr79 Date: Thu Sep 18 10:26:40 2025 +0200 parallel pi computations using threads diff --git a/main.ua b/main.ua new file mode 100644 index 0000000..53a68a9 --- /dev/null +++ b/main.ua @@ -0,0 +1,11 @@ +f ← ˜÷1+1ⁿ2 +ι ← +⟜(\+↯⤙(˜÷⌵-)) # linspace +i! ← ÷⊃⧻/+ ^0 ι # integrate numerically (mean function value) +t! ← ⊙(&p×1e3⌵-)⊙now^0⊙now # time 1-ary function + +0 1 4 # interval [a, b] with n partitions (threads) +⊂⟜(\+↯⤙(˜÷⌵-)) # partition into n subintervals +⊃(t!(⧈₂/(i!f⊙⊙1e8)) # sequential: integrate each area +| t!(wait⧈₂/pool(i!f⊙⊙1e8)) # threading with n threads: this is faster +) +×4÷⊃⧻/+ ◌ # discard one of the benchmarked calculations, collect result