Вступ

З огляду на таку візуалізацію ігрового поля:

(0,0)
+----------------------+(map_width, 0)
|           A          |
|-----+-----------+----|
|  D  |     W     | B  |
|-----+-----------+----|
|           C          |
+----------------------+(map_width, map_height)
(0, map_height)

Вся карта, на якій грається гра, - це прямокутник з кутовими координатами (0,0) та (ширина карти, висота карти). Окуляри, придатні для нересту ворогів, - це союз

Змагання

Напишіть код, який повертає випадкову точку (x, y), яка гарантовано знаходиться всередині S. Ваш код не може ввести додаткового зміщення, тобто імовірність кожної координати розподілена рівномірно враховуючи припущення, що ваш вибір генерує випадковість (наприклад, функція | бібліотека | dev / urandom) є неупередженою.

Найкоротші рішення в байтах виграють!

Вхідні дані

Вам буде дано загалом 6 позитивних цілих змінних вхідних даних у порядку: map_width, map_height, W_top_left_x, W_top_left_y, W_width, W_height . Можна припустити, що (обчислена) площа поверхні всіх регіонів (A, B, C, D, W) кожна> 10, тому немає порожніх просторів / областей.

Приклад введення: 1000, 1000, 100, 100, 600, 400

Вхід повинен містити описані вище 6 значень, але його можна передавати як меншу кількість аргументів і в будь-якому порядку. Наприклад, (map_width, map_height)дозволено передавати як кортеж пітона. Звичайно, те, що не дозволено, розраховуються такими параметрами, як нижня права точка W.

Вихідні дані

2 випадково генеровані цілі числа (x, y) де

АБО

тобто хоча б одне з вищезазначених логічних виразів має бути істинним.

Приклади

Input                                    Output(valid random samples)

1000 1000 100 100 600 400                10 10
1000 1000 100 100 600 400                800 550
1000 1000 100 100 600 400                800 10
1000 1000 100 100 600 400                10 550

Для отримання детальної інформації та обмежень щодо введення / виводу, будь ласка, зверніться до правил вводу / виводу за замовчуванням

Пітон 2 , 114 106 102 101 байт

lambda w,h,X,Y,W,H:choice([(i%w,i/w)for i in range(w*h)if(W>i%w-X>-1<i/w-Y<H)<1])
from random import*

Спробуйте в Інтернеті!

R , 89 73 байт

function(w,h,K,D,`*`=sample){while(all((o<-c(0:w*1,0:h*1))<=K+D&o>K))0
o}

Спробуйте в Інтернеті!

Вводиться як " width,height,c(X,Y),c(W,H).

$[0,w]\times[0,h]$

05AB1E , 23 21 20 18 17 байт

L`â<ʒ²³+‹y²@«P≠}Ω

Введення у форматі [map_width, map_height], [W_top_left_x, W_top_left_y], [W_width, W_height].

Завдяки @Grimy за -1 байт, а також за те, що я зрозумів, що я ввів помилку після останнього редагування.

Спробуйте в Інтернеті , виведіть 10 можливих виходів одночасно або перевірте всі можливі координати . (Незначна примітка: я зменшив приклад введення на 10 разів, тому що фільтр і випадковий вибір вбудовані є досить повільними для великих списків.)

Пояснення:

Вхідні map_width, map_height, [W_top_left_x, W_top_left_y], [W_width, W_height]дані називаються [Wm, Hm], [x, y], [w, h]нижче:

L          # Convert the values of the first (implicit) input to an inner list in
           # the range [1, n]: [[1,2,3,...,Wm],[1,2,3,....,Hm]]
 `         # Push both inner lists separated to the stack
  â        # Get the cartesian product of both lists, creating each possible pair
   <       # Decrease each pair by 1 to make it 0-based
           # (We now have: [[0,0],[0,1],[0,2],...,[Wm,Hm-2],[Wm,Hm-1],[Wm,Hm]])
    ʒ      # Filter this list of coordinates [Xr, Yr] by:
     ²³+   #  Add the next two inputs together: [x+w, y+h]
        ‹  #  Check for both that they're lower than the coordinate: [Xr<x+w, Yr<y+h]
     y     #  Push the coordinate again: [Xr, Yr]
      ²    #  Push the second input again: [x, y]
       @   #  Check for both that the coordinate is larger than or equal to this given 
           #  input: [Xr>=x, Yr>=y] (the w,h in the input are ignored)
     «     #  Merge it with the checks we did earlier: [Xr<x+w, Yr<y+h, Xr>=x, Yr>=y]
      P≠   #  And check if any of the four is falsey (by taking the product and !=1,
           #  or alternatively `ß_`: minimum == 0)
    }Ω     # After the filter: pick a random coordinate
           # (which is output implicitly as result)

C # (Visual C # Interactive Compiler) , 110 байт

(a,b,c,d,e,f)=>{int g=c,h=d;for(var z=new Random();g>=c&g<e+c|h>=d&h<f+d;h=z.Next(b))g=z.Next(a);return(g,h);}

Спробуйте в Інтернеті!

PowerShell , 85 73 байт

^{-12 байт завдяки мазі}

param($a,$b,$x,$y,$w,$h)$a,$b|%{0..--$x+($x+$w+2)..$_|random
$x,$w=$y,$h}

Спробуйте в Інтернеті!

Хороший простий відповідь, який обмотує масив, виготовлений з діапазону значень для кожного вимірника, а потім вибирає один випадковим чином для xта y. Керує повторно більшу частину коду на першій обробці x, а потім перезаписати $xз $yі запустити його знову.

Джулія , 76 71 67 байт

