Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]


Groups > comp.lang.forth > #49174

Re: Remove consecutive duplicates

From Ron Aaron <rambamist@gmail.com>
Newsgroups comp.lang.forth
Subject Re: Remove consecutive duplicates
Date 2016-07-15 14:49 +0300
Organization A noiseless patient Spider
Message-ID <nmaijn$vfp$1@dont-email.me> (permalink)
References <nm7d7k$ndh$1@dont-email.me> <7fd75b19-9501-4dd7-8866-00592a12131d@googlegroups.com> <nmaeom$j4u$1@dont-email.me>

Show all headers | View raw


A cleanup of the previous one, which uses the same comparator as the sort:

: -dups \ a cmp -- a'
  >r
  -1 a:@ swap
  (
    tuck r@ w:exec
  ) a:filter
  rdrop nip ;

Back to comp.lang.forth | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread


Thread

Remove consecutive duplicates "WJ" <w_a_x_man@yahoo.com> - 2016-07-14 06:59 +0000
  Re: Remove consecutive duplicates Richard Todd <richard.wesley.todd@gmail.com> - 2016-07-14 12:50 -0700
    Re: Remove consecutive duplicates Ron Aaron <rambamist@gmail.com> - 2016-07-15 13:43 +0300
      Re: Remove consecutive duplicates Ron Aaron <rambamist@gmail.com> - 2016-07-15 14:49 +0300
  Re: Remove consecutive duplicates Chris Curl <ccurl609@gmail.com> - 2016-07-14 17:14 -0700
    Re: Remove consecutive duplicates Julian Fondren <julian.fondren@gmail.com> - 2016-07-14 17:45 -0700
      Re: Remove consecutive duplicates missycurl@gmail.com - 2016-07-14 19:46 -0700
  Re: Remove consecutive duplicates "Ala'a" <amalawi@gmail.com> - 2016-07-15 14:25 -0700

csiph-web