PasteRack.org
Paste # 54369
2020-01-25 02:37:29

Fork as a new paste.

Paste viewed 470 times.


Embed:

  1. #lang typed/racket
  2.  
  3. (for/fold: : (Listof Integer)
  4.     ([acc : (Listof Integer) (cast '() (Listof Integer))]
  5.            [seen : (HashTable Integer Boolean) (cast (hash) (HashTable Integer Boolean))]
  6.            #:result (reverse acc))
  7.           ([x : Integer (in-list '(0 1 1 2 3 4 4 4))])
  8.   (cond
  9.     [(hash-ref seen x #f)
  10.      (values acc seen)]
  11.     [else (values (cons x acc)
  12.                   (hash-set seen x #t))]))

=>