flang.dev — The Fuzion Language Portal

JavaScript seems to be disabled. Functionality is limited.

Fuzion • Idioms • Idiom # 119: Deduplicate list

Idiom # 119: Deduplicate list

See programming-idioms.org:

Code

# preserving order
x := for
       r list<string> := nil, if (s.has e) r else cons e, r
       s := psSet<string>, s.add e
       e in x
     else
       r.reverse

# not preserving order
x := for
       s := psSet<string>, s.add e
       e in x
     else
       s.asArray

Running Example

ex119 is

  # preserving order
  x := [ "b", "a", "b", "c" ]
  x := for
         r list<string> := nil, if (s.has e) r else cons e, r
         s ref psSet<string> := psSet<string>, s.add e
         e in x
       else
         r.reverse
  say x

  # not preserving order
  x := [ "b", "a", "b", "c" ]
  x := for
         s ref psSet<string> := psSet<string>, s.add e
         e in x
       else
         s.asArray
  say x

next: NYI: Idiom # 120: Read integer from stdin