এটি কি একটি ভাল 2048 বোর্ড?

26

এটি এখানে আমার প্রথম প্রশ্ন, সুতরাং মন্তব্যে যে কোনও পরামর্শই প্রশংসিত হবে! ধন্যবাদ;)

ভূমিকা

2048 গেমের জন্য একটি খুব সাধারণ কৌশল কখনই স্যুইপ হয় না । এটি শীর্ষে সমস্ত বড় সংখ্যা এবং নীচে নীচের অংশগুলিতে অবস্থান করে। সুতরাং, আপনি যদি এই কৌশলটি সঠিকভাবে প্রয়োগ করেন তবে আপনার বোর্ড সর্বদা নিম্নলিখিত প্যাটার্নের সাথে মিলবে:

আপনার কাজের জন্য যাচাই করার প্যাটার্ন

আপনার জমাটি হ'ল একটি সম্পূর্ণ প্রোগ্রাম বা এমন একটি ফাংশন হওয়া উচিত যা বোর্ডকে এভাবে বর্ণনা করা যায় তবে সত্যের মান দেয়: বোর্ডের প্রতিটি কলামটি নীচে গিয়ে প্রথম নম্বরটি কলামের সর্বোচ্চ হওয়া উচিত, দ্বিতীয় সংখ্যাটি কম হওয়া উচিত প্রথম সংখ্যার তুলনায় বা তার সমান ইত্যাদি A একটি ভাল 2048-বোর্ডকে এমন বোর্ড হিসাবে সংজ্ঞায়িত করা হয় যেখানে সর্বোচ্চ সংখ্যাগুলি শীর্ষে থাকে। এটি কোড-গল্ফ , তাই ভাষার প্রতি সংক্ষিপ্ততম কোডটি (বাইটে) জয়ী হয়।

ইনপুট / আউটপুট

ইনপুটটি যেকোন উপযুক্ত উপায়ে নেওয়া যেতে পারে, উদাহরণস্বরূপ 4 টি অ্যারের অ্যারে, প্রতিটি 4 নম্বর, বা 16 সংখ্যার অ্যারে। মোট, এটি সর্বদা 16 সংখ্যার হবে, 4x4 বোর্ডের প্রতিনিধিত্ব করে আউটপুটটি একটি "ভাল 2048-বোর্ড", এবং অন্যথায় একটি মিথ্যা মান হিসাবে ইনপুটটির সত্যবাদী মান হওয়া উচিত।

উদাহরণ

Truthy:

|-------------------|
| 16 |    | 64 |  8 |
|-------------------|
|  8 |    | 32 |  8 |
|-------------------|
|  4 |    | 32 |  2 |
|-------------------|
|  2 |    |    |    |
|-------------------|


|-------------------|
| 16 | 128| 64 | 32 |
|-------------------|
|  8 | 128| 32 |  8 |
|-------------------|
|  4 | 16 |  8 |  2 |
|-------------------|
|  4 |    |    |    |
|-------------------|

Falsy:

|-------------------|
| 16 |    | 64 |  8 |
|-------------------|
|  8 |    | 32 | 16 |
|-------------------|
| 32 |    | 128|  2 |
|-------------------|
|  2 |    |    |    |
|-------------------|


|-------------------|
| 16 | 128| 64 | 32 |
|-------------------|
|  8 |  32|    |  8 |
|-------------------|
|  4 | 16 |  8 |  2 |
|-------------------|
|  4 |    |    |    |
|-------------------|

বিঃদ্রঃ

২ য় মিথ্যা পরীক্ষার কেসটি দেখুন: যখন কোথাও একটি শূন্য মান (বা একটি 0) থাকে এবং যখন এটি একটি মান অনুসরণ করে যা সর্বশেষ শূন্য সংখ্যাগুলির চেয়ে বেশি হয়, এটি মিথ্যা হওয়া উচিত, কারণ পরবর্তী মানটির পরে শূন্যটি 0 এর থেকে বেশি হবে, এটি এটিকে অবৈধ করে তোলে।

শুভকামনা!

