Учитывая список целых чисел, создайте логическую маску так, чтобы истинные индексы могли использоваться для фильтрации различных значений из списка. Какой индекс выбран как истинный, не имеет значения, если только один из них выбран для каждого набора индексов, соответствующих одинаковым значениям.

Входными данными будет непустой список неотрицательных целых чисел в формате, подходящем для вашего языка, а выходными данными будет список логических значений в соответствии с приведенной выше спецификацией. Вам разрешено использовать ваши собственные определения истинных и ложных значений в списке вывода.

В моих примерах ниже я определяю, 1чтобы быть правдивым и 0быть ложным.

[5, 4, 7, 1]  Input
[1, 1, 1, 1]  Output
              Select only the values with with true indicies in the sieve
[5  4  7  1]  Contains zero duplicate values

[5, 9, 7, 5, 6, 0, 5]
[0, 1, 1, 1, 1, 1, 0]
[   9, 7, 5, 6, 0   ]

Тестовые случаи

Когда есть or, это означает, что есть несколько допустимых выходов. Если ...после символа есть завершающий многоточие or, это означает, что не все возможные выходные данные были перечислены.

[0] = [1]

[55] = [1]

[32, 44] = [1, 1]

[0, 0] = [1, 0] or [0, 1]

[9001, 9001, 9001] = [1, 0 , 0] or [0, 1, 0] or [0, 0, 1]

[5, 4, 7, 1] = [1, 1, 1, 1]

[1, 2, 3, 4, 3, 5] = [1, 1, 1, 1, 0, 1] or
                     [1, 1, 0, 1, 1, 1]

[5, 9, 7, 5, 6, 0, 5] = [1, 1, 1, 0, 1, 1, 0] or
                        [0, 1, 1, 1, 1, 1, 0] or
                        [0, 1, 1, 0, 1, 1, 1]

[0, 8, 6, 6, 3, 8, 7, 2] = [1, 1, 1, 0, 1, 0, 1, 1] or
                           [1, 0, 0, 1, 1, 1, 1, 1] or
                           [1, 0, 1, 0, 1, 1, 1, 1] or
                           [1, 1, 0, 1, 1, 0, 1, 1]

[45, 47, 47, 45, 24, 24, 24, 8, 47, 41, 47, 88]
= [1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1] or ...

[154, 993, 420, 154, 154, 689, 172, 417, 790, 175, 790, 790, 154, 172, 175, 175, 420, 417, 154, 175, 172, 175, 172, 993, 689, 993, 993, 790]
= [1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] or ...

правила

• Это код-гольф, поэтому выигрывает самое короткое решение.
• Встроенные разрешены!
• Вам разрешено использовать ваши собственные определения истинных и ложных значений в списке вывода. Если вы решите сделать это, пожалуйста, укажите ваши определения.
• Входными данными будет непустой список неотрицательных целых чисел.
• Вы можете выбрать между выводом только одного из сит или нескольких или даже всех из них. Пока каждое сито действует, оно будет принято.

MATL, 7 6 4 байта

1 байт сохранен благодаря @Luis
2 байт сохранен благодаря @Dennis

&=Rs

Мы определяем, 1чтобы быть правдивым, а все остальные ценности - ложными

Попробуйте онлайн

Все тесты

объяснение

    % Implicitly grab input array
&=  % 2D array of equality comparisons
R   % Get the upper triangular portion
s   % Sum down the columns
    % Implicitly display the result

Желе , 4 байта

ĠṪ€Ṭ

Благоприятствует последним событиям. Попробуйте онлайн! или проверьте все контрольные примеры .

Как это устроено

ĠṪ€Ṭ  Main link. Argument: A (array)

Ġ     Group; paritition the indices of A according to their corresponding values.
 Ṫ€   Tail each; select the last index of each group.
   Ṭ  Untruth; generate a Boolean array with 1's at the specified indices.

Python 3, 47 35 39 36 байт

lambda n:[n.pop(0)in n for x in n*1]

Извлекает первый элемент из списка, проверяет, существует ли он где-либо еще в списке, и вставляет Trueили Falseв новый список.

Для этой функции Falseуказывает отдельное значение, а Trueв противном случае ( True=0и False=1)

Спасибо Деннису за тонну байтов

Оригинал, 47 байт:

lambda n:[(1,0)[n.pop()in n]for x in[1]*len(n)]

Попытайся

Pyth, 6 байт

.eqxQb

Выводит список bools ( Trueи False). Проверяет каждый элемент на входе, если его индекс равен индексу первого вхождения значения. Другими словами, это проверка того, является ли каждый элемент первым.

