জাভাস্ক্রিপ্ট (ES6), 595 628 680
কিছু পরিচ্ছন্নতা সম্পাদনা করুন এবং মার্জ করুন:
- ফাংশন পি
একই ফাংশন আর এর মধ্যে মিশে গেছে
- একই ক্যালক এক্স এবং জেড। ম্যাপ - সমাধান পাওয়া গেলে এক্সটার থেকে 0 সেট করে বাইরের লুপটি প্রস্থান করুন
- মার্জড ফিসিটন এবং ডাব্লু এর কল
এডিট 2 আরও গল্ফিং, এলোমেলো ফিলগুলি সংক্ষিপ্ত, বাইরের লুপটি সংশোধিত ... আরও পঠনযোগ্য কিছুটির জন্য ইতিহাস দেখুন
গৃহীত উত্তরের মতো নয়, এটি বেশিরভাগ ইনপুটগুলির জন্য কাজ করা উচিত। শুধু একক অক্ষরের শব্দ এড়িয়ে চলুন। যদি কোনও আউটপুট পাওয়া যায়, তবে এটি সর্বোত্তম এবং সমস্ত 3 টি দিক ব্যবহার করে।
শব্দগুলি পুনরাবৃত্তি করা এড়িয়ে যাওয়ার সীমাবদ্ধতা খুব শক্ত। গ্রিডে শব্দ যুক্ত করে প্রতিটি পদক্ষেপে আমাকে পুনরাবৃত্তি করতে হবে এবং প্রতিটি এলোমেলো চরিত্রের অক্ষর দেখতে হবে।
প্রধান উপশক্তি:
পি (ডাব্লু) সত্য যদি প্যালিনড্রোম শব্দ হয়। বারবার শব্দের জন্য পরীক্ষা করার সময় একটি প্যালিনড্রোম শব্দটি দু'বার পাওয়া যাবে।
আর (গুলি) গ্রিডে পুনরাবৃত্তি শব্দ পরীক্ষা করুন check
প্রশ্ন (গুলি) এলোমেলো অক্ষর দিয়ে গ্রিড পূরণ করুন - শব্দটি পুনরাবৃত্তি করার ক্ষেত্রে এটি পুনরাবৃত্ত এবং ব্যাকট্র্যাক - এবং ব্যর্থ হতে পারে।
ডাব্লু () পুনরাবৃত্ত, যদি সম্ভব হয় তবে প্রদত্ত আকারের গ্রিডটি পূরণ করার চেষ্টা করুন।
মূল ফাংশন ডাব্লু () ব্যবহার করে আউটপুট গ্রিডটি সন্ধান করে, দীর্ঘতম শব্দের আকার থেকে সমস্ত শব্দের দৈর্ঘ্যের যোগফল পর্যন্ত চেষ্টা করে।
F=l=>{
for(z=Math.max(...l.map(w=>(w=w.length,x+=w,w),x=0));
++z<=x;
(W=(k,s,m,w=l[k])=>w?s.some((a,p)=>!!a&&
D.some((d,j,_,r=[...s],q=p-d)=>
[...w].every(c=>r[q+=d]==c?c:r[q]==1?r[q]=c:0)
&&R(r)&&W(k+1,r,m|1<<(j/2))
)
)
:m>12&&Q(s)&&(console.log(''+s),z=x)
)(0,[...Array(z*z-z)+99].map((c,i)=>i%z?1:'\n'))
)
D=[~z,-~z,1-z,z-1,z,-z,1,-1]
,R=u=>!l.some(w=>u.map((a,p)=>a==w[0]&&D.map(d=>n+=[...w].every(c=>u[q+=d]==c,q=p-d)),
n=~([...w]+''==[...w].reverse()))&&n>0)
,Q=(u,p=u.indexOf(1),r=[...'ABCDEFGHIJHLMNOPQRSTUVWXYZ'])=>
~p?r.some((v,c)=>(r[u[p]=r[j=0|c+Math.random()*(26-c)],j]=v,R(u)&&Q(u)))||(u[p]=1):1
//,Q=u=>u.map((c,i,u)=>u[i]=c!=1?c:' ') // uncomment to avoid random fill
}
Ungolfed এবং ব্যাখ্যা (অসম্পূর্ণ, দুঃখিত বলছি এটা কাজ অনেক)
F=l=>
{
var x, z, s, q, D, R, Q, W;
// length of longest word in z
z = Math.max( ... l.map(w => w.length))
// sum of all words length in x
x = 0;
l.forEach(w => x += w.length);
for(; ++z <= x; ) // test square size from z to x
{
// grid in s[], each row of len z + 1 newline as separator, plus leading and trailing newline
// given z==offset between rows, total length of s is z*(z-1)+1
// gridsize: 2, z:3, s.length: 7
// gridsize: 3, z:4, s.length: 13
// ...
// All empty, nonseparator cells, filled with 1, so
// - valid cells have a truthy value (1 or string)
// - invalid cells have falsy value ('\n' or undefined)
s = Array(z*z-z+1).fill(1)
s = s.map((v,i) => i % z != 0 ? 1 : '\n');
// offset for 8 directions
D = [z+1, -z-1, 1-z, z-1, z, -z, 1, -1]; // 4 diags, then 2 vertical, then 2 horizontal
// Function to check repeating words
R = u => // return true if no repetition
! l.some( w => // for each word (exit early when true)
{
n = -1 -([...w]+''==[...w].reverse()); // counter starts at -1 or -2 if palindrome word
u.forEach( (a, p) => // for each cell if grid
{
if (a == [0]) // do check if cell == first letter of word, else next word
D.forEach( d => // check all directions
n += // word counter
[...w].every( c => // for each char in word, exit early if not equal
u[q += d] == c, // if word char == cell, continue to next cell using current offset
q = p-d // starting position for cell
)
) // end for each direction
} ) // end for each cell
return n > 0 // if n>0 the word was found more than once
} ) // end for each word
// Recursive function to fill empty space with random chars
// each call add a single char
Q =
( u,
p = u.indexOf(1), // position of first remaining empty cell
r = [...'ABCDEFGHIJHLMNOPQRSTUVWXYZ'] // char array to be random shuffled
) => {
if (~p) // proceed if p >= 0
return r.some((v,c)=>(r[u[p]=r[j=0|c+Math.random()*(26-c)],j]=v,R(u)&&Q(u)))||(u[p]=1)
else
return 1; // when p < 0, no more empty cells, return 1 as true
}
// Main working function, recursive fill of grid
W =
( k, // current word position in list
s, // grid
m, // bitmask with all directions used so far (8 H, 4V, 2 or 1 diag)
w = l[k] // get current word
) => {
var res = false
if (w) { // if current word exists
res = s.some((a,p)=>!!a&&
D.some((d,j,_,r=[...s],q=p-d)=>
[...w].every(c=>r[q+=d]==c?c:r[q]==1?r[q]=c:0)
&&R(r)&&W(k+1,r,m|1<<(j/2))
)
)
}
else
{ // word list completed, check additional constraints
if (m > 12 // m == 13, 14 or 15, means all directions used
&& Q(s) ) // try to fill with random, proceed if ok
{ // solution found !!
console.log(''+s) // output grid
z = x // z = x to stop outer loop
res = x//return value non zero to stop recursion
}
}
return res
};
W(0,s)
}
}
টেস্ট ফায়ারফক্স / Firebug কনসোলে
এফ (['ট্রেন', 'কিউব', 'বক্স', 'বাইসাইকেল'])
,T,C,B,O,X,B,H,
,H,R,U,H,L,I,H,
,Y,A,A,B,E,C,B,
,D,H,S,I,E,Y,I,
,H,E,R,L,N,C,T,
,G,S,T,Y,F,L,U,
,H,U,Y,F,O,E,H,
ভরা না
,T,C,B,O,X,B, ,
, ,R,U, , ,I, ,
, , ,A,B, ,C, ,
, , , ,I,E,Y, ,
, , , , ,N,C, ,
, , , , , ,L, ,
, , , , , ,E, ,
এফ (['ট্রেন', 'আর্টস', 'র্যাট', 'কিউব', 'বক্স', 'বাইসাইকেল', 'ঝড়', 'ব্রেন', 'ডিপথ', 'মাউথ', 'স্ল্যাব'])
,T,A,R,C,S,T,H,
,S,R,R,L,U,D,T,
,T,B,A,T,N,B,P,
,O,B,O,I,S,A,E,
,R,B,A,X,N,H,D,
,M,R,M,O,U,T,H,
,B,I,C,Y,C,L,E,
এফ ([ 'হবে AA', 'এবি', 'এসি', 'খ্রি', 'ই', 'এফ', 'এজি'])
,A,U,B,C,
,T,A,E,Z,
,C,D,O,F,
,Q,C,G,A,
এফ ([ 'হবে AA', 'এবি', 'এসি', 'খ্রি', 'ই', 'এফ'])
আউটপুট পূরণ করা হয়নি - @ নাথান: এখন আপনি পুনরাবৃত্তি ছাড়া অন্য একটি এক্স যোগ করতে পারবেন না । আপনার আরও বড় গ্রিড লাগবে।
,A, ,C,
, ,A,F,
,D,E,B,
ACআপনার উদাহরণ আরেকটি হবে মধ্যেCATযদি এটাT।