চ্যালেঞ্জের বিবরণ

অনুক্রমের একটি "derangement" হ'ল একটি অনুগমন যেখানে কোনও উপাদান তার আসল অবস্থানে উপস্থিত হয় না। উদাহরণস্বরূপ ECABDএটি একটি derangement হয় ABCDE, কিন্তু CBEDAনা:

ABCDE
 | |   <- B and D are in their orignal positions
CBEDA

একটি সিকোয়েন্স দেওয়া হয়েছে, এটির এলোমেলোভাবে জঞ্জাল তৈরি করুন।

নোট

আপনি ইনপুট হিসাবে একটি স্ট্রিং বা উপাদানগুলির একটি অ্যারে / তালিকা হিসাবে নিতে পারেন (পূর্ণসংখ্যা, অক্ষর, বস্তু ...)
কোনও নতুন অবজেক্ট ফিরিয়ে দেওয়ার পরিবর্তে আপনি বিদ্যমান উপাদানগুলিকে অদলবদল করে পরিবর্তন করতে পারেন
প্রতিটি বিচক্ষণতার উত্পন্ন হওয়ার সমান সম্ভাবনা থাকা উচিত
আপনি ধরে নিতে পারেন যে ক্রমটিতে একাধিক উপাদান রয়েছে এবং একের বেশি কোনও উপস্থিত হয় না

— shooqie
সূত্র

4

সম্পর্কিত?

— অ্যাডিসন ক্রম্প

3

@ ভোটটোক্লোজ: হাহাহা, সম্পূর্ণ ফাঁকা

— শুকি

আমি এগুলি সম্পর্কে তেমন কিছুই জানি না তবে এটি কি কোনওভাবেই নির্দিষ্ট পয়েন্টের উপপাদ্যের সাথে সম্পর্কিত ... যা অনুসারে জিনিসগুলি সর্বদা তাদের নিজস্ব অবস্থানে বা এরকম কিছুতে শেষ হবে ...? আমি বাজি দেব আমি ভুল করছি তবে কেউ দয়া করে আমাকে সংশোধন করবেন :)

— ফারহান আনাম

উপাদানগুলি অনন্য হয়ে উঠবে কি সেগুলির কোনও গ্যারান্টি আছে, বা সেগুলিতে নকল থাকতে পারে?

— কারসিজেনিকেট

1

@ কারসিজেনিকেট: এটি ঠিক আছে বর্ণনায়; আপনি ধরে নিতে পারেন কোনও নকল নেই

— shooqie

12

সিজেম , 14 বাইট

q:X{mr_X.=:|}g

এটি অনলাইন চেষ্টা করুন!

ইনপুটটি কোনও অস্বস্তি না হওয়া অবধি পরিবর্তন করে রাখে।

ব্যাখ্যা

q:X   e# Read input and store it in X.
{     e# While the condition at the end of the loop is truthy...
  mr  e#   Shuffle the string.
  _X  e#   Duplicate it and push the input.
  .=  e#   Element-wise equality check.
  :|  e#   Reduce OR over the list, gives something truthy if any character
      e#   remained in its original position.
}g

— মার্টিন ইন্ডার
সূত্র

1

আমি চাই ওপি নির্দিষ্ট করে দিয়েছিল যে সমাধানগুলি সর্বদা শেষ করার গ্যারান্টিযুক্ত থাকতে পারে।

— জন ডিভোরাক

4

@ জ্যানডভোরাক ওয়েল, সম্ভাবনা 0টি শেষ হয় না তবে আপনি ঠিক বলেছেন যে একটি নির্বিচারে চলমান সময় প্রয়োজন চ্যালেঞ্জটিকে আরও আকর্ষণীয় করে তুলেছে।

— মার্টিন ইন্ডার

সম্ভাবনা কি আসলে 0? এলোমেলো অপারেশন নিখুঁত হবে না, এটি আসলে কীভাবে কাজ করে? আমি মনে করি এটি সম্ভবত ওপি যা চেয়েছিল তার একটি ভাল অনুমান, তবে আমার সন্দেহ হয় যে প্রতিটি বিচক্ষণতার সম্ভাবনাগুলি একই রকম (সম্ভবত এটি পিআরএনজির কিছু বীজ মানের উপর নির্ভর করে যা সম্ভবত শফল অপারেশন দ্বারা ব্যবহৃত হয়)।

