ফিনিশ সিনেমায় আসন

Question

আপনাকে বুলিয়ান ম্যাট্রিক্স হিসাবে সিনেমা থিয়েটারের মানচিত্র দেওয়া হয়েছে: 0 একটি মুক্ত আসন উপস্থাপন করে, 1 - দখল করা occupied প্রতিটি ফিন যারা হাঁটেন তারা নিকটবর্তী অধিগ্রহণ করা স্থান থেকে সবচেয়ে দূরে ( ইউক্লিডিয়ান দূরত্ব ) আসনটি বেছে নেন , বা যদি এরকম বেশ কয়েকটি উপস্থিত থাকে - সারি-প্রধান ক্রমে তাদের মধ্যে প্রথমটি । অর্ডার আসনগুলি দেখানো একটি ম্যাট্রিক আউটপুট অবশেষে দখল করা হবে; অর্থাৎ 0, 2, 3, 4 ইত্যাদি দিয়ে প্রতিস্থাপন করুন

// in
0 0 0 0 1
0 0 0 0 0
0 0 0 0 0
0 0 1 1 0
// out
 2  8  3  9  1
10  5 11  6 12
 4 13 14 15  7
16 17  1  1 18

// in
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0
0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0
0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0
// out
  5  43  17  44  45  46  18  47   8  48  49   6  50  19  51   2
 52  24  53  54   1  55  56  25  57  26  58  59  27  60  28  61
 20  62  63  29  64  65   1  66  30  67  68  21  69   9  70  71
 72  73   1  74  31  75  76  77  78   1  79  80  32  81  82  11
 12  83  84   1  85  86  87  13  88  89  90  14  91  92  33  93
 94  34  95  96  97  15  98  99  35 100  36 101 102   1 103  22
104 105  37 106  38 107  39 108 109  16 110  40 111 112  41 113
  4 114 115   7 116  23 117   3 118 119  42 120   1 121 122  10

// in
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
// out
  2  38 39  26  40   6 41  42  12  43  44   7  45  46  27  47   3
 48  49 15  50  28  51 52  29  53  30  54  55  56  16  57  31  58
 32  59 60  33  61  62 17  63  64  65  18  66  67  68  34  69  35
 70  10 71  72  13  73 74  75   1  76  77  78  11  79  80  14  81
 82  83 36  84  85  86 21  87  88  89  22  90  91  37  92  93  94
 19  95 96  97  23  98 99 100  24 101 102 103  25 104 105 106  20
107 108  4 109 110 111  8 112 113 114   9 115 116 117   5 118 119

আই / ও ফর্ম্যাটটি আপনার ভাষার জন্য প্রতিষ্ঠিত কোড গল্ফিং নিয়মের মধ্যে নমনীয়। আপনি ধরে নিতে পারেন ইনপুটটি সঠিক, কমপক্ষে 3x3 এর আকারের এবং সঠিকভাবে একই বুলিয়ান মানটি নিয়ে গঠিত নয়। একটি ফাংশন বা একটি সম্পূর্ণ প্রোগ্রাম লিখুন। ভাষার প্রতি সংক্ষিপ্ততম সমাধানটি বিজয়ী হিসাবে বিবেচিত হয়; কোন উত্তর গৃহীত হবে না। স্ট্যান্ডার্ড লুফোলগুলি নিষিদ্ধ।

Comments

@ মেগো একজন অসাম্প্রদায়িক ব্যক্তি হিসাবে, আমি নিশ্চিত করতে পারি যে আমি তির্যকভাবে একটি আসন পিছনে এবং পাশের চেয়ে দুটি আসন বা কারও পিছনে দুটি আসন বসব।

— পাভেল

@ মেগো ব্যক্তিগত স্থান ইউক্যালিডিয়ান দূরত্ব দিয়ে গণনা করা হয় :)

— অ্যাঙ্গস

@ পাভেল অসোকিয়াল, অসামাজিক নয়?

— ক্রোম্যাটিক্স

@ ক্রোম্যাটিক্স নোপ আমি চাই সমাজ জ্বলবে। : পি

— পাভেল

@Pavel infernosocial :)

— ngn

Answer 1

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

!t~z:Q"@yX:gG&n:!J*w:+X:&-|w/X<&X>(]!

এটি অনলাইন চেষ্টা করুন! বা সমস্ত পরীক্ষার কেস যাচাই করুন । আপনি সিনেমাটি এএসসিআইআই আর্টে পূর্ণ হয়ে উঠতেও চাইতে পারেন।

ব্যাখ্যা

!t        % Implicit input: M×N matrix of zeros and ones. Transpose and duplicate.
          % The transpose is needed because MATL uses column-major (not row-major)
          % order. It will be undone at the end
~z        % Number of zeros, say Z
:Q        % Range, add 1 element-wise: gives the array [2, 3, ..., Z+1]. These are
          % the new values that will be written into the matrix
