File: trefseqsort.nim

package info (click to toggle)
nim 2.2.4-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 1,951,164 kB
  • sloc: sh: 24,599; ansic: 1,771; python: 1,493; makefile: 1,013; sql: 298; asm: 141; xml: 13
file content (33 lines) | stat: -rw-r--r-- 423 bytes parent folder | download | duplicates (4) 
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
26
27
28
29
30
31
32
33
 
discard """
  output: '''@[0, 4, 9, 1, 3, 2]
@[0, 1, 2, 3, 9]'''
"""
# bug #6724
import algorithm

type
  Bar = object
    bar: ref seq[int]
  Foo = ref Bar

proc test(x: ref Foo) =
  x.bar[].del(1)
  x.bar[].sort(cmp)

proc main() =
  var foo: ref Foo
  new(foo)

  var s = @[0, 4, 9, 1, 3, 2]

  var sr: ref seq[int]
  new(sr)
  sr[] = s

  foo[] = Foo(bar: sr)
  echo($foo.bar[])

  test(foo)
  echo($foo.bar[])

main()