Erstellen Sie anhand einer Liste von Ganzzahlen eine boolesche Maske, sodass die einzelnen Werte aus der Liste anhand der wahren Indizes gefiltert werden können. Welcher Index als der wahre Index ausgewählt wird, spielt keine Rolle, solange für jeden Indexsatz, der identischen Werten entspricht, nur einer von ihnen ausgewählt wird.

Die Eingabe ist eine nicht leere Liste nicht negativer Ganzzahlen in einem für Ihre Sprache geeigneten Format, und die Ausgabe ist eine Liste boolescher Werte, die der obigen Spezifikation folgt. In der Ausgabeliste dürfen Sie eigene Definitionen von Wahrheits- und Falschwerten verwenden.

In meinen nachstehenden Beispielen definiere 1ich Wahrhaftigkeit und 0Falschheit.

[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   ]

Testfälle

Wenn ein vorhanden ist or, bedeutet dies, dass mehrere gültige Ausgaben vorhanden sind. Befindet sich ...nach dem ein nachstehender Auslassungspunkt or, wurden nicht alle möglichen Ausgaben aufgelistet.

[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 ...

Regeln

• Das ist Code-Golf, also gewinnt die kürzeste Lösung.
• Builtins sind erlaubt!
• In der Ausgabeliste dürfen Sie eigene Definitionen von Wahrheits- und Falschwerten verwenden. Wenn Sie dies wünschen, geben Sie bitte Ihre Definitionen an.
• Die Eingabe ist eine nicht leere Liste nicht negativer Ganzzahlen.
• Sie können wählen, ob Sie nur eines oder mehrere oder sogar alle Siebe ausgeben möchten. Solange jedes Sieb gültig ist, wird es akzeptiert.

MATL, 7 6 4 Bytes

1 Byte gespart dank @Luis
2 Byte gespeichert dank @Dennis

&=Rs

Wir definieren 1Wahrheit und alle anderen Werte als falsch

Probieren Sie es online

Alle Testfälle

Erläuterung

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

Gelee , 4 Bytes

ĠṪ€Ṭ

Begünstigt die letzten Vorkommen. Probieren Sie es online! oder überprüfen Sie alle Testfälle .

Wie es funktioniert

ĠṪ€Ṭ  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 Bytes

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

Öffnet das erste Element aus der Liste, prüft, ob es an anderer Stelle in der Liste vorhanden ist, und fügt Trueoder Falsein eine neue Liste ein.

Gibt für diese Funktion Falseeinen eindeutigen Wert an und Trueist andernfalls ( True=0und False=1)

Vielen Dank an Dennis für eine Tonne Bytes

Original, 47 Bytes:

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

Versuch es

Pyth, 6 Bytes

.eqxQb

Gibt eine Liste von Bools ( Trueund ausFalse ) aus. Prüft für jedes Element in der Eingabe, ob sein Index dem Index des ersten Vorkommens des Werts entspricht. Mit anderen Worten wird geprüft, ob jedes Element das erste Vorkommen ist.

Im pythonischen Pseudocode:

.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

Teste es hier.

J , 2 Bytes

~:

Hieraus entstand die Idee für diese Herausforderung. Das Builtin ~:wird Nub-Sievein J aufgerufen und erstellt eine Boolesche Liste, die die in der Challenge beschriebene Operation ausführt. Hier 1repräsentiert trueund 0repräsentiert false.

05AB1E , 8 Bytes

Code:

v¹ykN>Qˆ

Erläuterung:

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

Verwendet die CP-1252- Codierung. Probieren Sie es online! .

APL, 6 Bytes

⍳∘⍴∊⍳⍨

Versuch es

Erläuterung:

   ⍳⍨  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 Bytes

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

Ich könnte es auch dazu bringen, 1 oder 0 zurückzugeben, und dann den Parameter und den Rückgabetyp gleich eingeben, um dies als Lambda-Ausdruck zuzulassen.

Einige Anleitung wäre dankbar

gleicher Typcode

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

Python, 35 Bytes

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

Verwendet True als der falsche Wert und Falsefür den Wahrheitswert. Markiert das letzte Erscheinungsbild jedes Elements.

Wählt das erste Element nur aus, wenn es nicht unter den verbleibenden Elementen angezeigt wird, und kehrt dann zum Rest der Liste zurück, solange es nicht leer ist. Der l.pop(0)extrahiert das erste Element und entfernt es gleichzeitig.

Netzhaut , 23 Bytes

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

Die Eingabe ist eine durch Leerzeichen getrennte Liste. (Tatsächlich [1, 2, 3]funktionieren auch andere Formate wie .)

Probieren Sie es online!(Funktioniert mit mehreren durch Zeilenvorschub getrennten Testfällen gleichzeitig.)

Wir wandeln einfach jedes Element in 0ein anderes um, wenn es später in der Eingabe eine weitere Kopie davon gibt, und in ein 1anderes.

PowerShell v2 +, 40 Byte

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

Erstellt ein leeres Array $a. Dann nehmen wir die Eingabeliste via $args[0]und leiten sie in eine Schleife |%{...}. Bei jeder Iteration wird entweder 1oder 0aus einem Pseudoternär ausgewählt, je nachdem, ob das aktuelle Element vorhanden ist $aoder nicht. Diese Auswahlen verbleiben in der Pipeline. Dann fügen wir das aktuelle Element in das Array ein$a . Die Pipeline-Elemente werden gesammelt und die Ausgabe als Array ist implizit.

Beispiel:

(hier mit einem Zeilenumbruch-Trennzeichen ausgeben, da dies die Standardeinstellung .ToString()für ein Array ist)

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 Byte

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

Null ist wahr und andere Zahlen sind falsch.

Mathematica, 53 31 Bytes

Vielen Dank an Miles, der mir eine Idee gegeben hat, mit der 22 Byte eingespart wurden.

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

Perl 5

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

Java, 96 Bytes

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;}

