Enklactify ces chaînes

42

Inspiré par cette chaîne de commentaires ...

Je veux enklactsortir de ce défi mais je ne peux pas ...

@ETHproductions to enklact (v): pour implémenter une table de correspondance en utilisant une sous-section composée d'éléments uniques.


Enklacting est un moyen très utile de compresser une table de recherche. Par exemple, supposons que vous ayez la liste de couleurs suivante:

red
green
blue
yellow
purple
orange

Si vous voulez pouvoir prendre une couleur en entrée et retourner son index dans cette liste, il existe évidemment un moyen simple:

["red", "green", "blue", "yellow", "purple", "orange"].index(input())

Mais il y a un moyen de faire cela de manière beaucoup moins d'octets:

"rgbypo".index(input()[0])

Cela fonctionne car le premier (ou 0ème) index de chaque chaîne est unique. Cet exemple est évident, mais parfois c'est un peu plus difficile. Et si nous voulions créer une table de consultation pour cette liste?

Sweet Onion Chicken Teriyaki
Oven Roasted Chicken
Turkey Breast
Italian BMT
Tuna
Black Forest Ham
Meatball Marinara

Dans ce cas, nous ne pouvons pas faire ceci:

"SOTITBM".index(input()[0])

parce qu'il y a deux entrées différentes qui commencent par un 'T', à savoir "Thon" et "Turquie". Nous devons regarder un index différent. Si vous regardez le 4ème index de chaque chaîne, vous remarquerez qu'ils sont tous uniques. Donc on peut faire ça ...

"enklact".index(input()[3])

Dans ce cas, la "chaîne enklaction" est "enklact".

Cela nous conduit au défi d'aujourd'hui ...

Étant donné une liste de chaînes, renvoyez toute chaîne enklaction valide. Ou, en d'autres termes, étant donné une liste de chaînes, renvoyez toute nouvelle chaîne où chaque lettre est unique et la chaîne est formée en joignant la ième lettre de chaque chaîne.

S'il n'y a pas de chaîne enklaction valide, votre soumission doit renvoyer une chaîne vide ou une valeur de cohérence cohérente. Comme d'habitude, les fonctions ou les programmes complets sont autorisés, et les formats d'entrée / sortie sont permissifs (dans des limites raisonnables).

Chaque chaîne ne contiendra que de l'ASCII imprimable, et ce défi est sensible à la casse.

C'est du , alors essayez d'écrire le programme le plus court possible dans la langue de votre choix!

Cas de test

Input:
Programming
Puzzles
Code
Golf

Output (any one of these):
"ozdl"
"gzef"


Input:
the quick
brown fox
jumped over
lazy dogs

Output:
"tbjl"
"hrua"
"eomz"
" wpy"
"qne "
"if o"
"kxvs"

Note that "u dd" and "coog" are not valid.


Input:
Sunday
Monday
Tuesday
Wednesday
Thursday
Friday
Saturday

Output:
""


Input:
AbC
aBc
bbC

Output:
"Aab"


Input:
@#$%^_
Hello_World
How are you?

Output:
"#eo"
"$lw"
"%l "
"^oa"


Input:
a
ab
ac

Output:
""
DJMcMayhem
la source
Pouvons-nous retourner une liste de chaînes valides?
LyricLy
@ LyyLy Hmm, maintenant que j'y pense, cela aurait eu plus de sens. Mais comme il y a déjà des réponses et qu'il n'est pas trop difficile de renvoyer la première, je vais dire non, il devrait s'agir d'une chaîne valide.
DJMcMayhem
Pouvons-nous garantir qu'aucune des chaînes entrées n'est vide?
musicman523
6
La valeur de fausseté cohérente peut-elle être une erreur de type cohérent?
Stewie Griffin
2
Excusez-moi, mais je pense que le verbe correct est enklactate .
Erik the Outgolfer

Réponses:

8

Python3, 59 octets