— কেউ নেই

3

@ নোবডি আমার সন্দেহ হয় আপনি যে কোনও অ্যালগোরিদম ব্যবহার করে কোনও পিআরএনজি থেকে পুরোপুরি অভিন্ন ফলাফল পেতে পারেন । যাইহোক, ধরে নেওয়া যে এলোমেলোটি নিজেই অভিন্ন (যা জাভা "সমস্ত গ্যারান্টির সাথে প্রায় সমান সম্ভাবনার সাথে দেখা দেয়") এর গ্যারান্টি দেয়, প্রত্যাখ্যান-ভিত্তিক সমাধানটিও অভিন্ন বিচ্যুতি উত্পন্ন করবে, কারণ প্রতিটি বিচ্যুতি একটি ক্রমান্বয়ে এবং প্রতিটি ক্রমশক্তি একই সম্ভাবনা আছে।

— মার্টিন ইন্ডার

1

@ নোবিডি ম্যাথ অস্থিরতা এখানে। এমন একটি শর্ত যা হয় সফল হয় বা ব্যর্থ হয় তাকে পরিসংখ্যানগুলিতে বার্নোল্লি ট্রায়াল বলা হয়। এটি সূচিত করে যে প্রথম সাফল্যের জন্য কে ট্রায়ালগুলির প্রয়োজনীয়তার সম্ভাবনা হ'ল (1 - পি) ^ (কে - 1) * পি, যেখানে পি একটি সফল সজ্জিত হওয়ার সম্ভাবনা। এটি সহজেই দেখতে পাওয়া যায় যে কে-কে আরও বড় হওয়ার সাথে সাথে কে ট্রায়ালগুলির প্রয়োজনের সম্ভাবনাটি অদৃশ্যভাবে ছোট হয়ে যায়। অতএব, আমরা বলি অ্যালগরিদম সম্ভাব্যতা 1 ("প্রায় অবশ্যই") দিয়ে থামে, তবুও এটি কখনও থামবে না এমনটি অসম্ভব নয়।

— maservant

9

জেলি , 6 বাইট

Ẋ=³S$¿

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

Ẋ    ¿    Shuffle the given list while this is nonzero for it:
    $       A two-step process:
 =³           Element-wise equality of it and L (the original list)...
   S          Sum the ones in this binary array.

জোনাথন অ্যালান একটি বাইট সংরক্ষণ করলেন।

— লিন
সূত্র

5

তাহলে কি আপনার শীতের বাশ টুপি সময়ের আগেই পেয়েছেন? :-)

— লুইস মেন্ডো

2

একটি সুন্দর নতুন ছবি আঁকার সময়, Ẋ=³S$¿একটি বাইট সংরক্ষণ করে।

— জোনাথন অ্যালান

2

হু, আমি কখনই সে সম্পর্কে জানতাম না $। ধন্যবাদ!

— লিন

এটি 6 টি চর, তবে 6 বাইটের বেশি। Ẋ = ³S $ ¿বাইট দৈর্ঘ্য: 312112. সুতরাং মোট 10 বাইট।

— এমএক্সএফএফ

6

পাইথন, 85 বাইট

এতে পাসের তালিকাটি পরিবর্তন করে (মেটা দ্বারা এবং প্রশ্নে অনুমোদিত)।

from random import*
def D(l):
 o=l[:]
 while any(x==y for x,y in zip(o,l)):shuffle(l)

এটি এখানে অনলাইনে চেষ্টা করুন!

— FlipTack
সূত্র

1

যদি আপনি পাইথন 2 নির্দিষ্ট করে থাকেন তবে আমার মনে হয় আপনি নীচের লাইনে ইন্ডেন্টেশন স্পেসগুলি প্রতিস্থাপন def D(l):করতে l=input()এবং তারপরে সংরক্ষণ করতে পারবেন (যাতে আপনার কোনও ফাংশনের পরিবর্তে একটি প্রোগ্রাম থাকে)। ভাবা হয়নি, যদিও!

— mathmandan

@ মাথমান্ডান ভাল ধারণা, তবে তারপরে আমার এটি আবার মুদ্রণ করা দরকার যদি এটি একটি সম্পূর্ণ প্রোগ্রাম হয়, যার জন্য আরও বাইট খরচ হয়।