Ändert das Array an Ort und Stelle. Begünstigt das letzte Vorkommen.

Der wahre Wert ist, 1während der falsche Wert ist 0.

Überprüfen Sie alle Testfälle .

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;
    }
}

Eigentlich 11 Bytes

;╗ñ`i@╜í=`M

Probieren Sie es online!

Erläuterung:

;╗ñ`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

Pyke, 4 Bytes

F@oq

Probieren Sie es hier aus!

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

C ++, 242 Bytes

Zugegeben eine Overkill Lösung, da es auf funktioniert jedem Standard - Container von jedem bestellten Typ:

#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:

(und weiter verallgemeinert)

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;
}

Testsuite:

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 Bytes

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

Geige

PHP, 66 62 39 Bytes

• akzeptiert alle atomaren Werte (Boolean, Integer, Float, String) mit
  Ausnahme von Werten, die als false (false, 0, "") und numerische Strings ausgewertet werden ("1" entspricht 1)
• kennzeichnet das erste Auftreten

neue Version (Programm, 37 + 2 Bytes)
^{schlägt Java und (jetzt wieder) C #. Schlägt jetzt sogar fast Python. Glücklich.}

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

• +6 für PHP> = 5.4, +16-3 für eine Funktion
• druckt eine uneingeschränkte Liste von 0(true) und 1(false)
  Einfügungen !nach printdem Invertieren
• Nutzung: Satz register_globals=On, short_open_tags=Onund error_reporting=0in php.inifür php-cgi
  dann Anruf php-cgi -f <filename> a[]=<value1> a[]=<value2> ...;echo"";
• für PHP> = 5.4: Ersetze $amit $_GET[a](+6), setze short_open_tags=Onunderror_reporting=0
• oder ersetzt $amit array_slice($argv,1)(+19), entfernen <?(-2)
  und Callphp -d error_reporting=0 -r '<code>' <value1> <value2> ...;echo""

alte Version (Funktion, 62 Bytes)

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

• gibt ein Array von falsefür wahr und truefür falsch zurück; (Ausgabe als leere Zeichenkette oder 1)
  Einfügen !nach $m[]=dem Invertieren
• Es gibt auch einen anderen Weg für eine qualifizierte Funktion mit 55 Bytes.

tests (auf alte version)

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 Bytes

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

Verwendet Falseals wahr, Trueals falscher Wert:

λ> 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]

Möglicherweise müssen Sie import Data.Listverwenden, tailsaber tryhaskell.org führt den Code so aus, wie er ist.

Perl 5 + Perligata , 343 Bytes

315 Bytes plus 28 für -MLingua::Romana::Perligata

Verwenden Sie als perl -MLingua::Romana::Perligata foo.pl; Eingabe (von stdin) und Ausgabe (bis stdout) sind durch Unterstriche getrennte Zeichenfolgen von Dezimalzahlen. Getestet auf Strawberry 5.20.2 mit Version 0.6 von Perligata; Ich weiß nicht, ob es mit Perligata Version 0.50 funktioniert.

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

Offensichtlich ist das klar wie eine Glocke. Falls dies nicht der Fall ist, führen Sie es mit -MLingua::Romana::Perligata=convertestatt aus -MLingua::Romana::Perligataund perlgeben Sie statt des Skripts eine Übersetzung in reguläres Perl aus:

 $_ = 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 $_, '_')}

Verwenden Sie für eine tokenweise Analyse -MLingua::Romana::Perligata=discribe.

Golfnoten:

• Undokumentiert (aber nicht überraschend) brauchen Sie nachher kein Leerzeichen ..
• (Auch nicht überraschend,) scindebraucht kein zweites Argument und verwendet hoc.
• Ich musste verwenden, ao aum tum nullum addementum daweil ich nicht mordezur Arbeit kommen konnte.
• Ebenso habe ich verwendet, per ium in qis... ro I daweil ich nicht vannezur Arbeit kommen konnte.
• Stattdessen huic vestibulo perlegementum daversuchte ich es -pMLingua::Romana::Perligata, brachte es aber auch nicht zum Laufen.

Nur für Tritte (obwohl diese ganze Antwort nur für Tritte war):

• Nach dem Aufräumen gibt es 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..