В питоническом псевдокоде:

.e      enumerated_map(lambda b,k:    # maps with b as value and k as index
  q       equal(
   xQb      Q.index(b),
            k),                       # implicit lambda variable
          Q)                          # implicit argument to map

Проверьте это здесь.

J , 2 байта

~:

Это было то, откуда идея для этого вызова возникла. Встроенный ~:вызывается Nub-Sieveв J и создает логический список, который выполняет операцию, описанную в вызове. Здесь 1представляет trueи 0представляет false.

05AB1E , 8 байтов

Код:

v¹ykN>Qˆ

Объяснение:

y         # For each in the array
 ¹yk      # Get the index of that element in the array
    N>Q   # And see if it's equal to the index
       ˆ  # Add to the global array and implicitly output

Использует кодировку CP-1252 . Попробуйте онлайн! ,

APL, 6 байт

⍳∘⍴∊⍳⍨

Попытайся

Объяснение:

   ⍳⍨  For each character in the string, get the index of its first occurrence
⍳∘⍴     Make a list 1 .. length of input
  ∊    Check if each index is present

C #, 63 байта

int[]l(List<int> i)=>i.Select((m,n)=>i.IndexOf(m)-n).ToArray();

Я мог бы также сделать так, чтобы он возвращал 1 или 0, и, соответственно, сделать параметр и тип возвращаемого значения одинаковыми, что позволило бы мне сделать это лямбда-выражением само по себе?

некоторые рекомендации будут оценены

код того же типа

    public static List<int>l(List<int>i){
        return i.Select((m,n)=>i.IndexOf(m)==n?1:0).ToList();
    }

Python, 35 байт

f=lambda l:l and[l.pop(0)in l]+f(l)

Пользы True как ложное значение иFalse истинное значение. Отмечает последнее появление каждого элемента.

Выбирает первый элемент, только если он не отображается среди оставшихся элементов, а затем возвращается к остальной части списка, если он не пуст. l.pop(0)Извлекает первый элемент , а также его удаления.

Сетчатка , 23 байта

(\d+)((?!.* \1\b))?
$#2

Ввод - это разделенный пробелами список. (На самом деле, другие форматы, такие как[1, 2, 3] , также будут работать до тех пор, пока перед каждым номером есть пробел, кроме первого.)

Попробуйте онлайн!(Работает на нескольких тестовых примерах, разделенных переводом строки).

Мы просто превращаем каждый элемент в 0более позднюю копию во входных данных и в 1противном случае.

PowerShell v2 +, 40 байт

$a=@();$args[0]|%{(1,0)[$_-in$a];$a+=$_}

Создает пустой массив $a. Затем мы берем список ввода через $args[0]и передаем его в цикл |%{...}. Каждая итерация мы выбираем либо 1или 0из псевдо-трехкомпонентной на основе того , является ли текущий элемент в$a или нет. Эти выборы остаются на конвейере. Затем мы добавляем текущий элемент в массив $a. Элементы конвейера собраны, и вывод в виде массива является неявным.

Пример:

(вывод здесь с разделителем новой строки, так как это по умолчанию .ToString()для массива)

PS C:\Tools\Scripts\golfing> .\distinct-sieves.ps1 1,2,3,4,1,3,5,7
1
1
1
1
0
0
1
1

JavaScript (ES6), 31 байт

f=a=>a.map((e,i)=>i-a.indexOf(e))

Ноль правдив, а другие числа ложны.

Mathematica, 53 31 байт

Спасибо миль за то, что дали мне идею, которая сэкономила 22 байта.

s[[;;x++]]~FreeQ~#&/@(x=0;s=#)&

Perl 5

push@o,map{$b=pop@a;(grep{/^$b$/}@a)?1:0}(1..~~@a);

Java, 96 байт

void s(int[]a){for(int i=0,j,n=a.length,b=1;i<n;a[i++]=b,b=1)for(j=i+1;j<n;)b=a[i]==a[j++]?0:b;}

Изменяет массив на месте. Благоприятствует последнему появлению.

Истинная ценность - в 1то время как фальшивая ценность 0.

Проверьте все тестовые случаи .

Ungolfed:

void sieve(int[]a){
    int n = a.length;
    for(int i=0;i<n;i++){
        int b = 1;
        for(int j=i+1;j<n;j++){
            if(a[i] == a[j]){
                b = 0;
            }
        }
        a[i] = b;
    }
}

На самом деле, 11 байтов

;╗ñ`i@╜í=`M