"         % For each k in that array
  @       %   Push k. Will be written in a position to be determined
  y       %   Duplicate from below: pushes a copy of the current matrix, that has
          %   values up to k-1 already written in
  X:      %   Linearize into an (R*C)×1 vector, in column-major order
  g       %   Convert to logical: this replaces non-zero values by 1 
  G&n     %   Push input size as two separate numbers: M, N
  :!      %   Range, transpose: gives the column vector [1; 2; ...; N]
  J*      %   Multiply by imaginary unit, 1j, element-wise
  w:      %   Swap, range: gives the row vector [1, 2, ..., M]
  +       %   Add, with broadcast. Gives an N×M complex matrix defining a grid of
          %   coordinates: [1+1j, ..., M+1j; 2+1j, ... 2+1j; ...; N+1j, ..., N+Mj]
  X:      %   Linearize into an (M*N)×1 vector, in column-major order
  &-|     %   (M*N)×(M*N) matrix of absolute differences. This gives all distances
          %   between seats. Rows of this matrix represent currently used seats,
          %   and columns correspond to potential new positions
  w/      %   Swap, divide with broadcast. This divides the rows representing
          %   occupied seats by 1, and those with unocuppied seats by 0. So the
          %   latter rows are set to infinity, which effectively removes them for
          %   the subsequent minimization
  X<      %   Mimimum of each column: this gives the minimum distance to currently
          %   occupied seats for each potential new seat
  &X>     %   Argument maximum: gives the index of the first maximizing value
  (       %   Write value k at that position, using linear indexing
]         % End
!         % Transpose. Implicit display

Answer 2

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

18 বাইট সংরক্ষণ করা হয়েছে @ l4m2 এর জন্য ধন্যবাদ

এটি বেশ অনেকটা map()...

f=(a,n=1)=>a.map(B=(r,y)=>r.map((_,x)=>a.map(b=q=>q.map(v=>b=b<(d=X*X--+Y*Y)|!v?b:d,X=x)&Y--,Y=y)|v|b<=B||(R=r,C=x,B=b)))|B?f(a,R[C]=++n):a

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

মন্তব্য

f = (a, n = 1) =>               // a = input array; n = seat counter
  a.map(B =                     // initialize B to a non-numeric value
    (r, y) =>                   // for each row r at position y in a[]:
    r.map((_, x) =>             //   for each target seat at position x in r[]:
      a.map(b =                 //     initialize b to a non-numeric value
        q =>                    //     for each row q in a[]:
        q.map(v =>              //       for each reference seat v in q[]:
          b = b < (             //         if b is less than d, defined as
            d = X * X-- + Y * Y //           the square of the Euclidean distance
          ) | !v ?              //           or the reference seat is empty
            b                   //             let b unchanged
          :                     //           else:
            d,                  //             update b to d
          X = x                 //         start with X = x
        ) & Y--,                //       end of q.map(); decrement Y
        Y = y                   //       start with Y = y
      ) |                       //     end of inner a.map()
      b <= B ||                 //     unless b is less than or equal to B,
      (R = r, C = x, B = b)     //     update B to b and save this position in (R, C)
    )                           //   end of r.map()
  ) | B ?                       // end of outer a.map(); if B was updated:
    f(a, R[C] = ++n)            //   update the best target seat and do a recursive call
  :                             // else:
    a                           //   stop recursion and return a[]

Comments

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

— l4m2

b=b<(d=X*X--+Y*Y)|!v?b:d

— l4m2

v|b<=B v|অপ্রয়োজনীয় হলে Cuz vতারপরb=0

— l4m2

Answer 3

হাস্কেল , 216 213 185 184 বাইট

import Data.Array
m a=[snd$maximum a|a/=[]]
f k=k//m[(r,((a,b),maximum(elems k)+1::Int))|s<-[assocs k],((a,b),0)<-s,r<-[minimum[(x-a)^2+(y-b)^2|((x,y),i)<-s,i>0]]]
(until=<<((==)=<<))f

অ্যারে হিসাবে ইনপুট নেয়। ইনপুট এবং আউটপুট বিপরীত ক্রমে। লাইকোনিতে ফিক্সড পয়েন্ট ম্যাজিকের ক্রেডিট ।

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

Comments

180 বাইট সঙ্গেuntil((==)=<<f)f

— ovs

Answer 4

পাইথন 2 , 200 187 বাইট

a=input()
z=len(a[0]);P=[divmod(i,z)for i in range(len(a)*z)];i=2
while 0in sum(a,[]):t,y,x=max((min((u-U)**2+(v-V)**2for V,U in P if a[V][U]),-v,-u)for v,u in P);a[-y][-x]=i;i+=1
print a

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

চার্লস 0 টির জন্য অবিযুক্ত চেক অপসারণ করে চার্লস নয় যে চার্লস থেকে একটি টিপ পর্যন্ত বুদ্ধিমান to

Comments

আমার প্রায় একই সমাধান রয়েছে তবে পাইথন 3, একটি ফাংশন এবং 194 বাইট

— চার্লস