— ফ্লিপট্যাক

1

ঠিক আছে, আপনি যদি তাই বলেন। আমার অনুমান অনুসারে অনুমানটি বলেছিল যে আপনাকে প্রিন্ট আউট করতে হবে না বা ফলাফলটি ফেরত দিতে হবে না - একটি তালিকা [ব্যবহারকারীর ইনপুট থেকে] নেওয়া এবং এটি পরিবর্তন করা যথেষ্ট হবে। তবে "বিদ্যমান" কে "আপনার কোড চালানোর আগে বিদ্যমান" হিসাবে পড়া যুক্তিসঙ্গত, এই ক্ষেত্রে আমি আপনার সাথে একমত। (সম্ভবত এটি সম্পর্কে একটি সুপ্রতিষ্ঠিত

— sensকমত্য আছে

5

ES6 (জাভাস্ক্রিপ্ট), 71, 69 বাইট

ইনপুট এবং আউটপুট অ্যারে হয়, যে কোনও উপাদান ধরণের (স্ট্রিং, সংখ্যা ইত্যাদির) সাথে কাজ করা উচিত, যতক্ষণ না তার সাথে "==" তুলনা করা যায়।

Golfed

F=s=>(r=[...s]).sort(_=>Math.random()-.5).some((e,i)=>s[i]==e)?F(s):r

পরীক্ষা

F=s=>(r=[...s]).sort(_=>Math.random()-.5).some((e,i)=>s[i]==e)?F(s):r

F(['A','B','C','D'])
Array [ "D", "C", "A", "B" ]

F(['A','B','C','D'])
Array [ "D", "A", "B", "C" ]

F(['A','B','C','D'])
Array [ "C", "D", "B", "A" ]

F(['A','B','C','D'])
Array [ "D", "C", "B", "A" ]

F(['A','B','C','D'])
Array [ "C", "D", "B", "A" ]

ইন্টারেক্টিভ স্নিপেট

F=s=>(r=[...s]).sort(_=>Math.random()-.5).some((e,i)=>s[i]==e)?F(s):r

function G() {
    console.log(F(T.value.split``).join``); 
}

<input id=T value="ABCDEF"><button id=G onclick="G()">GENERATE</button>

স্নিপেট প্রসারিত করুন

— জেপেলীন্
সূত্র

5

পার্ল 6 , 33 বাইট

{first (*Zne$_).all,.pick(*)xx *}

একটি ল্যাম্বদা যা ইনপুট হিসাবে পূর্ণসংখ্যার বা অক্ষরের একটি তালিকা নেয় এবং একটি নতুন তালিকা দেয়।

যদি এটি অবশ্যই স্বেচ্ছাচারিত মানগুলির তালিকাগুলি সমর্থন করে neতবে !eqv(+২ বাইট) দিয়ে প্রতিস্থাপন করতে হবে ।

( এটি অনলাইনে চেষ্টা করুন। )

ব্যাখ্যা:

{ }: একটি ল্যাম্বডা সংজ্ঞা দেয়।
.pick(*): ইনপুট তালিকার একটি এলোমেলো শ্যাফেল উত্পন্ন করে।
.pick(*) xx *: এই জাতীয় শ্যাফলে একটি অলস অসীম ক্রম তৈরি করে।
(* Zne $_).all: একটি ল্যাম্বডা যা (দুটি নেতিবাচক স্ট্রিং সমতা) অপারেটর দিয়ে দুটি তালিকা (এটির আর্গুমেন্ট *এবং বাইরের ল্যাম্বার যুক্তি $_) neজিপ করে, বুলিয়ানগুলির একটি তালিকা দেয় এবং তারপরে সেগুলি একক বুলিয়ান অবস্থায় পতনের জন্য একটি allজংশন তৈরি করে ।
first PREDICATE, SEQUENCE: আমাদের অনুমোদনের অসীম অনুক্রম থেকে প্রথম উপাদানটি নিয়ে যায় যা "ডিগ্রানমেন্ট" পরীক্ষাটি পূরণ করে।

— smls
সূত্র

4

ব্র্যাচল্যাগ , 19 18 15 13 বাইট

@~.:?z:#da;?&

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

@~.                Output is a shuffle of the input
  .:?z             Zip the output with the input
      :#da         All couples of integers of the zip must be different
          ;      Or
           ?&      Call recursively this predicate with the same input

— Fatalize
সূত্র

3

পার্ল 6 , 45 বাইট

{(@^a,{[.pick(*)]}...{none @a Zeqv@$_})[*-1]}

{(@^a,{[.pick(*)]}...{!sum @a Zeqv@$_})[*-1]}

চেষ্টা করে দেখুন

ইনপুট যে কোনও কিছুর অ্যারে।

সম্প্রসারিত:

{
  (

    @^a,          # declare parameter, and seed sequence generator

    {             # lambda with implicit parameter ｢$_｣
      [           # store into an array
        .pick(*)  # shuffle ｢$_｣
      ]
    }

    ...           # keep generating the sequence until

    {
      none        # none
      @a          # of the outer blocks input
      Z[eqv]      # is zip equivalent
      @$_         # with the current value being tested
    }

  )[ * - 1 ]      # return the last value
}

— ব্র্যাড গিলবার্ট বি 2 গিলস
সূত্র

3

এমএটিএল, 7 বাইট

এটি আমার অক্টাভ পোস্টের একটি অনুবাদ (এবং এখানে অন্যান্য জমা দেওয়ার মতোই)। আমি গতকাল আমার প্রথম এমএটিএল পোস্ট পোস্ট করেছি (সিএনআর ক্র্যাক), তাই আমি অনুমান করি যে এটি অনুকূল নয়, তবে এটি এখন পর্যন্ত আমার সেরা best

সত্যি কথা বলতে, আমি tসেখানে নিশ্চিতভাবেই নিশ্চিত নই , তবে এটি কাজ করার একমাত্র উপায় way এটি ব্যবহার করা হয়েছে যাতে আমি ব্যবহারকারীর ইনপুটটিকে (এগুলি পুনরুদ্ধার করা G) এলোমেলোভাবে অনুগতির সাথে তুলনা করতে পারি । আমি ভাবব আমি এগুলি ছাড়া দুটির তুলনা করতে পারি, তবে ...?

যাইহোক, এখানে যায়:

`Z@tG=a

`          % Loop
 Z@        % Random permutation of input
   t       % Duplicating the stack
    G      % Paste from clipboard G (user input)
     =     % Comparing the random permutation with the input (retrieved from clipboard)
      a    % any(input == random permutation)
           % Implicit end and display

এটি অনলাইন চেষ্টা করুন!

— স্টিও গ্রিফিন
সূত্র

কোন উন্নতি? আমার কি সত্যিই tসেখানে দরকার আছে বা আমি এ থেকে মুক্তি পেতে পারি? এমএটিএল-তে গল্ফ দেওয়ার চেষ্টা করা মজাদার ছিল ... :)

