File: t5000.nim

package info (click to toggle)
nim 2.2.0-1
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 1,911,644 kB
  • sloc: sh: 24,603; ansic: 1,761; python: 1,492; makefile: 1,013; sql: 298; asm: 141; xml: 13
file content (25 lines) | stat: -rw-r--r-- 361 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
discard """
  output: '''50005000'''
  disabled: "true"
"""

# XXX this seems to deadlock certain Linux machines

import threadpool, strutils

proc foo(x: int): string = $x

proc main() =
  var a = newSeq[int]()
  for i in 1..10000:
    add(a, i)

  var s = 0
  for i in a:
    s += parseInt(^spawn(foo(i)))
  echo s

setMaxPoolSize 2

parallel:
  spawn main()