lambda l:{len({*d}):''.join(d)for d in zip(*l)}.get(len(l))

Retourne une chaîne avec l'enklact, None sinon

PieCot
la source
8

Python 2 , 68 67 61 octets

lambda a:`{0:j for j in zip(*a)if len(set(j))==len(j)}`[6::5]

Essayez-le en ligne!

Améliorations

  • De 68 à 67 octets par Jo King
  • De 66 à 65 octets par Lynn

Si la sortie ne doit pas nécessairement être une chaîne:

Python 3 , 49 octets

lambda a:[j for j in zip(*a)if len({*j})==len(j)]

Essayez-le en ligne!

Neil
la source
67 octets
Jo King
@JoKing Élégant et mis en œuvre.
Neil
Je pense que max(`j`[2::5]for j in[""]+zip(*a)if len(set(j))==len(j))fonctionne, pour sauver un octet.
Lynn
@ Lynn merci et mis à jour.
Neil
7

Retina , 43 32 octets

+/^(.).+^\1|^$/ms&m`^.

|""Lm`^.

Essayez-le en ligne! Edit: 11 octets enregistrés grâce à @MartinEnder. Explication:

+

Répétez pendant que l'entrée change ...

/^(.).+^\1|^$/ms&

... seulement si une ligne est vide ou deux lignes commencent par le même caractère ...

m`^.

... supprime le premier caractère de chaque ligne. La répétition s’arrête donc si a) toutes les lignes commencent par des caractères différents, auquel cas la condition échoue et que l’entrée ne soit pas modifiée, ou b) au moins une ligne devient vide, auquel cas tous les caractères sont finalement supprimés, à quel point l'entrée cesse de changer.

|""L`^.