— স্টিভি গ্রিফিন

:-) আমি কীভাবে এ থেকে মুক্তি পাবো তা দেখতে পাচ্ছি না t(বা সমতুল্য অন্যটি G) আপনাকে পরবর্তী পুনরাবৃত্তির জন্য বা চূড়ান্ত ফলাফল হিসাবে স্ট্যাকের উপর কিছু ফেলে রাখা দরকার

— লুইস মেন্ডো

3

আসলে , 13 বাইট

;;WX╚│♀=ΣWX)X

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা:

;;WX╚│♀=ΣWX)X
;;             make two copies of input
  WX╚│♀=ΣW     while top of stack is truthy:
   X             discard top of stack
    ╚            shuffle array
     │           duplicate entire stack
      ♀=         compare corresponding elements in shuffled and original for equality
        Σ        sum (truthy if any elements are in the same position, else falsey)
          X)X  discard everything but the derangement

— ঐ মেগো
সূত্র

2

অক্টাভা, 56 55 বাইট

x=input('');while any(x==(y=x(randperm(nnz(x)))));end,y

আমাদের ব্যবহার করতে হবে input('')যেহেতু এটি কোনও ফাংশন নয়। এছাড়াও, যেহেতু আমি স্ট্রিং হিসাবে ইনপুটটি বেছে নিতে পারি আমরা সেই কৌশলটি ব্যবহার করতে পারি nnz(x)==numel(x)।