Попробуйте онлайн!

Объяснение:

;╗ñ`i@╜í=`M
;╗           save a copy of input in reg0
  ñ          enumerate
   `i@╜í=`M  for each (index, value) pair:
    i@         flatten, swap
      ╜í       first index in input of value
        =      compare equality

Пайк, 4 байта

F@oq

Попробуй это здесь!

     - o = 0 #(Implicit)
F    - for i in input:
 @   -   input.index(i)
   q -  ^==V
  o  -   o+=1

C ++, 242 байта

По общему признанию решение для избыточного количества, поскольку это работает на любом стандартном контейнере любого заказанного типа:

#include<algorithm>
#include<list>
#include<set>
template<class T>auto f(T a){using V=typename T::value_type;std::set<V>s;std::list<bool>r;std::transform(a.begin(),a.end(),std::back_inserter(r),[&](V m){return s.insert(m).second;});return r;}

Ungolfed:

(и далее обобщено)

template<class T>
auto f(T a)
{
    using std::begin;
    using std::end;
    using V=typename T::value_type;
    std::set<V>s;
    std::list<bool>r;
    std::transform(begin(a),end(a),std::back_inserter(r),[&](V m){return s.insert(m).second;});
    return r;
}

Тестирование:

int test(const std::list<bool>& expected, const auto& x) { return f(x) != expected; }
#include<array>
#include<chrono>
#include<forward_list>
#include<initializer_list>
#include<string>
#include<vector>
using namespace std::literals::chrono_literals;
int main()
{
    return 0
        + test({},            std::vector<short>{})
        + test({1},           std::array<int,1>{})
        + test({1},           std::vector<char>{55})
        + test({true,true},   std::vector<unsigned>{32,44})
        + test({1,0},         std::list<std::string>{"zero", "zero"})
        + test({1,0,0},       std::vector<long>{9001,9001,9001})
        + test({1,1,1,1},     std::array<char,4>{5,4,7,1})
        + test({1,1,1,1,0,1}, std::initializer_list<std::string>{"one","two","three","four","three","five"})
        + test({1,0,1,0,0},   std::forward_list<std::chrono::seconds>{60s, 1min, 3600s, 60min, 1h});
}

TSQL 52 байта

DECLARE @ TABLE(i int identity, v int)
INSERT @ values(1),(2),(3),(4),(3),(5)

SELECT i/max(i)over(partition by v)FROM @ ORDER BY i

скрипка

PHP, 66 62 39 байт

• принимает все атомарные значения (логическое, целое, число с плавающей точкой, строка)
  за исключением значений со значением false (false, 0, "") и числовых строк ("1" равно 1)
• флаги в первый раз