f(w,h,a,b,c,d)=rand(setdiff((0:w-1)'.=>0:h-1,(a:a+c-1)'.=>b:b+d-1))

Спробуйте в Інтернеті!

Желе , 11 байт

p/’$€+2¦ḟ/X

Спробуйте в Інтернеті!

Дядічне посилання, яке бере два аргументи, [map_width, map_height], [W_width, W_height]іW_left, W_top повертає випадково обрану точку відповідають вимог.

Пояснення

   $€       | For each of member of the left argument, do the following as a monad:
p/          | - Reduce using Cartesian product (will generate [1,1],[1,2],... up to the width and height of each of the rectangles)
  ’         | - Decrease by 1 (because we want zero-indexing)
     +2¦    | Add the right argument to the second element of the resulting list
        ḟ/  | Reduce by filtering members of the second list from the first
          X | Select a random element

Python 2 , 100 байт

Введення має бути у формі ((map_width, W_top_left_x, W_width),(map_height, W_top_left_y, W_height))

Вихід подається у вигляді: [[x],[y]]

lambda C:[c(s(r(i[0]))-s(r(i[1],i[1]+i[2])),1)for i in C]
from random import*;c=sample;r=range;s=set

Спробуйте в Інтернеті!

Випадкові виходи, отримані на прикладі входу:

[[72], [940]]
[[45], [591]]
[[59], [795]]
[[860], [856]]
[[830], [770]]
[[829], [790]]
[[995], [922]]
[[23], [943]]
[[761], [874]]
[[816], [923]]

Java (OpenJDK 8) , 100 байт

W->H->r->{int x=0,y=0;for(;r.contains(x+=W*Math.random(),y+=H*Math.random());x=y=0);return x+","+y;}

Спробуйте в Інтернеті!

Використовує java.awt.Rectangleв якості власника деяких параметрів. Природно, вони використовують intполя, а не floatабо double.

Мова Вольфрама (Mathematica) , 84 68 60 байт

RandomChoice[g=Join@@List~Array~##&;#~g~0~Complement~g@##2]&

Спробуйте в Інтернеті!

Візьміть вхід як {map_width, map_height}, {W_width, W_height}, {W_top_left_x, W_top_left_y}.

Вугілля , 55 43 байт

ＮθＮηＦＥ²Ｎ⊞υ⟦ιＮ⟧Ｉ‽ΦＥ×θη⟦﹪ιθ÷ιθ⟧⊙υ∨‹§ιμ§λ⁰¬‹§ιμΣλ

Спробуйте в Інтернеті! Посилання на багатослівну версію коду. Пояснення:

ＮθＮη

Введіть розмір карти. (Якби вони були останніми, я міг би ввести рядок висоти для 1-байтового збереження.)

ＦＥ²Ｎ⊞υ⟦ιＮ⟧

Введіть внутрішній прямокутник. (Якщо я міг би ввести порядок, left, width, top, heightтоді я міг би використовувати Ｆ²⊞υＥ²Ｎдля 3-байтного збереження.)

Ｅ×θη⟦﹪ιθ÷ιθ⟧

Створіть список усіх координат у цьому полі.

Φ...⊙υ∨‹§ιμ§λ⁰¬‹§ιμΣλ

Відфільтруйте записи, де обидві координати лежать всередині прямокутника.

Ｉ‽...

Роздрукуйте випадковий елемент із залишених.

Perl 5 -ap , 84 байти

sub c{($c=0|rand((pop)+($l=pop)-"@_"))<$l?$c:$c+"@_"-$l}say c@F[4,2,0];$_=c@F[5,3,1]

Спробуйте в Інтернеті!

Scala , 172 байти

Випадковість? Готча.

(a:Int,b:Int,c:Int,d:Int,e:Int,f:Int)=>{var r=new scala.util.Random
var z=(0,0)
do{z=(r.nextInt(a),r.nextInt(b))}while((c to e+c contains z._1)|(d to e+d contains z._2))
z}

Весела реалізація, про яку я міг придумати.
Як це працює : Створіть на карті випадкову пару. Якщо він знаходиться у внутрішньому прямокутнику, спробуйте ще раз.
Спробуйте в Інтернеті!

J , ^{54 47 45} 39 байт

(0?@{[)^:((-1&{)~(<*/@,0<:[)2{[)^:_{~&1

Спробуйте в Інтернеті!

Прийміть дані як сітку 3 x 2, наприклад:

grid_height  grid_width
inner_top    inner_left
inner_height inner_width

• Виберіть випадкову точку у всій сітці: 0?@{[
• Зсуньте його вліво та вниз ліворуч у верхній лівій точці внутрішнього прямокутника: (-1&{)~
• Поверніться до кроку 1, якщо вибране місце знаходиться в (<*/@,0<:[)прямокутнику, що зміщується аналогічним чином 2{[. В іншому випадку поверніть початкову, не зміщену випадкову точку.
• Помістіть весь процес з точки, яку ми знаємо, недійсною, а саме лівою верхньою точкою внутрішнього прямокутника, визначеною елементами 2 і 3 вхідного списку: {~&1

Ще один підхід, 45 байт

{.#:i.@{.(?@#{])@-.&,([:<@;&i./{:){1&{|.i.@{.

Спробуйте в Інтернеті!

Цей концептуально простіший і не турбується циклічно. Замість цього ми побудуємо матрицю всіх чисел 0 до (wxh), змістимо її на внутрішню початкову точку, захопимо лише точки в (0, 0) до (внутрішній w, intern h) підрешітку, вилучимо їх із загальної сітку після вирівнювання обох, виберіть одне випадково з решти і перетворіть ціле число назад у точку, використовуючи divmod<.@% , |~