ব্যাখ্যা:

x=input('')            % Self-explanatory
while any(x==y)        % Loop until x==y has only 0s (i.e. no elements are equal)
y=x(randperm(nnz(x)))  % Continue to shuffle the indices and assign x(indices) to y
end                    % End loop
y                      % Display y

ইনপুটটি স্ট্রিং হতে পারে তা লক্ষ্য করার জন্য লুইসকে ধন্যবাদ, এইভাবে আমি দুটি বাইট সংরক্ষণের nnzপরিবর্তে ব্যবহার করতে পারি numel।

— স্টিও গ্রিফিন
সূত্র

স্বরে নোট করুন: পরের বার পুরো প্রশ্নটি পড়ুন :) ধন্যবাদ!

— স্টিভি গ্রিফিন

1

আমার সাথে সর্বদা এটি ঘটে :-)

— লুইস মেন্ডো

2

এমএটিএল, 13 বাইট

এটি @ লুইস মেন্ডো এবং আমার একটি যৌথ প্রচেষ্টা। এখানে অন্যান্য অনেক উত্তরের বিপরীতে এইটি এই অর্থে নির্ধারিত যে এটি কোনও রঞ্জকতা না পাওয়া পর্যন্ত এলোমেলো অনুক্রমের নমুনা দেয় না, তবে এটি সমস্ত ডিগ্রেন্ট তৈরি করে এবং এলোমেলোভাবে একটি বেছে নেয়।

Y@tG-!Af1ZrY)

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

Y@tG-!Af1ZrY)
Y@             generate all permutatoins
  t            create a duplicate
   G-!A        find the (logical) indices of all valid derangements (where no character of the string is in the same position as the original string)
       f       convert logical to linear indices
        1Zr    choose one of those indices randomly
           Y)  get the derangement (from the ones we generated earlier) at this index

— flawr
সূত্র

2

পাইথ - 10 9 বাইট

এটি ইনপুট পরিবর্তন করতে থাকে যখন কোনও অক্ষর ইনপুটটিতে তাদের সূচীতে অক্ষরের সমান হয়।

.WsqVHQ.S

এটি এখানে অনলাইনে চেষ্টা করুন ।

.W           Iterate while
 s           Sum, this is works as any() on a boolean list
  qV         Vectorized equality
   H         The lambda variable for the check step
   Q         The input
 .S          Shuffle
  (Z)        Lambda variable, implicit
 (Q)         Start .W with input, implicit

— Maltysen
সূত্র

আপনি কি একটি ব্যাখ্যা যোগ করতে পারেন? আমি একটি পাইথ উত্তর লিখতে চেয়েছিলাম। আমি এটি সম্পর্কে খুব বেশি জানি না।

— গুরুপদ মামাদাপুর

@ গুরুপাদ মমাদপুর নিশ্চিত, খুশিও হবে।

— মালটিসেন

1

@ গুরুপাদমমাদাপুর যোগ হয়েছে। আমাদের একটি টিউটোরিয়াল আছে । এটি বেশ পুরানো, তবে আপনাকে বেসিকগুলি শেখাবে teach পাইথ সম্পর্কিত যে কোনও বিষয়ে যদি আপনার কোনও সহায়তার দরকার হয় তবে আমাকে চ্যাটে বিনা দ্বিধায় ভোগ করুন।

— মালটিসেন

2

গণিত, 57 বাইট

#/.x_:>RandomChoice@Select[Permutations@x,FreeQ[#-x,0]&]&

নামহীন ফাংশন ইনভেস্ট হিসাবে একটি whetvers একটি তালিকা গ্রহণ এবং একটি তালিকা আউটপুট। সব একাধিক বিন্যাসন উৎপাদিত পর #ইনপুটের x, আমরা শুধুমাত্র বেশী, যার জন্য সেট রাখার #-xউপাদান ভিত্তিক পার্থক্য থাকে না 0; তারপরে আমরা সেই সেট থেকে একটি (অভিন্ন) এলোমেলো পছন্দ করি।

— গ্রেগ মার্টিন
সূত্র

1

চমৎকার! #/.x_:>NestWhile[RandomSample[#,Length@#]&,#,Not@FreeQ[#-x,0]&]&লম্বা স্ট্রিংগুলির জন্য অনুশীলনে সামান্য কিছুটা স্পষ্টতই দ্রুত