новая версия (программа, 37 + 2 байта)
^{превосходит Java и (теперь снова) C #. Даже почти превосходит Python сейчас. Счастливый.}

<?foreach($a as$v)$u[$v]=print$u[$v]|0;

• +6 для PHP> = 5.4, + 16-3 для функции
• печатает неограниченный список 0(true) и 1(false)
  вставки !послеprint инвертирования
• использование: установить register_globals=On, short_open_tags=Onи error_reporting=0в php.iniтечение php-cgi
  затем вызоваphp-cgi -f <filename> a[]=<value1> a[]=<value2> ...;echo"" ;
• для PHP> = 5.4: заменить $aна $_GET[a](+6), установить short_open_tags=Onиerror_reporting=0
• или заменить $aна array_slice($argv,1)(+19), удалить <?(-2)
  и вызватьphp -d error_reporting=0 -r '<code>' <value1> <value2> ...;echo""

старая версия (функция, 62 байта)

function f($a){foreach($a as$v)$u[$v]=1|$m[]=$u[$v];return$m;}

• возвращает массив falseдля true и trueдля false; (выводится как пустая строка или1 )
  вставить !после$m[]= инвертирования
• Есть и другой способ для квалифицированной функции с 55 байтами.

тесты (на старой версии)

function out($a){if(!is_array($a))return$a;$r=[];foreach($a as$v)$r[]=out($v);return'['.join(',',$r).']';}
function test($x,$e,$y){static $h='<table border=1><tr><th>input</th><th>output</th><th>expected</th><th>ok?</th></tr>';echo"$h<tr><td>",out($x),'</td><td>',out($y),'</td><td>',out($e),'</td><td>',(strcmp(out($y),out($e))?'N':'Y'),"</td></tr>";$h='';}
$samples=[
    [0],[1],    [55],[1],    [32,44],[1,1],    [9001,9001,9001],[1,false,false],
    [5,4,7,1],[1,1,1,1],    [1,2,3,4,3,5],[1,1,1,1,false,1],
    [5,9,7,5,6,0,5],[1,1,1,false,1,1,false],    [0,8,6,6,3,8,7,2],[1,1,1,false,1,false,1,1],
    [45,47,47,45,24,24,24,8,47,41,47,88],[1,1,'','',1,'','',1,'',1,'',1],
    [154,993,420,154,154,689,172,417,790,175,790,790,154,172,175,
        175,420,417,154,175,172,175,172,993,689, 993,993,790],
        array_merge([1,1,1,false,false,1,1,1,1,1],array_fill(0,18,false))
];
for($i=count($samples);$i--;--$i)for($j=count($samples[$i]);$j--;)$samples[$i][$j]=!$samples[$i][$j];
while($samples)
{
    $a=array_shift($samples);
    $em=array_shift($samples);
    test($a,$em,$ym=s($a));
    $eu=[];foreach($em as$i=>$f)if($f)$eu[]=$a[$i];
    $yu=[];foreach($ym as$i=>$f)if($f)$yu[]=$a[$i];
#   sort($eu); sort($yu);
    test('unique values',$eu,$yu);
}
echo '</table>';

Haskell, 29 27 байт

f a=[elem x t|x:t<-tails a]

Используется Falseкак true, Trueкак false:

λ> let f a=[elem x t|x:t<-tails a] in f [5, 9, 7, 5, 6, 0, 5]
[True,False,False,True,False,False,False]

Возможно, вам придется import Data.Listиспользовать, tailsно tryhaskell.org запускает код как есть.

Perl 5 + Perligata , 343 байта

315 байт плюс 28 для -MLingua::Romana::Perligata

Использовать как perl -MLingua::Romana::Perligata foo.pl; input (from stdin) и output (to stdout) - это разделенные подчеркиванием строки десятичных целых чисел. Протестировано на Strawberry 5.20.2 с версией 0.6 Perligata; Я не знаю, работает ли он с Perligata версии 0.50.

huic vestibulo perlegementum da.qis _ scindementa da.dum qis fac sic
ao qis decumulamentum da.ao aum tum nullum addementum da.meo io.meo ro.per ium in qis fac sic
si ium tum aum aequalitas fac sic ro I da cis cis
ro nullum tum non rum addementum da.capita bis rum cis
per in bis fac sic hoc tum _ egresso scribe cis

Очевидно, это ясно, как звонок. Если это не так, запустите его -MLingua::Romana::Perligata=converteвместо -MLingua::Romana::Perligata, иperl вместо запуска скрипта выведите перевод на обычный Perl:

 $_ = Lingua::Romana::Perligata::getline (*STDIN );
 @q = split ( '_');
while (@q) { $a = pop (@q );
 $a =  ($a + 0);
my $i ;
my $r ;
for $i (@q) {if ( ($i eq $a)) { $r = 1}
}
;
 $r =  (0 +  ! ($r));
unshift (@b, $r)}
;
for $_ (@b) {print (STDOUT $_, '_')}

Для анализа токенов, используйте токен -MLingua::Romana::Perligata=discribe .

Гольф заметки:

• Недокументированный (но неудивительно), вам не нужно место после . .
• (Также неудивительно, что) scindeне нуждается во втором аргументе и используетhoc .
• Я должен был использовать, ao aum tum nullum addementum daпотому что я не мог получитьmorde до работы.
• Точно так же я использовал, per ium in qis... ro I daпотому что я не мог получитьvanne до работы.
• Вместо этого huic vestibulo perlegementum daя попытался -pMLingua::Romana::Perligata, но не смог заставить его работать.

Просто для ударов (хотя весь этот ответ был только для ударов):

• После очистки до Huic vestibulo perlegementum da. Qis lacunam scindementa da. Dum qis fac sic ao qis decumulamentum da. Ao aum tum nullum addementum da. Meo io. Meo ro. Per ium in qis fac sic si ium tum aum aequalitas fac sic ro I da cis cis. Ro nullum tum non rum addementum da. Capita bis rum cis. Per in bis fac sic hoc tum lacunam egresso scribe cis., Google Translate дает This court perlegementum grant. QIS gap scindementa grant. While QIS QIS decumulamentum do so ao da. Ao sum and no addementum grant. My io. My ro. Through ium in QIS do so if the sum ium equality do so ro 1 from cis. Ro was not any rum addementum grant. The heads of the bis side. Write, do so as soon as he at that time that in the gap by the Kish was taken..