আমার পোস্ট করার পরিবর্তে, মূল সঞ্চয়টি হ'ল আমি ,v,uভিতরে জেনারেটরের শেষটি যুক্ত করেছি maxএবং আপনার এটি করার দরকার নেই if a[v][u]<1যেহেতু এটি হবে 0এবং তাই সর্বোচ্চ নয়। সুতরাং আমার লাইনটি মূলত*_,y,x=max((min(...),-v,-u,v,u)for v,u in P)

— চার্লস

আশ্চর্যজনকভাবে অনুরূপ কোড, যদিও। কি দারুন.

— চার্লস

সত্যই, আমি নিশ্চিত না যে *,v,uঅক্ষরগুলি ISN'T সংরক্ষণের তুলনায় --আপনার কাছে যুক্ত করা উচিত। :)

— চার্লস

@ চার্লস নয়: দুর্দান্ত, পুরোপুরি মিস হয়েছে যে if a[v][u]<1রিডানড্যান্ট (যেহেতু শূন্য-কোষগুলির একটি min()থাকবে 0)।

— চ্যাস ব্রাউন

Answer 5

জে , 74 70 60 বাইট

(+(1+>./@,)*i.@$(=]i.>./)*<./@(#|@-/])&,j./&i./@$)^:(1#.0=,)

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

Answer 6

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

ধন্যবাদ গরু একটি বাইট সংরক্ষণ করার জন্য কোয়েড, এবং অন্য সংরক্ষণ করার জন্য এনএনজি

1⌈2-≢∘⍸-⍴⍴∘⍋⍸∘~{⍵∪⍺[⊃⍒⌊/+.×⍨¨⍺∘.-⍵]}⍣≡⍸

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

Answer 7

জেলি , 43 বাইট

,¬J;Ѐ"T€Ẏ©Ʋ€ạ²Sɗþ/Ṃ€MḢị®⁸⁸ẎṀ‘¤ṛ¦€Ḣ}¦µẎċ0Ɗ¡

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

Answer 8

এপিএল (ডায়ালগ ইউনিকোড) , 44 বাইট

{×⍵:⍵⋄≢∪∊⍺}@1@{q=⌈/,q←⌊⌿+.×⍨¨(⍸×⍵)∘.-⍳⍴⍵}⍨⍣≡

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

44 বাইটে বিকল্প সমাধান

{≢∪∊⍺}@1@{q=⌈/,q←⌊⌿+.×⍨¨(⍸×⍵)∘.-⍳⍴⍵}⍨⍣(~0∊⊣)

Answer 9

ওল্ফ্রাম ভাষা (গণিত) , 121 বাইট

Nest[p=Position;ReplacePart[#,#&@@Pick[a=#~p~0,m=Min/@DistanceMatrix[a,N@p[#,x_/;x>0]],Max@m]->Max@#+1]&,#,Total[1-#,2]]&

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

Answer 10

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

#(let[R(range(count %))C(range(count(% 0)))](loop[M % s 2](if-let[c(ffirst(sort-by last(for[x R y C :when(=((M x)y)0)][[x y](-(nth(sort(for[i R j C :when(>((M i)j)0)](+(*(- i x)(- i x))(*(- j y)(- j y)))))0))])))](recur(assoc-in M c s)(inc s))M)))

ইনপুট একটি ভিসি অফ ভ্যাকস Mযা একটি loopদ্বারা সংশোধিত হয় assoc-in। যখন কোনও নিখরচায় জায়গা পাওয়া যায় না ( if-let) তখন ফলাফলটি ফিরে আসে।

Answer 11

জেলি , 35 33 30 29 বাইট

ZJæịþJFạþx¥F«/MḢṬ×FṀ‘Ɗo@FṁµÐL

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

বাইট সংরক্ষণ করে জে থেকে ভিত্তিক একটি নতুন ডায়াড (জটিল কম্বাইন) ×ı+দিয়ে প্রতিস্থাপন করেছে ।æịj.

টিআইওর জন্য এখানে আরও কার্যকর সংস্করণ। এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

ZJæịþJFạþx¥F«/MḢṬ×FṀ‘Ɗo@FṁµÐL  Input: matrix M
Z                              Transpose
 J                             Enumerate indices - Get [1 .. # columns]
     J                         Enumerate indices - Get [1 .. # rows]
  æịþ                          Outer product using complex combine
                                 (multiply RHS by 1j and add to LHS)
      F                        Flatten
           F                   Flatten input
          ¥                    Dyadic chain
         x                       Times - Repeat each of LHS by each of RHS
       ạþ                        Outer product using absolute difference
            «/                 Reduce by minimum
              M                Indices of maximal values
               Ḣ               Head
                Ṭ              Untruth - Return a Boolean array with 1's at the indices
                 ×             Times
                     Ɗ         Monadic chain
                  F              Flatten input
                   Ṁ             Maximum
                    ‘            Increment
                      o@       Logical OR
                        F      Flatten input
                         ṁ     Mold - Reshape to match the input
                          µÐL  Repeat until result converges

Answer 12

কে (এনএনজি / কে) , 81 75 73 72 70 বাইট

{(~&/,/){a[*>A*&/+/''b*b:i[&~A:~a]-/:\:i:+!n:(#x;#*x)]:#?a:,/x;n#a}/x}

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