— মার্টিন

অপেক্ষা করুন, আপনি আমাকে বলছেন যে ম্যাথমেটিকায় ডিজেনমেন্টের জন্য কোনও বিল্ট-ইন নেই? : o

— shooqie

আমি নিজেকে বিল্ট-ইন আশা করছিলাম অর্ধেক :)

— গ্রেগ মার্টিন

0

পিএইচপি, 85 বাইট

for($a=$b=str_split($argv[1]);array_diff_assoc($a,$b)!=$a;)shuffle($b);echo join($b);

স্ট্রিং আর্গুমেন্টটি দুটি অ্যারে অনুলিপি করে, তাদের মধ্যে পার্থক্য (উপাদানগুলির সূচকেও তুলনামূলকভাবে) অপরটির সমান না হওয়া পর্যন্ত তার মধ্যে একটি পরিবর্তন করে। সাথে চালাও -r।

— তিতাস
সূত্র

0

আর, 59 বাইট

z=x=1:length(y<-scan(,""));while(any(x==z))z=sample(x);y[z]

এসটিডিনে উপাদানের একটি তালিকা পড়ে, তালিকার দৈর্ঘ্য নেয় এবং 1 থেকে দৈর্ঘ্য পর্যন্ত স্যাম্পলিং শুরু করে, যতক্ষণ না এটি খুঁজে পায় যাতে অর্ডার তালিকার সাথে কোনও স্থান ভাগ না করে। তারপরে সেই তালিকাটি মুদ্রণ করে।

— JAD
সূত্র

0

আশ্চর্য , 32 বাইট

