相互のアナグラムである一意の文字列のリストが与えられたら、リスト内の各単語とは異なるそれらの単語のアナグラムを出力します。
文字列は英数字になり、有効なアナグラムが保証されます。
プログラムまたは関数は非決定的である必要はありませんが、同じ入力が与えられた場合、可能なすべての出力が有効である限り、コードを複数回実行すると異なる出力を生成できます。
[Input] -> Possible output
-----------------
[ab] -> ba
[aba, aab] -> baa
[123, 132, 231, 312, 321] -> 213
[hq999, 9h9q9, 9qh99] -> 999hq
[abcde123, ab3e1cd2, 321edbac, bcda1e23] -> ba213ecd
回答:
f=\で、Try it Onlineヘッダーに入力して、自動TiOバイトカウンターに影響を与えずに関数を匿名のままにすることができます
нœ¹мà
нœ¹мà
н // Get the first element of the input list
œ // Generate all permutations
¹ // Push the input again
м // In the permutations list, replace all strings that
// are in the input list with empty strings
à // Pick the string with the greatest lexicographic
// index (in this case a non-empty string)
h-.ph
h-.ph
h First string in [the input]
.p All permutations
- Remove those in [the input]
h First element.
XŒ!ḟµḢ
05AB1EおよびPythの回答より1バイト多い。
説明：
XŒ!ḟµḢ Main program.
Œ! All permutation of...
X any element from the word list.
ḟ Filter out (remove) all the elements in the original word list.
µ With the filtered-out list,
Ḣ pick the first element.
私が選んだX、それはリストを変更することなく、リストから任意の要素を選択するために、私が知っている最短の方法です（ので、ḢとṪ仕事をしない、ḷ/とṛ/長い）、そしてそれはいくつかのランダム性を引き起こすことが起こります。
µここではかなり冗長ですが、それなしで、Ḣとペアにされるだろうḟ、それは私がここで必要ではない、「入力の頭からフィルタ」と解釈される（私は必要なものを入力外「フィルタであり、と頭を取得します」）。
function f(a){s=a[0];while(a.indexOf(s)!=-1)s=s.split("").sort(function(){return .5-Math.random()).join("")};return s}
悪いランダマイザーを使用して、各「ランダム」置換を繰り返します。
おそらく間違いなく間違っていますが、悪いランダマイザーは、真のランダム性を取得できないことを意味しますが、すべての順列を取得します。
私にとってはクロムのすべてのケースで動作するようですが、明らかにこの種の悪用の未定義の動作のために、一部のブラウザでは動作しません。
（おそらく非常に未経験の方は、ご自身のソリューションで自由に改善してください）
pirateBayのコメントに感謝-多くのバイト
リックのおかげで-4バイト
f=a=>eval('s=[...a[0]].sort(()=>.5-Math.random()).join``;a.indexOf(s)<0?s:f(a)')
s.split("")することができます[...s]。またjoin("")、「参加」することもできます
hp.¬∈?∧
hp. The Output is a permutation of the first element of the Input
.¬∈? The Output is not a member of the Input
∧ (Disable implicit Input = Output)
非決定論的
(While[!FreeQ[#,s=""<>RandomSample@Characters@#&@@#]];s)&
決定論的
#&@@Complement[""<>#&/@Permutations@Characters@#&@@#,#]&
@Shaggyのおかげで-1バイト
á kN ö
入力文字列を配列ではなく複数の入力として受け取ります。ランダムな順列を出力します。に切り替えöてg、代わりに最初のものを取得します。
á kN ö Implicit input: N = array of input strings
á Get all permutations of the first input string
kN Remove all input strings from those
ö Get a random element from the array. Implicit output
á kN ö。
1X)Y@Z{GX-1)
Sanchisesのおかげで2バイト節約されました。setdiff(...,'rows')否定よりも短く、ismember(...,'rows')1つの重複を回避します。Luis Mendoのおかげで、配列ではなくセルに切り替えることで、もう1バイト節約しました。
MATLAB / Octaveの同等物も含まれています。
% Implicitly grab input x containing cells of strings
1X) % Get first cell. Equivalent to x{1}
Y@ % All permutations of first row input. Equivalent to p=perms(y)
Z{ % Convert the list of permutations to a cell array
G % Grab input again
X- % setdiff, comparing the input cells with the permutations
1) % The first of the results
入力はformatのいずれかでなければなりません{'abc', 'acb'}。
lambda a:[x for x in permutations(a[0])if~-(x in a)][0]
from itertools import*Xcoder氏のおかげで-1バイト
@:_NIgFIPMa
入力をコマンドライン引数として受け取ります。オンラインでお試しください！
a 1st cmdline arg
PM List of all permutations
FI Filter on this function:
_NIg Permutation not in cmdline args
@: First element of resulting list (with : meta-operator to lower precedence)
Autoprint
これは、これまでのところ、置換組み込みもランダムシャッフル/ソートも使用していない唯一の提出であると思います。長くなりますが、アルゴリズムはかなりきれいだと思います。
lambda L:[p for s in L for i,c in enumerate(s)for p in[c+s[:i]+s[i+1:]]if~-(p in L)][0]私たちがやっていることは基本的にこれです：
def unique_anagram(string_list):
for string in string_list:
for i, char in enumerate(string):
# Move the character to the beginning of the string
permutation = char + string[:i] + string[i+1:]
if permutation not in string_list:
return permutationこれが機能することの証明です：
ストリングのために、1つの文字を選択してそれを前に動かすことによって得られたストリングのセットとして
S定義front(S)してください。たとえば、です。SSfront(ABCDE){ABCDE, BACDE, CABDE, DABCE, EABCD}ここで、可能性のあるすべてのアナグラム（問題の説明に従って）が含まれ
LてLいないアナグラムのリストを検討します。私たちは、文字列が存在することを示したいSでL、このようなfront(S)少なくとも一つのアナグラム含まれているS'ではありませんL。矛盾として、すべての文字列
SinLに対して、すべての文字列infront(S)もinであると仮定しLます。一連の「正面」の動きを介して、任意の文字列の任意の順列を生成できることに注意してください。たとえば、取得するにはABCDE -> BAEDC我々はできる
ABCDE -> CABDE -> DCABE -> EDCAB -> AEDCB -> BAEDC各
SinについてL、すべてのS'infront(S)もであると仮定しましたL。これは、すべてがS''にfront(S')あることを意味Lします。したがって、Sがinの場合L、のすべての順列SもになりLます。その後L、アナグラムの完全なセット、矛盾する必要があります。したがって、in にない置換が少なくとも1つあることが保証されているため、in がin にない
L文字列Sが存在する必要があります。QED。LS'front(S)L
コードはin front(S)ごとSに繰り返し処理を実行し、in ではないLを選択S'しLます。上記の結果により、少なくとも1つのS'資格があります。
s=>{for(var g="";;)if(s.All(z=>z!=(g=string.Concat(s[0].OrderBy(t=>Guid.NewGuid())))))return g;}私が最初に投稿したときから、私のゴルフのスキルは確かに向上しました！
{var r=""
do{r=it[0].map{it to Math.random()}.sortedBy{(_,b)->b}.fold("",{a,(f)->a+f})}while(r in it)
r}{
var r = ""
do {
r = it[0].map { it to Math.random() }
.sortedBy { (_, b) -> b }
.fold("", { a, (f) -> a + f })
} while (r in it)
r
}var ana: (List<String>) -> String =
{var r=""
do{r=it[0].map{it to Math.random()}.sortedBy{(_,b)->b}.fold("",{a,(f)->a+f})}while(r in it)
r}
fun main(args: Array<String>) {
println(ana(listOf("ab")))
}#import<set>
#import<string>
#import<algorithm>
using S=std::string;S f(std::set<S>l){S s=*l.begin();for(;l.count(s);)std::next_permutation(s.begin(),s.end());return s;}
(l:Seq[String])=>(l(0).permutations.toSet--l).headl(0) // Take the first anagram
permutations // Built-in to get all permutations
toSet // Convert to set, required for -- function
-- l // Remove the original anagrams
head // Take a random element from the setx=scan(,'');repeat{a=paste(sample(el(strsplit(x[1],''))),collapse='');if(!a%in%x)break};a
最初のエントリから文字を繰り返しサンプリングし（相互のアナグラムである必要があるため）、それらのサンプルの1つが元のリストにないときに停止します。
$j=1;while($j){$g=str_shuffle($_GET[0]);$j=in_array($g,$_GET);}echo$g;0のインデックス付き取得値を入力するか、オンラインで試してください。
$j=1; //set truty value
while($j){
$g=str_shuffle($_GET[0]); //shuffle the first anagram of the set
$j=in_array($g,$_GET); //see if in the set, if false, the loop ends
}
echo $g;do{...}while($j);代わりに2バイトを保存します$j=1;while($j){...}。インプレース定義を使用して$g、中括弧を取り除きます（4バイトを節約します）。
while(in_array($s=str_shuffle($argv[1]),$argv));echo$s;非決定論的; コマンドライン引数から入力を取ります
php -r <code>スペースで区切られた単語をフォローして実行するか、オンラインで試してください。
&\S@{!S@_[0]Ø_}
&\S@{!S@_[0]Ø_}
{ } lambda (input: `_`)
_[0] first element of the given array
@ pass to:
! on each permutation:
S cast to string
Ø without any member of
_ the input
this gives all anagrams not in the input
@ then
&\S "first string element"
& spread input array over each individual arguments
\ tale first argument
S as a string
17バイト：{&\S! !S@_[0]Ø_}
18バイト：{&\S! !Id@_[0]Ø_}
19バイト：{&\S!(!Id)@_[0]Ø_}
26バイト：{&\S!Permutations@_[0]Ø_}
26バイト：{&\S!Permutations[_@0]Ø_}
26バイト：{(Permutations[_@0]Ø_)@0}
26バイト：&\S##~`Ø#Permutations@&\S
27バイト：Last@{Permutations[_@0]Ø_}
27バイト：`@&0@{Permutations[_@0]Ø_}
28バイト：Last##~`Ø#Permutations@&{_}
28バイト：Last##~`Ø#Permutations@Last
28バイト：First@{Permutations[_@0]Ø_}
30バイト：{NestWhile[Shuffle,`in&_,_@0]}
33バイト：{If[(q.=Shuffle[_@0])in _,$@_,q]}
33バイト：{q.=Shuffle[_@0]If[q in _,$@_,q]}
34バイト：{If[Has[_,q.=Shuffle[_@0]],$@_,q]}
((A.~i.@!@#)@{.@:>){.@-.>
入力はボックス化された文字列のリストです-4 8 $ 'abcde123'、 'ab3e1cd2'、 '321edbac'、 'bcda1e23'として文字列のリストを明示的に宣言することはこのように公平であると感じました。
私はコードの@混乱を好まないのですが、今回はシリアル化された動詞がたくさんあります。
使い方：
> - unboxes the strings
( ) - left verb of the fork as follows:
@{.@:> - unbox and take the first string
( ) - finds all permutations of the first string
i.@!@# - a list 0 .. the factorial of the length of the 1st string
A.~ - anagram index, all permutations
{.@-. - remove the inital strings and take the first of the remaining
{.@(-.~i.@!@#@{.A.{.)。 オンラインでお試しください！
нœIмà
нœIмà full program with implicit input i
н push first element of i
œ push all permutations
I push input i
м remove all elements of i from the permutations
à extract greatest element and print implicitly
@ThePirateBayが見つけたのとほぼ同じ答え。
a=>eval('for(s=[...a[0]];(a+[]).includes(k=s.sort(a=>~-(Math.random``*3)).join``););k')この回答は、Immeの回答に基づいています（大幅に変更されていますが）。彼はコメントで、これは別の答えであるべきだと提案した。
古いアプローチの問題は、sort実装に完全に依存しているためです。標準では、ソート関数の呼び出し順序が保証されていないため、理論的には、最初または2番目のテストケースで終了することはありません。
このアプローチは数バイト長くなりますが、がMath.random返されない場合でも、制約された時間で終了することを保証します.5。
q~_0=m!\m0=
q~ e# Read input and evaluate: ["123" "132" "231" "312" "321"]
_ e# Duplicate: ["123" "132" "231" "312" "321"] ["123" "132" "231" "312" "321"]
0= e# First: ["123" "132" "231" "312" "321"] "123"
m! e# Permutations: ["123" "132" "231" "312" "321"] ["123" "132" "213" "231" "312" "321"]
\ e# Swap: ["123" "132" "213" "231" "312" "321"] ["123" "132" "231" "312" "321"]
m0 e# Subtract, push 0: ["213"] 0
e# (m is used instead of - when in front of a digit)
= e# Get item: "213"
{(.[0],*.comb.pick(*).join...*∉$_)[*-1]}入力の要素がなくなるまで、入力の最初の文字列をランダムにシャッフルします。
{(.[0],*.comb.pick(*).join...*∉$_)[*-1]}
{ } # Anonymous code block
( ... ) # Create a sequence
.[0], # The first element is the first element of the input
*.comb.pick(*).join # Each element is the previous one shuffled
*∉$_ # Until it is not in the input
[*-1] # Return the last element
itertools、答えはありますか？