Recueillir le premier caractère de chaque ligne. (S'il n'y avait pas de solution, la boucle ci-dessus aura tout supprimé et il n'y aura rien à collecter.)

Neil
la source
Les options de regex acceptent également les modificateurs de regex (en les écrivant directement après le délimiteur de fermeture): tio.run/##K0otycxLNPz/…
Martin Ender
En fait, cela vous permet de vous débarrasser complètement de la deuxième étape: tio.run/##K0otycxLNPz/X1s/… (de toute façon, cela ne peut pas s'appliquer mavec un groupe ici, il semble que l'étape conditionnelle ne propage pas l'option).
Martin Ender
Ah, bien sûr, boucler une boucle conditionnelle au lieu d'une boucle conditionnelle, qui résout le bogue de la boucle infinie dans votre première version. Très propre!
Neil
5

Haskell , 71 octets

f x|elem""x=""|y<-head<$>x,and[filter(==a)y==[a]|a<-y]=y|1<2=f$tail<$>x

Essayez-le en ligne!

BMO a enregistré 3 octets avec any null xelem""x.

Ørjan Johansen a sauvegardé un octet avec sum[1|b<-y,a==b]<2filter(==a)[y]==[a].

Explication

f x|elem""x=""                      -- Once any of the strings is empty, return "".
   |y<-head<$>x                     -- Otherwise, let y be all the first letters...
   ,and[                 |a<-y]     -- If, for all a in y,
        filter(==a)y==[a]           -- a occurs just once in y:
                               =y   -- return y.
   |1<2=f$tail<$>x                  -- Else, chop off all the first letters and recurse.

Si lancer une erreur ( Prelude.head: empty list) alors qu'il n'y a pas de solution est OK, |elem""x=""peut être effacé pour 61 octets .

Lynn
la source
1
Test plus court:filter(==a)y==[a]
Ørjan Johansen
4

Ruby , 38 octets

->x,*y{x.zip(*y).find{|z|z==z-[p]|[]}}

Essayez-le en ligne!

Merci à GB d'avoir signalé un bug.

Kirill L.
la source
Echoue s'il n'y a pas de correspondance et que la première chaîne n'est pas la plus courte.
GB
@GB Pourriez-vous donner un exemple, s'il vous plaît? J'ai modifié mon dernier test selon votre description et cela a fonctionné.
Kirill L.
Essayez ["abc", "ac", "acd"]
GB
Maintenant je vois, tu as raison. Devrait être corrigé.
Kirill L.
4

Pyth , 6 octets

>1{I#C

Suite de tests.

La sortie est une liste de singleton, comme autorisé par défaut ; la liste [] (liste vide, falsy) est renvoyée au cas où la chaîne ne pourrait pas être enklactified .

Explication

> 1 {I # C - Programme complet.
     C - Transposer l'entrée, rogner les absences.
    # - Filtrer par:
  {I - Invariant sous déduplication.
> 1 - Tranche vers 1. la liste [: 1] en Python.

Pyth , 5 octets

Cela aurait été valable si le crash avait été compté comme une valeur de fausseté.

h{I#C

Suite de tests.

M. Xcoder
la source
3

Haskell , 76 74 octets

f t=last$"":(id=<<foldr(zipWith(#))([[]]<$t)t)
x#[s]=[x:s|all(/=x)s]
x#e=e

Essayez-le en ligne! Retourne la dernière chaîne de recherche valide ou une chaîne vide s'il n'en existe aucune.


71 69 octets

Si le lancement d'une exception cohérente en tant que valeur falsy est autorisé:

f t=head$id=<<foldr(zipWith(#))([[]]<$t)t
x#[s]=[x:s|all(/=x)s]
x#e=e

Essayez-le en ligne! Lève une empty listexception si aucune chaîne n'est trouvée, sinon retourne la première chaîne valide.

-2 octets grâce à Ørjan Johansen

Laikoni
la source
1
notElem x peut être raccourci à all(/=x).
Ørjan Johansen
2

Gelée , 7 octets

z0Q€fZḢ

Retourne l'entier 0 si les chaînes ne peuvent pas être enklactified.

Essayez-le en ligne!

Comment ça marche

z0Q€fZḢ  Main link. Argument: A (string array)

z0       Zip/transpose, filling shorter rows with 0.
  Q€     Unique each deduplicate resulting string.
     Z   Zip/transpose, without using a filler.
    f    Filter; keep only string that appear in the results to both sides.
      Ḣ  Head; extract the first string. Returns 0 if the array is empty.
Dennis
la source
2

Stax , 9 à 8 octets

åτIⁿs↓µg

Exécuter et déboguer

Explication (non emballée):

M{c0-u=}j Full program, implicit input
          e.g. ["Programming", "Puzzles", "Code", "Golf"]
M         Transpose
                ["PPCG", "ruoo", "ozdl", "gzef", "rl\0\0", "ae\0\0", "ms\0\0", "m\0\0\0", "i\0\0\0", "n\0\0\0", "g\0\0\0"]
 {     }j Find first matching element:
            e.g. "PPCG"
  c0-       Copy and remove zero bytes (padding)
                 "PPCG" "PPCG"
     u      Unique
                 "PPCG" "PCG"
      =     Check if equal:
                 1
          First matching here: "ozdl". If none is found, the stack is empty
          Implicit output if anything on stack
wastl
la source
2

R , 127 octets

function(S,s=sapply(S,substring,x<-1:max(nchar(S)+1),x))cat(rbind(s[!apply(s,1,anyDuplicated)&!rowSums(s==""),],"")[1,],sep="")

Essayez-le en ligne!

sapplyrenvoie généralement un matrixlorsque tous les length(FUN(X[[i]]))sont égaux, sauf quand length(FUN(X[[i]]))==1, auquel cas il retourne un vector. Pour utiliser les opérations de la matrice, alors, nous devons substringun autre que nous devons garantir une matrix, ce qui explique pourquoi xétend à max(nchar(S)+1).

Nous filtrons ensuite les lignes sans doublons ni chaînes vides. Étant donné que nous ne pouvons renvoyer qu'une seule chaîne, nous prenons la première, à l'exception que s'il n'y a aucune ligne répondant aux critères, une erreur est générée. Nous ajoutons donc une ligne supplémentaire ""à la fin.

Ensuite, nous imprimons la enklactchaîne ified ou la chaîne vide.

Giuseppe
la source
2

R , 116 107 95 octets

R + pryr

pryr::f(for(i in 1:min(nchar(v)))`if`(anyDuplicated(t<-substr(v,i,i)),0,{cat(t,sep="")
break}))

Essayez-le en ligne!

base R

function(v)for(i in 1:min(nchar(v)))`if`(anyDuplicated(t<-substr(v,i,i)),0,{cat(t,sep="")
v=0})

Essayez-le en ligne!

Ces deux variantes économisent 9 octets grâce à Giuseppe .

Explication:

Cela tronque efficacement toutes les piqûres du vecteur và la longueur du plus court et itère les index suivants. Ensuite, vérifie s'il y a des doublons dans les lettres choisies et sinon, les colle et les imprime cat. Si tous les index renvoient des résultats dupliqués, cela affiche une chaîne vide.
Tout est encapsulé dans une pryrfonction anonyme avec breakpour arrêter la boucle, ou la fonction de base R met à zéro le vecteur pour rompre la boucle.

pyjonk
la source
1
Joli! Cela peut être golfed à 107 octets dans R+pryrou 107 octets dans la base R.
Giuseppe
2

Japt, 9 octets

Prend en entrée un tableau de tableaux de caractères, retourne un tableau de caractères ou undefined

y æ_f eZâ

Essayez-le (ajoutez une nouvelle ligne au début du programme avec le code qR mqà prendre en entrée sous forme de chaîne séparée par une nouvelle ligne, afin de vous éviter les tracas liés à la création des tableaux.)


Explication

y             :Transpose
  æ_          :Pass each array Z through a function and return the first that returns true
    f         :  Filter nulls (used for padding when transposing)
      e       :  Test for equality with
       Zâ     :  Z deduplicated
Hirsute
la source
J'ai relevé le défi avant de lire votre solution et obtenu une solution presque identique:z æ_¬eZ¬â
Nit
Exactement identique, autre que le format d'entrée.
Shaggy
2

05AB1E , 7 octets

øʒDÙQ}н

Essayez-le en ligne!

Explication

ø        # Zip the input array
 ʒ   }   # Filter by ...
  DÙQ    # ... an entry is equal to itself deduplicated
      н  # Take the first element
Kaldo
la source
1

Python 3 , 75 octets

def f(t):c=[s.pop(0)for s in t];return all(t)and(f(t),c)[len(t)==len({*c})]

Fonctionne sur des listes de caractères au lieu de chaînes. Renvoie False si aucune chaîne enklaction valide n'existe.

Essayez-le en ligne!

musicman523
la source
Je pense que cela revient, ce qui le rendrait invalide à moins que le ne f=soit inclus dans le nombre d'octets.
LyricLy
@LyricLy Fixed :)
musicman523
1

C (gcc) , 161 octets

f(s,i)char**s;{char**t,a[255],*u=a;for(i=0;memset(a,0,255),u&&~i;i+=!!~i&&u)for(t=s;(u=u?*t++:0)&&~(i=u[i]?i:-1)&&!a[u[i]]++;);while(~i&&(u=*s++))putchar(u[i]);}

Essayez-le en ligne!

Chaque position de caractère est testée pour la duplication et ignorée si une duplication est détectée; cela se poursuit jusqu'à la fin de la chaîne la plus courte. Malheureusement, il n’ya que l’ASCII: les chaînes DBCS / UTF-8 cassent mal cette fonction!

ErikF
la source
152 octets
ceilingcat
1

Japt , 12 octets

Renvoie undefinedles chaînes non-enklactiques.

y ·æ_¬n ä¦ e

Essayez-le en ligne!

Explication:

y ·æ_¬n ä¦ e
y             // Split the input at newlines and transpose
  ·           // Join on newlines 
   æ_         // Return the first item that returns truthy when ran through:
     ¬n       //   Sort
        ä¦    //   Reduce with !=
           e  //   All items are truthy (unique)
Oliver
la source
Vous devriez pouvoir économiser 2 octets en prenant les entrées comme un tableau de tableaux de caractères et en supprimant les deux splits.
Shaggy
1

Wolfram Language (Mathematica) , 54 octets

#&@@Select[PadRight@#,#~FreeQ~0&&Union@#==Sort@#&]&

Essayez-le en ligne!

Prend une liste de caractères en entrée, retourne une liste de caractères. Contient U + F3C7, correspondant à l'opérateur "Transpose".

Résultats #1 et jette un tas d'erreurs ignorables lorsqu'il n'y a pas de chaîne appropriée.

Explication:

PadRight@#

Complétez l'entrée de sorte que chaque "chaîne" (liste de caractères) ait la même longueur. Ceci ajoute un entier 0s (pas une chaîne "0"s). Puis transposer.

Select[ ... ,#~FreeQ~0&&Union@#==Sort@#&]

Sélectionnez les chaînes qui ne contiennent pas d’entiers 0et qui ont tous des caractères uniques.

#&@@

Obtenez le premier.

JungHwan Min
la source
1

JavaScript (ES6), 66 octets

Retourne une chaîne ou undefineds'il n'y a pas de solution.

f=(a,i=0)=>a.every(s=>(o[k+=c=s[i],c]^=1)&&c,o=k=[])?k:c&&f(a,i+1)

Essayez-le en ligne!

Commenté

f = (           // f = recursive function taking:
  a,            //   a[] = input array
  i = 0         //   i   = pointer
) =>            //
  a.every(s =>  // for each string s in a[]:
    (o[k +=     //   append to the key string k
      c = s[i], //   the character c at position i in s
      c] ^= 1   //   and toggle o[c] (undefined -> 1 -> 0)
    ) && c,     //   additionally, make sure that c is defined
    o = k = []  //   start with o = k = empty array
  ) ?           // every() is true if all characters were distinct and defined:
    k           //   in which case we return k
  :             // else:
    c &&        //   provided that every() didn't fail because of an undefined character,
    f(a, i + 1) //   try again at the next position
Arnauld
la source
1

Charbon de bois , 23 21 octets

-2 octets grâce à @Neil !

§ΦE⌊EθLι⭆θ§λι⬤ι⁼¹№ιλ⁰

Essayez-le en ligne!

ASCII seulement
la source
Hein, quand a) a qcessé d'être toujours une chaîne b) StringMap a commencé à travailler sur des non-chaînes? Quoi qu'il en soit, votre Rangeest inutile, vous économisant 2 octets.
Neil
@Neil a) Lorsque j'ai ajouté une entrée tableau / objet b)> _> je ne suis pas sûr. probablement au moment où j'ai corrigé la boucle while (désolé, j'ai oublié de mentionner l'une ou l'autre)
ASCII-only
1

Coque , 9 octets

ḟS=UḞz:∞ø

Essayez-le en ligne!

Explication

fS=UḞz:∞ø
    Ḟz:∞ø  Transpose the input dropping characters of longer strings
    Ḟ        Fold right
     z:      Zip with prepend
       ∞ø    Infinite list of empty lists
ḟS=U       Find the first string without duplicates, returns an empty string if none
ḟ            Return first value satisfying predicate
  =          Equal
 S U         to itself with duplicates removed
Fyr
la source
Utiliser ←ġLTover Ḟz:∞ødevrait sauver un octet.
ბიმო
1

Retina , 81 56 octets

m`$
$.=*£¢
N$`.
$.%`
¶

~`(.*?¢)+
L`.{$#1}
A`(.).*\1|£|¢

Essayez-le en ligne!

-25 octets grâce à @Neil


Transposer du texte rectangulaire dans Retina est étonnamment difficile.

TwiNight
la source
J'aimerais connaître une meilleure façon de réaliser une transposition rectangulaire, tout en économisant 25 octets .
Neil
@Neil Ahh ... étape eval. J'oublie toujours que retina 1.0 offre toutes ces nouvelles fonctionnalités
TwiNight,
1

Perl 6 , 27 octets

{([Z] $_).first:{.Set==$_}}

Essayez-le en ligne!

Après avoir constaté que la version ruby ​​a été votée, j'ai copié l'approche et utilisé des listes de caractères au lieu de chaînes. Je n'aime pas ça

Ma soumission la plus ancienne et la plus correcte est la suivante:

Perl 6 , 38 octets

Split, zip, vérifier l'unicité, rejoindre.

{[~] ([Z] @_>>.comb).first:{.Set==$_}}

Essayez-le en ligne!

Jarrod Funnell
la source
1

C (gcc) , 121 113 110 octets

i;d;f(s)char**s;{char**_=s,x[255]={0},y[99]={0};for(d=i=0;*_;)d+=x[y[i++]=*(*_++)++]++;d=d?*x?0:f(s):puts(y);}

Essayez-le en ligne!

Ungolfed

void enklactify(char *strings[]) {
    int quit = 0;
    while (!quit) {
        char **arg = strings;      // current row
        int exists[255] = {0};     // which characters exist in the column
        char output[99] = {0};     // will hold output string
        int index = 0;             // where to insert in output
        int duplicates = 0;        // have we found any duplicates?
        while (*arg != NULL) {
            char *word = *arg;     // current word
            char first = *word;    // first letter of current word
            if (exists[first])
                duplicates = 1;    // we found a duplicate
            exists[first] = 1;     // mark it as in our string
            output[index] = first; // add it to our output
            index++;
            (*arg)++;              // advances the current word to the next
                                   // character by reference (chops first char)
            arg++;                 // advance to next whole argument
        }

        if (!duplicates) {         // This is a valid solution
            puts(output);
            quit = 1;
        }

        if (exists[0]) {           // We hit the null terminator of one of the
                                   // input strings, so we failed
            quit = 1;
        }
    }
}

-3 grâce à ceilingcat

Cela abuse de la possibilité d'ajouter simplement 1 à un pointeur de chaîne en C pour obtenir la "queue" de la chaîne. Les principaux économiseurs d'octets sont:

  • d+=x[y[i++]=*(*_)++]++qui ajoute le premier caractère de la première chaîne de _to y, avance la première chaîne de _pour supprimer son premier caractère, ajoute l' xentrée correspondant à ce caractère det incrémente ladite xentrée
  • q=d?*x:puts(y)qui imprime ysi dest non nul tout en fixant qune valeur non nulle, ou qnon à zéro si le premier élément de xest différent de zéro (si nous étions à la fin de l’une des chaînes, cet élément serait non zéro)

Éditer: les octets rasés en passant de la boucle while à l’appel final récursif et en supprimant les crochets de la boucle for.

LambdaBeta
la source
Proposer au for(d=i=0;*_;)lieu de for(d=0,i=0;*_;++_)et au *(*_++)++]++;d=d?!*x*f(s)lieu de*(*_)++]++;d=d?*x?0:f(s)
ceilingcat
0

Pyth, 13 octets

e+kf{[email protected]

Essayez ici

e+kf{[email protected]
           .tQ   Transpose the (implicit) input with padding.
        .TQ      Transpose the input without padding.
       @         Take the strings in both.
   f{IT          Find the ones that have no duplicates.
e+k              Get the last, or an empty string.
Mnémonique
la source
1
Il semble que renvoyer une liste de toutes les chaînes valides n'est pas valide.
LyricLy
@LyricLy Fixé.
Mnémonique
0

Rouge , 139 octets

func[b][m: length? first b foreach a b[m: min m length? a]repeat n m[c: copy[]foreach a b[append c a/(n)]if c = unique c[return rejoin c]]]

Essayez-le en ligne!

Explication:

Prend l'entrée comme un bloc (liste) de chaînes. Retourne la chaîne enklaction ou nonesinon.

f: func[b][
    m: length? first b                   ; the minimal length of the first string  
    foreach a b[m: min m length? a]      ; find the minimal length of all strings
    repeat n m[                          ; limit the search to the minimal length
        c: copy[]                        ; an empty block  
        foreach a b[append c a/(n)]      ; for each string append the current char
        if c = unique c[return rejoin c] ; if all chars are unique, return the block
    ]  
]
Galen Ivanov
la source
0

Röda , 80 77 octets

f a{a|seq 0,#_|try{{|i|a|[_[i:i+1]]|orderedUniq|concat|[_]if[#_1=#a]}_|head}}

Essayez-le en ligne!

-1 octet grâce au charlatan des vaches

Explication:

f a{
  a|         /* Push the strings in a to the stream */
             /* For each string (_): */
  seq 0,#_|     /* Push a range from 0 to the length of _ to the stream */
  try{       /* Ignore errors during the following block */
    {|i|        /* For each i in the stream: */
      a|           /* Push strings in a to the stream */
      [_[i:i+1]]|  /* For each string, push the ith character to the stream */
      orderedUniq| /* Remove duplicate characters */
      concat|      /* Join the characters into a string */
      [_]if        /* Push the string to the stream if */
      [#_1=#a]     /* Its length is the length of a */
    }_|
    head        /* Take the first string in the stream and return it */
  }
}

Le trymot-clé est utilisé pour supprimer les erreurs qui se produisent si iest supérieure à la longueur de la plus petite chaîne aou s'il n'y a pas de réponse et headprovoque une erreur.

Fergusq
la source
Vous pouvez supprimer les parens seqpour sauvegarder un octet
Kritixi Lithos
@Cowsquack Merci!
Fergusq
0

Java 10, 106 octets

a->{for(int i=0;;i++){var r="";for(var s:a)r+=s[i];if(r.length()==r.chars().distinct().count())return r;}}

Donnera une erreur au lieu de retourner une chaîne vide si aucune solution ne peut être trouvée. L'entrée est une matrice de caractères.

Essayez-le en ligne.

Explication:

a->{                  // Method with character-matrix parameter and String return-type
  for(int i=0;;i++){  //  Loop `i` upwards
    var r="";         //   Result-String, starting empty
    for(var s:a)      //   Loop over the character-arrays of the input
      r+=s[i];        //    And append every `i`'th character to `r`
    if(r.length()==r.chars().distinct().count())
                      //   If `r` only contains unique characters
      return r;}}     //    Return `r` as result
Kevin Cruijssen
la source
OP ne semblait pas vouloir autoriser les erreurs, même s'il est vrai qu'il ne l'a jamais mis dans le message.
Ørjan Johansen
0

Clojure, 59 octets

#(for[s(apply map list %):when(=(count(set s))(count %))]s)

Retourne une liste de listes de caractères.

NikoNyrh
la source
0

APL + WIN, 35 33 octets

2 octets économisés grâce à Adám

Invite les lignes de texte sous forme de matrice de caractères:

⊃((↑⍴¨a)=+/¨((a⍳¨a)=⍳¨⍴¨a))/a←,⌿⎕

Essayez-le en ligne! Gracieuseté de Dyalog Classic

Explication:

a←,⌿⎕ prompts for input and creates a nested vector of the input matrix columns

((a⍳¨a)=⍳¨⍴¨a) creates a binary vector for each nested element with a 1 for each unique element

((↑⍴¨a)=+/¨ sums each binary vector and compares to number of characters in each element

(...)/a←⊂[1]⎕ selects only those elements where number of uniques = column length

⊃ converts nested vector back to a matrix of each valid enklaction string 
Graham
la source