f\@[/>#I zip#=[#0a\shuf#0]?f a?a

ব্যবহার:

f\@[/>#I zip#=[#0a\shuf#0]?f a?a];f[1 2 3 4 5]

ব্যাখ্যা

আরও পঠনযোগ্য:

f\@[
  some #I zip #= [#0; a\ shuf #0]
    ? f a
    ? a
]

পুনরাবৃত্তি ফাংশন f। fএর ইনপুট তালিকা এবং ইনপুট তালিকার একটি পরিবর্তিত সংস্করণের মধ্যে একটি এলিমেন্ট-ভিত্তিক তুলনা করে । যদি তুলনাটি কোনও সমান মান দেয় তবে তারপরে fপরিবর্তিত তালিকায় বলা হয়। অন্যথায়, আমরা কেবল বদলানো তালিকাটি ফিরিয়ে দিই।

— মামা ফান রোল
সূত্র

0

রুবি, 67 বাইট

def f a
while (a.zip(o=a.shuffle).map{|x,y|x-y}.index 0);end
o
end

— DepressedDaniel
সূত্র

0

অক্টাভা, 54 53 বাইট

@(a)((p=perms(a))(L=!any(p==a,2),:))(randi(sum(L)),:)

সমস্ত ক্রিয়াকলাপ তৈরি করুন aএবং এলোমেলোভাবে এমন একটি সারি নির্বাচন করুন যার সাথে সাধারণ উপাদান নেই a।

দ্রষ্টব্য: এটি দুর্ঘটনাক্রমে @ ফ্লোয়ার এমএটিএল উত্তরের সমান!

— rahnema1
সূত্র

0

ক্লোজার, 94 90 79 বাইট

#(let[s(shuffle %)](if(not(some(fn[[x y]](= x y))(map vector % s)))s(recur %)))

-4 বাইট শর্তসাপেক্ষে কমানোর অভ্যন্তরে পরিবর্তন আনার andএবং ইনলাইনিং করে done?।

হ্রাস রূপান্তর করে -11 বাইট some।

Woot! পিএইচপি বীট।

নিষ্ঠুর শক্তি পদ্ধতি। এটি অবৈধ থাকাকালীন তালিকাটি বদল করে। এটি নির্বোধ প্রচেষ্টা প্রতিরোধ করতে কিছুই করে না এমন একটি নিষ্ঠুর বল পদ্ধতি যা বিবেচনা করে নির্বোধ দ্রুত তাড়াতাড়ি শেষ করে। এটি এক সেকেন্ডেরও কম সময়ে 1000 টি উপাদান লম্বা তালিকার 1000 টি বিচ্ছিন্নতা খুঁজে পেয়েছে।

Ungolfed:

(defn dearang [ls]
  (let [s (shuffle ls)
        bad? (some (fn [[x y]] (= x y))
                (map vector ls s))]
    (if (not bad?) s (recur ls))))

— Carcigenicate
সূত্র

0

ক্লোজার, 56 বাইট

#(let[s(shuffle %)](if((set(map = % s))true)(recur %)s))

নোট করুন যে একটি স্ট্রিং পরিবর্তন করা যাবে না, অবশ্যই এর মাধ্যমে seqবা মাধ্যমে যেতে হবে vec।

মূলত আমি চেষ্টা করেছিলাম #(first(remove(fn[s]((set(map = % s))true))(iterate shuffle %)))তবে recurপদ্ধতির চেয়ে সংক্ষিপ্ততর iterate।

যাদুটি হ'ল (set(map = % s))মিথ্যা, সত্যের সেট বা সত্য এবং মিথ্যা সেট returns এই একটি ফাংশন হিসাবে ব্যবহার করা যেতে পারে যদি এটা রয়েছে trueতারপর উত্তর true, অন্যথায় falsy nil। =দুটি ইনপুট আর্গুমেন্ট গ্রহণ করে খুশি, এটি কিছু দিয়ে মোড়ানো প্রয়োজন হয় না।

((set [false]) true)
nil

এমনকি মানগুলি সত্য কিনা তা পরীক্ষা করার আরও ছোট উপায়ও আছে?

— NikoNyrh
সূত্র

0

এপিএল, 11 বাইট।

ডান যুক্তিতে স্ট্রিং সহ:

⍵[⍋(⍴⍵)?⍴⍵]

ব্যাখ্যা

ρ⍵ সঠিক আর্গুমেন্টের দৈর্ঘ্য (বা আকৃতি) পায়।

?(⍴⍵)এই সংখ্যাগুলির একটি এলোমেলো অ্যারে প্রদান করে ।

⍋ কোনও সদৃশ নিশ্চিত না করার জন্য তাদের ক্রমটি ফেরত দেয়।

⍵[..] এই সূচকটি ব্যবহার করে স্ট্রিংয়ের এলোমেলো ভাণ্ডার উপস্থাপন করে।

— জ্যাকব ইউলেটী
সূত্র

পিপিসিজিতে আপনাকে স্বাগতম! আমাদের সমস্ত এন্ট্রি বৈধ ফাংশন বা পূর্ণ প্রোগ্রাম হতে হবে, সুতরাং আপনার উত্তর একটি ফাংশন যুক্তি বা ইনপুট পদ্ধতির মাধ্যমে ইনপুট নেওয়া প্রয়োজন।

— ইটিএইচ প্রডাকশনগুলি

আমি মনে করি এটি এখন প্রয়োজনীয়তা মাপসই করা উচিত। এটি সঠিক যুক্তিতে লাগে, বা ⍵।

— জ্যাকব ইউলেট

একটি এলোমেলো বিচ্যুতি উত্পন্ন করুন

চ্যালেঞ্জের বিবরণ

নোট

সিজেম , 14 বাইট

ব্যাখ্যা

জেলি , 6 বাইট

ব্যাখ্যা

পাইথন, 85 বাইট

ES6 (জাভাস্ক্রিপ্ট), 71, 69 বাইট

পার্ল 6 , 33 বাইট

ব্যাখ্যা:

ব্র্যাচল্যাগ , 19 18 15 13 বাইট

ব্যাখ্যা

পার্ল 6 , 45 বাইট

সম্প্রসারিত:

এমএটিএল, 7 বাইট

আসলে , 13 বাইট

অক্টাভা, 56 55 বাইট

এমএটিএল, 13 বাইট

ব্যাখ্যা

পাইথ - 10 9 বাইট

গণিত, 57 বাইট

পিএইচপি, 85 বাইট

আর, 59 বাইট

আশ্চর্য , 32 বাইট

ব্যাখ্যা

রুবি, 67 বাইট

অক্টাভা, 54 53 বাইট

ক্লোজার, 94 90 79 বাইট

ক্লোজার, 56 বাইট

এপিএল, 11 বাইট।

ব্যাখ্যা