code-golf  decision-problem  matrix  board-game  sliding-puzzle 
— dv02
সূত্র
মন্তব্যগুলি বর্ধিত আলোচনার জন্য নয়; এই কথোপকথন চ্যাটে সরানো হয়েছে ।
— মার্টিন এন্ডার

উত্তর:

16

হাস্কেল , 21 বাইট

all$scanr1 max>>=(==)

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

0 টি ফাঁকা ফাঁকা স্থান সহ কলামগুলির একটি তালিকা নেয়।

— xnor
সূত্র
এর জন্য ভুল আউটপুট দেয় [[16,8,4,0],[16,0,4,4],[16,4,4,4],[16,4,4,4]]।
— জোনাথন অ্যালান
@ জোনাথান অ্যালান এটি যেমনটি মিথ্যা প্রত্যাবর্তন করে তা আপনার দ্বিতীয় কলাম [16,0,4,4] যা একঘেয়েমিক নয়। নাকি আমি কিছু মিস করছি?
— আমি
0 হ'ল আপনার খালি কক্ষের স্থানধারক, 0 এর মান নয়
— জোনাথন অ্যালান
2
@ আইভন্তটোমেকগেমস মন্তব্যটি আপনার জন্য বোঝানো হয়েছে ("আপনার" "" সাথে "প্রতিস্থাপন করুন)।
— জোনাথন অ্যালান
@ জোনাথান অ্যালান আমি সমস্ত বিভ্রান্তির জন্য দুঃখিত, তবে 0 টি অবশ্যই একটি শূন্য ঘরের প্রতিনিধিত্ব করার সময়, 0 মান হিসাবে গণনা করা উচিত cells
— ডিভি02
9

এপিএল (ডায়ালগ) , 7 4 বাইট

যুক্তি হিসাবে ফাঁকা জন্য 0 ব্যবহার করে 4-বাই -4 ম্যাট্রিক্স গ্রহণ করে।

⊢≡⌊⍀

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

⌊⍀ উল্লম্ব संचयीতম সর্বনিম্ন

≡ অনুরূপ

⊢ অপরিশোধিত যুক্তি?

— আদম
সূত্র
আশ্চর্যজনক গল্ফ! (আমি প্রত্যাশা করেছি যে ডায়ালগের পক্ষে কাজ করে এবং দীর্ঘকাল ধরে এপিএল প্রোগ্রাম করেছ) তার কাছ থেকে। এবং হ্যাঁ, আমার এপিএল প্রতীক না হলেও আমার এপিএল প্রতীক রয়েছে। আলফা, আইওটা, ওমেগা সমস্ত গ্রীক, এপিএল প্রযুক্তিগতভাবে নয়। ওয়ান-ক্যারেক্টার কমান্ডের কথা ভেবে তারা প্রথমে মনে এলো। সুতরাং আমার বর্ধিতকরণ এবং হ্রাস হ'ল জেলি এর কারণ এটি প্রথমে মাথায় আসে। (কেবল আপনাকে অবহিত করার জন্য, আমি চ্যাট থেকে স্থগিত হয়েছি, সুতরাং এখানে প্রতিক্রিয়া))
— জ্যাচার
7

জেলি , 4 বাইট

Ṣ€U⁼

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

কলামগুলির অ্যারে হিসাবে ইনপুট দিন। নির্বিচারে আকারের গ্রিডগুলির সাথে কাজ করে।

— HyperNeutrino
সূত্র
খালি সেলটির উপস্থাপনা কী? (উদাহরণস্বরূপ ২ য় ভুয়া পরীক্ষার তৃতীয় কোল) - "মোট এটি সর্বদা ১ 16 সংখ্যা হবে"। আপনি যদি প্রথমে তাদের ফিল্টার করে তবে এটি জিরোদের সাথে কাজ করবে।
— জোনাথন অ্যালান
@JonathanAllan চশমা মতে, আমি মনে করি এই খুব বৈধ
— HyperNeutrino
তবুও এটি এখন আমার প্রস্তাবিত পরীক্ষার ক্ষেত্রে ফিরে আসার 0চেয়ে ব্যর্থ হবে 1।
— জোনাথন অ্যালান
@ জনাথন অ্যালান আপনি জেলি তে কীভাবে ফিল্টার করবেন _ আমি আশা করতে চাই এই কাজের জন্য কিন্তু ḟ0কাজ করে না
— HyperNeutrino
1
@ ডার্টিডিভ ঠিক আছে, আমরা এখানে চ্যালেঞ্জগুলি উপভোগ করতে এবং নতুন ব্যবহারকারীদের এই জায়গাতে
— অভ্যস্ত
6

আর (+ পিএসআর), 23 বাইট

pryr::f(all(diff(x))<1)

যা ফাংশন মূল্যায়ন

function (x) 
all(diff(x)) < 1

যা ইনপুট হিসাবে একটি ম্যাট্রিক্স লাগে:

     [,1] [,2] [,3] [,4]
[1,]   16    0   64    8
[2,]    8    0   32    8
[3,]    4    0   32    2
[4,]    2    0    0    0

যখন ম্যাট্রিক্স দেওয়া হয় তখন diffসারিগুলির মধ্যে পার্থক্যগুলি স্বয়ংক্রিয়ভাবে গণনা করে (আশ্চর্যরূপে this

     [,1] [,2] [,3] [,4]
[1,]   -8    0  -32    0
[2,]   -4    0    0   -6
[3,]   -2    0  -32   -2

এই মানগুলির কোনওটিই ভাল বোর্ডে 1 বা উচ্চতর হতে পারে না, তাই আমরা ম্যাট্রিক্সের মানগুলি মান্য করে <1কিনা তা পরীক্ষা করে দেখি all।

     [,1] [,2] [,3] [,4]
[1,] TRUE TRUE TRUE TRUE
[2,] TRUE TRUE TRUE TRUE
[3,] TRUE TRUE TRUE TRUE

[1] TRUE
— JAD
সূত্র
5

জাভাস্ক্রিপ্ট, 37 বাইট

x=>''+x==x.map(v=>v.sort((x,y)=>y-x))

এটিকে কল করুন:

|-------------------|
| 16 |    | 64 |  8 |
|-------------------|
|  8 |    | 32 |  8 |
|-------------------|
|  4 |    | 32 |  2 |
|-------------------|
|  2 |    |    |    |
|-------------------|

f([[8,8,2,0],[64,32,32,0],[0,0,0,0],[16,8,4,2]])

ফায়ারফক্স, ক্রোম, জাভাস্ক্রিপ্ট শেল এবং নোড.জেএস-এ পরীক্ষিত

— TSH
সূত্র
আপনি ফলাফলকে স্ট্রিংয়ে কেন পরিবর্তন করবেন? ( ''+)
— জাকারিয়া
@ জাকারি sortহ'ল পরিবর্তনযোগ্য পদ্ধতি, যা অ্যারেটিকে পরিবর্তন করবে। প্রথমে স্ট্রিংয়ে রূপান্তর করা অ্যারের একটি অনুলিপি সংরক্ষণ করবে। স্ট্রিংতে রূপান্তরকরণও রেফারেন্সের পরিবর্তে (স্ট্রিং) মান দ্বারা সমান অপারেশনকে কাজ করে।
— tsh
4

সি # (.নেট কোর) , 71 বাইট

i=>{for(int n=3;++n<i.Length;)if(i[n]>i[n-4])return false;return true;}

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

বোরিং উপায় একটি লিনিয়ার অ্যারে ইনপুট সমতল হওয়া প্রত্যাশা করে।

বিকল্পভাবে স্পষ্টভাবে নিষিদ্ধ উপায়:

i=>{for(int n=3;i[++n]<=i[n-4];);}

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

সত্য সূচিত করার জন্য একটি সূচকআউটআউটবাউন্ডসেক্সপশন নিক্ষেপ করে, সাধারণত মিথ্যা নির্দেশ করতে শেষ হয়। আমি এমন একটি সংস্করণ চেষ্টা করেছি যা ব্যতিক্রম থেকে রূপান্তর / সত্য / মিথ্যা ব্যতিক্রম নয়, তবে এটি কেবল নিয়মিত সংস্করণ হিসাবে শেষ হয়েছিল।

— কামিল দ্রাকারী
সূত্র
4

জাভাস্ক্রিপ্ট, 34 , 32 বাইট

v=>!v.some((x,i)=>i%4&&x>v[i-1])

প্রথম কলামযুক্ত একক অ্যারে পেরিয়ে কল করুন, তারপরে ২ য়, তৃতীয় এবং চতুর্থ।

প্রতিটি কলামের প্রথম সংখ্যা বাদে প্রতিটি সংখ্যাকে পূর্ববর্তী সংখ্যার সাথে তুলনা করে এবং সত্যটি যদি সত্য হয় তবে ফিরে আসে।

পরীক্ষা

f=v=>!v.some((x,i)=>i%4&&x>v[i-1])

f([16,8,4,2,0,0,0,0,64,32,32,0,8,8,2,0])
f([16,8,4,4,128,128,16,0,64,32,8,0,32,8,2,0])
f([16,8,32,2,0,0,0,0,64,32,128,0,8,16,2,0])
f([16,8,4,4,128,32,16,0,64,0,8,0,32,8,2,0])

সম্পাদনা: tsh ধন্যবাদ 2 বাইট সংরক্ষণ করা

— Grax32
সূত্র
কিছু বুলিয়ান রূপান্তরিত হওয়ার পরে:v=>!v.some((x,i)=>i%4&&x>v[i-1])
— tsh
3

হাস্কেল , 28 বাইট

all$and.(zipWith(>=)=<<tail)

এছাড়াও আছে

all$(==)=<<sort

15 বাইট সহ তবে এটি import Data.Listকেবল প্রিলিউডের সাথে কাজ করার সময় প্রয়োজন । অন্যথা,

all$(==)=<<Data.List.sort

25 বাইট সহ জিএইচসিআইতে কাজ করে।

— Bergi
সূত্র
3

গাইয়া , 3 6 বাইট

+3 বাইট কারণ স্পষ্টত আমি জানতাম না যে আমার ভাষা কীভাবে কাজ করে

ọ¦_ẏ⁇!

এটি কলামগুলির একটি তালিকা গ্রহণ করে ফলাফলকে স্ট্যাকের মধ্যে রেখে একটি ফাংশন।

আরও কয়েকটি 6 বাইট সমাধান উপস্থিত রয়েছে 0+¦o¦ẏএবং সহ ọ¦_ẏ¦ỵ।

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

ব্যাখ্যা

ọ¦      Deltas of each column
  _     Flatten
   ẏ⁇   Keep only positive numbers
     !  Negate (is it empty?)
— ব্যবসায় বিড়াল
সূত্র
Downvote করা যাবে না, কিন্তু একটি অপারেটর ভাষা পর চ্যালেঞ্জ পোস্ট করা হয়েছে ন্যায্য এটা অনুযায়ী ডিফল্ট ভাবে নিষিদ্ধ হবে বলে মনে হয় me.Also বলে মনে হচ্ছে না এ যোগ ব্যবহার এই ।
— সিনাসকি
@ সিনাস্কি এখানে আমরা যেমন দেখেছি তেমন নিয়ম থেকে দূরে চলে এসেছি । যেভাবেই হোক, আমার বিকল্প সমাধানগুলি কেবলমাত্র অপারেটর ব্যবহার করে যা চ্যালেঞ্জের আগে অবশ্যই উপস্থিত ছিল।
— বিড়াল বিড়াল
আমার ধারণা করা অন্যগুলির মধ্যে আমি এটির মধ্যে কেবল পরিবর্তন করব
— Business Cat
কিছু মনে করবেন না, আমি সেই নতুন নিয়ম সম্পর্কে সচেতন ছিলাম না।
— সিনাসকি 14
3

টিআই-বেসিক, 25 বাইট

উত্তরে 4x4 ম্যাট্রিক্স হিসাবে ইনপুট নেয়।

For(R,1,3
*row+(-1,Ans,R+1,R
End
Ans=abs(Ans

ব্যাখ্যা

For(R,1,3             Loop from row 1 to 3.

*row+(-1,Ans,R+1,R    Multiply row R+1 by -1 and add it to row R in-place.
                      Effectively, this subtracts row R+1 from row R.

End                   Now the first 3 rows contain the row differences,
                      and the 4th row is non-negative assuming valid input.

Ans=abs(Ans           Check whether every element in the matrix is equal to its
                      absolute value, or in other words, contains no negative values.
— calc84maniac
সূত্র
2

হাস্কেল , 41 বাইট

f[x]=1>0
f(a:b:c)|a<b=1<0|1>0=f$b:c
all f

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

বিন্দু মুক্ত ফাংশন সংজ্ঞায়িত করে all f, যেখানে fকোনও তালিকা সাজানো হয়েছে কিনা তা নির্ধারণ করে।

— গম উইজার্ড
সূত্র
ডার্ন, এই পাইথনকে 1 বাইট দ্বারা
— পরাজিত করে
@ হাইপার নিউট্রিনো ওয়েল এক্সনোরের 21-এর মধ্যে অজগরকে মেরেছে:: পি
— গম উইজার্ড
আপনি এই fহিসাবে সংজ্ঞা দিতে পারেনf(a:b:c)=a>=b&&f(b:c)
— ক্রিশ্চিয়ান লুপাস্কু
2

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

কলামগুলির একটি অ্যারে নেয়; একটি (সত্যবাদী) নম্বর বা প্রদান করে false।

a=>a.every(c=>c.reduce((r,n)=>r&&n<=r&&n))

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

প্রথম প্রচেষ্টা. কলামগুলির একটি অ্যারে নেয়; রিটার্ন trueবা false।

a=>a.every(c=>c.slice(1).every((n,i)=>n<=c[i]))
— darrylyeo
সূত্র
খালি ঘরগুলির জন্য আপনি কোন মান আশা করছেন?
— আর্নল্ড
2

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

SGX=

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

উল্টোদিকে সারিগুলির অ্যারে হিসাবে ইনপুট দিন।

S       % sort columns
GX=     % compare with input
        % true if arrays are numerically equal
        % (implicit) convert to string and display
— Cinaski
সূত্র
যে মামলাগুলি truthy আসতে উচিত যা মত কলাম উপাদানের মধ্যে শূন্য আছে তাদের জন্য কাজ করে না এই উদাহরণস্বরূপ।
— জোনাথন অ্যালান
আপনি ঠিক বলেছেন, আমি একটি সমাধান নিয়ে কাজ করছি। বিটিডাব্লু আমি খালি কোষে
— একা একা
হ্যাঁ, আমি এটি দেখতে পারি। আমি এটির জন্যও একটি পরীক্ষার কেস প্রস্তাব করেছি। পিনিং যখন ঠিক হয়ে যায় এবং আপনি আমার কাছ থেকে একটি আপত্তি পেয়ে যাবেন :)
— জোনাথন অ্যালান
@ জোনাথন অ্যালান অপেক্ষা করুন, কলাম উপাদানগুলির মধ্যে শূন্য রয়েছে তখন কে বলেছিল যে সত্যবাদী হওয়া উচিত? আমার দ্বিতীয় মিথ্যা পরীক্ষার কেসটি দেখুন, একটি খালি ঘর / একটি 0 যার পরে নীচে নামার সময় উচ্চতর মানটি অবৈধ।
— dv02
@ ডার্টিডিভ এফওয়াইআই মূলত এই শব্দটির সাথে দেওয়া হয়েছে এবং এর বুদ্ধিমান ব্যাখ্যার সাথে আপনার দ্বিতীয় মিথ্যা মামলাটি এখনও মিথ্যা হবে; এটি আমার প্রস্তাবিত পরীক্ষার কেস সত্যবাদী হবে।
— জোনাথন অ্যালান
2

ডায়ালগ এপিএল, 21 19 15 বাইট

∧/{⍵≡⍵[⍒⍵]}¨↓⍉⎕

এটি অনলাইন চেষ্টা করুন! (পরিবর্তিত তাই এটি ট্রাইপল চালানো হবে)

2D অ্যারে হিসাবে ইনপুট নেয়।

কিভাবে?

  • ⎕ ইনপুট
  • ⍉ TRANSPOSE
  • ↓ 2 ডি অ্যারে => 1 ডি ভেক্টরের 1 ডি ভেক্টর
  • { ... }¨এটি প্রতিটি সদস্যের জন্য প্রয়োগ করুন (যুক্তি ⍵):
    • ⍵[⍒⍵] ⍵ সাজানো সাজানো
    • ⍵≡ সঙ্গে সমতা ⍵
  • ∧/প্রতিটি উপাদান কিনা 1।
— Zachary
সূত্র
— অ্যাডম
2

জাপট , 7 বাইট

এইটির জন্য কয়েকটি পৃথক পৃথক পদ্ধতির চেষ্টা করেছি কিন্তু, শেষ পর্যন্ত, টিএসএসের জেএস সমাধানের বন্দরের হিসাবে শেষ পর্যন্ত আমি আসতে পারি।

ইনপুট হিসাবে কলামগুলির একটি অ্যারে নেয়। 0কলামে অন্য কোনও নম্বর না থাকলে খালি ঘরগুলি বা বাদ দেওয়া যেতে পারে ।

P+U¥®n§

এটা পরীক্ষা করো

ব্যাখ্যা

অ্যারের অন্তর্নিহিত ইনপুট U।

P+U

অ্যারেটিকে Uস্ট্রিংয়ে রূপান্তর করে একটি খালি স্ট্রিং দিয়ে প্রস্তুত করুন।

¥

সাম্যতার জন্য পরীক্ষা করুন, যা ডানদিকেও স্ট্রিংয়ে ফেলেছে ts

®

মানচিত্র শেষ U।

n§

বাছাই করুন ( n) দ্বারা <=।

সুস্পষ্টভাবে আউটপুট বুলিয়ান ফলাফল।

— রোমশ
সূত্র
দ্বিতীয়টি এড়িয়ে যাওয়ার দুর্দান্ত আয়োজন U। আপনি nnশেষেও করতে পারেন ;)
— ইটিএইচ প্রোডাকশনগুলি
আমি অবাক হয়ে জানতে পেরেছিলাম যে Uএই ক্ষেত্রে দ্বিতীয় কাজটি বাদ দেওয়া , @ETH প্রোডাকশনস; আমি ভেবেছিলাম এটি কেবল তখনই কাজ করবে যদি ভেরিয়েবলটি কেবলমাত্র বামদিকে থাকে ==। ভবিষ্যতের ব্যবহারের জন্য আমাকে এটি মনে রাখতে হবে।
— শেগি
1

জাভা 8, 69 বাইট

b->{for(int[]c:b)for(int i=0,f=1;i<3;)if(c[i]<c[++i])f=0;return f>0;}

ঠিক আছে, এই লেখার হিসাবে সুইট সমাধানটি মারধর করে, তাই সেখানে! একেবারে সোজা। ইনপুট হল পূর্ণসংখ্যার অ্যারেগুলির একটি অ্যারে, অভ্যন্তরীণ অ্যারেগুলি বোর্ডের কলাম (প্রথমে উচ্চ স্তরের) হয় being কাস্ট Function<int[][], Boolean>।

— জ্যাকব
সূত্র
1

এমওয়াই , 66 62 20 বাইট (নন-কেপটিং)

ω⍉ω⍉A6ǵ'ƒ⇹(E8ǵ'ƒ⇹(Π←

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

কারণ এই প্রতিদ্বন্দ্বী নন যে আমি সম্প্রতি বাস্তবায়িত হয় 8E (≡), যা APL সমতূল্য ≡।

কিভাবে?

  • ω⍉ প্রথম কমান্ড লাইনের যুক্তি স্থানান্তরিত
  • ω⍉ প্রথম কমান্ড লাইনের যুক্তি স্থানান্তরিত
  • A6ǵ'ধাক্কা chr(0x6A)( ⍖কোডপেজে, যা অবতরণ সাজানো)
  • ƒ একটি ফাংশন হিসাবে, বরং একটি স্ট্রিং
  • ⇹ এমন একটি ক্রিয়াকলাপটি চাপুন যা প্রতিটি যুক্তির উপরে একটি পপড ফাংশনকে মানচিত্র করে
  • ( প্রয়োগ করা
  • E8ǵ'ƒ⇹(chr(0x8E)ম্যাচ কমান্ড ( ≡) ছাড়া এটি ছাড়া, একই জিনিস ।
  • Π পণ্য
  • ← কোনও নিউলাইন ছাড়াই আউটপুট

হ্যাঁ, আমার প্রচুর প্রতীক এপিএলের অনুরূপ বা একই রকম। ব্যাখ্যাটি হ'ল আমি যখন 1-চরিত্রের কমান্ড চেয়েছিলাম তখন তারা মনে মনে এলো। (কেন আমি ট্রান্সপোসের জন্য টি ব্যবহার করিনি তা আমি জানি না )

— Zachary
সূত্র
0

গণিত, 27 বাইট

t=Thread;-t[Sort/@-t@#]==#&

ব্যাখ্যা:

  • Threadএকটি অদ্ভুত সাধারণ ট্রান্সপোজ-এর মতো অপারেশন যা ম্যাট্রিক্স দেওয়ার সময় ট্রান্সপোজ নিতে হয় ।
  • t=Thread;বাইটস সংরক্ষণ করতে আমাকে tদুবারের পরিবর্তে দু'বার ব্যবহার করতে দিন Thread।
  • Sort একটি তালিকা বাছাই (ক্রম ক্রম)
  • Sort\@Sortতালিকার প্রতিটি উপাদানকে পৃথক পৃথকভাবে ফাংশন মানচিত্র ; যখন ম্যাট্রিক্সে প্রয়োগ করা হয়, এটি সারিগুলি বাছাই করে।
  • t@##মূল ফাংশনের ইনপুটটিতে ট্রান্সপোজ ফাংশন প্রয়োগ করে ।
  • - সমস্ত এন্ট্রিগুলির নেতিবাচক লাগে যাতে ট্রান্সপোজড ম্যাট্রিক্সের সারিগুলি বাছাই করা (মূল কলামগুলি) তাদের পছন্দসই পদ্ধতিতে সাজায়।
  • বাইরের -t[...]পূর্বাবস্থায় ফিরিয়ে আনে নেতিবাচক এবং TRANSPOSE, তাই সব আমরা সত্যিই করেনি সাজানোর কলাম বৃহত্তম টু ক্ষুদ্রতম ছিল।
  • ==# এই নতুন কলাম-বাছাই করা ম্যাট্রিক্স মূল ইনপুটটির সমান কিনা তা পরীক্ষা করে দেখুন।
  • &#আমরা সংজ্ঞায়িত ইনপুট দিয়ে বেনামে ফাংশন শেষ করে ।

আপনি করতে পারেন অনলাইন এটা চেষ্টা মধ্যে উল্ফর্যাম ক্লাউড স্যান্ডবক্স নিচের মত কোড পেস্ট ক্লিক গিয়ার দ্বারা -> "সেল মূল্যায়ন" বা আঘাত করতে Shift + Enter বা নামপ্যাড লিখুন:

t=Thread;-t[Sort/@-t@#]==#&@{{16,128,64,32},{8,32,0,8},{4,16,8,2},{4,0,0,0}}

বা সমস্ত পরীক্ষার ক্ষেত্রে:

t=Thread;-t[Sort/@-t@#]==#&//Map[#,{{{16,0,64,8},{8,0,32,8},{4,0,32,2},{2,0,0,0}},{{16,128,64,32},{8,128,32,8},{4,16,8,2},{4,0,0,0}},{{16,0,64,8},{8,0,32,16},{32,0,128,2},{2,0,0,0}},{{16,128,64,32},{8,32,0,8},{4,16,8,2},{4,0,0,0}}}]&
— চিহ্ন.
সূত্র
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.