19

Враховуючи масив додатних цілих чисел, виведіть масив усіх елементів, які більше або дорівнюють сусіднім. Більшість елементів матимуть два суміжні елементи; перший і останній елемент - це окремі випадки, оскільки вони мають лише один сусідній елемент.

Можна припустити, що масив містить щонайменше два елементи.

Тестові приклади:

Input               | Output
[4,2,6,12,4,5,4,3]  | [4,12,5]
[1,2]               | [2]
[1,2,3,2,1]         | [3]
[3,2,1,2,3]         | [3,3]
[4,4]               | [4,4]
[2,4,4,4,1]         | [4,4,4]
[2,3,3,4]           | [3,4]
[4,3,3,4]           | [4,4]

Це код-гольф , найкоротший виграш коду!

code-golf array-manipulation

— Павло
джерело

1

@PeterTaylor Я думаю, що мається на увазі "Перший або останній елемент буде включений у висновок, ..."

— xnor

@PeterTaylor xnor є правильним.

— Павло

Пов’язане

— Пітер Тейлор

Також пов'язано: Пошук локальних крайнощів

— Wrzlprmft

Чи можу я запропонувати [4,3,3,4]в якості тесту. Моє рішення не на жаль справлялося з цим.

— JAD

5

Желе , 13 12 11 байт

0;;0»3\f"⁸Ẏ

Монадічне посилання, що містить список натуральних чисел і повертає відфільтрований список, що містить лише ті, які більші або рівні для всіх їх сусідів.

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

Попередній 12 байт :

0;INżI>0ḄNMị

Попередній 13 байт :

0;;0ṡ3M€ċ€2Tị

Як?

0;;0»3\f"⁸Ẏ - Link: list of positive integers, A
0;          - a zero concatenated with A
  ;0        - concatenate a zero
     3\     - 3-wise reduce with:
    »       -   maximum (yields a list of the maximums in each overlapping window of 3)
         ⁸  - chain's left argument, A
        "   - zip with:
       f    -   filter keep (i.e. keep the maximal if it is [in] the [length 1 list 
            -                     of the] respective original element)
          Ẏ - flatten by one level

— Джонатан Аллан
джерело

Ну, я думаю, може бути спосіб використовувати 3-мудре скорочення, але я цього не розробив.

— Джонатан Аллан

Я мав рацію - 3-кратне зменшення з максимальним діадом, »- як приблизно 10 хоча ..?

— Джонатан Аллан

8

Пітон , 54 байти

f=lambda l,*p:l and l[:p<=l[:1]>=l[1:2]]+f(l[1:],l[0])

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

I / O - з кортежами, а не списками.

Пітон , 57 байт

f=lambda l,p=0:l and l[:[p]<=l[:1]>=l[1:2]]+f(l[1:],l[0])

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

Alt 57:

f=lambda l,p=0:l and l[l<[max(p,*l[:2])]:1]+f(l[1:],l[0])

— xnor
джерело

7

Математика 22 байти

Pick[#,MaxDetect@#,1]&

— Келлі Лоудер
джерело

1

Між іншим, це також працювало б на масивах більш високих розмірів.

— Келлі Лоудер

6

Haskell, 50 49 42 байт

f l=[j|i:j:k:_<-scanr(:)[0]$0:l,k<=j,i<=j]

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

scanr(:)[0]складає список хвостів (0:l), кожен з остаточним 0, наприклад , для l = [4,3,3,4]: [[0,4,3,3,4,0],[4,3,3,4,0],[3,3,4,0],[3,4,0],[4,0],[0]]що шаблон відповідає Agains i:j:k:_витягти всі списки по крайней мере , 3 -х елементів , які називаються i, jі k. Зберігайте, jякщо його> = iі j.

Редагувати: Ørjan Johansen врятував 7 байт. Спасибі!

— німі
джерело

2

i:j:k:_<-scanr(:)[0]$0:lкоротше. (Трохи коригуючи "стандартний" tails=scanr(:)[]трюк.)

— Ørjan Johansen

@ ØrjanJohansen: о, я раніше використовував цей трюк, але тут якось пропустив його. Дуже дякую!

— німі

4

Діялог APL, 31 30 28 22 21 байт

{⍵/⍨(⌈/=2⌷⊢)¨3,/∊0⍵0}

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

Пояснення (я не вмію пояснювати речі):

0⍵0       - [0,input,0]   (it looks like a face!)
∊         - flatten
3,/       - split into overlapping sections of length 3.
(⌈/=2⌷⊢)¨ - Whether the middle element is the maximum (applied to every section)
⍵/⍨       - index

— Zacharý
джерело

4

Haskell , 40 байт

p%(h:t)=[h|h>=p,[h+1]>t]++h%t
_%e=e
(0%)

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

— xnor
джерело

3

JavaScript (ES6), 40 байт

a=>a.filter((e,i)=>!(e<a[i-1]|e<a[i+1]))

— Ніл
джерело

3

Python 3 , 84 75 * 71 байт

lambda l,k=[0]:[j for x,j in enumerate(l)if(k+l+k)[x+2]<=j>=(k+l+k)[x]]

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

* @ LeakyNun врятував 9 байт за допомогою хитрого хитрості оператора.

— Містер Xcoder
джерело

lambda l,k=[0]:[l[i]for i in range(len(l))if(k+l+k)[i+2]<=l[i]>=(k+l+k)[i]]

— Leaky Nun

2

Желе , 15 байт

2ị⁼Ṁ
0;;0ṡ3Ç€Tị

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

— HyperNeutrino
джерело

2

05AB1E , 15 14 13 байт

ü‹0¸«sĆÁü›+_Ï

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

Пояснення

ü‹             # pairwise comparison for less than
  0¸«          # append 0
     s         # swap input to top of stack
      Ć        # enclose, append the head of the list
       Á       # rotate right
        ü›     # pairwise comparison for greater than
          +    # add the two boolean lists
           _   # logical negate
            Ï  # keep only elements of input that are true in the resulting list

Попереднє рішення 15 байт

¬s¤)˜Œ3ùεZQ1è}Ï

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

Пояснення

¬                # get head of input
 s¤              # get tail of input
   )˜            # wrap stack in flattened list
                 # produces the input list with the first and last element duplicated
     Œ3ù         # push sublists of length 3
        ε        # apply transformation on each triple
         ZQ      # ... check each element for equality to the max
          1è     # ... get the middle element
            }    # end transform
             Ï   # keep only elements of input that are true in the resulting list

— Емінья
джерело

2

R, 44 байти

pryr::f(x[(x>=c(0,x)&x>=x[-1])[1:sum(x|1)]])

яка оцінює функцію:

function (x) 
x[(x >= c(0, x) & x >= x[-1])[1:sum(x | 1)]]

У порівнянні xз c(0,x)таким, так що xзсунуте одне положення праворуч. Також порівнюється xз x[-1], тому одна позиція зміщена вліво. Це обидва, TRUEякщо там максимум. &взяти І з цих булів. Через природу обгортки векторів R, коли вони не однакової довжини, ми повинні усікати результат на довжину x, яка виявляється шляхом взяттяsum(x|1) . Потім ми підключаємо булевий вектор, беручи лише справжні індекси xта повертаючи це.

Зауважте, оскільки ці логічні операції виконуються з векторами неоднакової довжини, R поскаржиться. Багато. Але правильний вихід буде на тлі попереджень:

> pryr::f(x[(x>=c(0,x)&x>=x[-1])[1:sum(x|1)]])(c(4,2,6,12,4,5,4,3))
[1]  4 12  5
Warning messages:
1: In x >= c(0, x) :
  longer object length is not a multiple of shorter object length
2: In x >= x[-1] :
  longer object length is not a multiple of shorter object length
3: In x >= c(0, x) & x >= x[-1] :
  longer object length is not a multiple of shorter object length

— JAD
джерело

2

R , 42 байти

function(x)x[c(d<-diff(x),0)<=0&c(0,d)>=0]

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

На 2 байти коротше рішення JAD . diffобчислює послідовні відмінності; то зберігайте лише записи, більші за обидва сусіди.

— Робін Райдер
джерело

1

Pyth , 20 байт

-.b*YqYeSN.:++0Q03Q0

Щоб бути в гольф ...

Тестовий набір.

— Лина монахиня
джерело

1

R , 68 байт

function(a)a[a==sapply(1:length(a),function(i)max(c(0,a,0)[i+0:2]))]

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

— Лина монахиня
джерело

pryr::f(expression)це коротший спосіб оголошення функції, ніж function(a)expression.

— JAD

Також sum(a|1)є ярликом для length(a).

— JAD

Дивіться моє рішення щодо коротшого підходу.

— JAD

1

PHP , 67 байт

for(;$g=$argv[+$i];$l=$g)$g<$l|$g<$argv[++$i]?:$r[]=$g;print_r($r);

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

— Йорг Гюльсерманн
джерело

1

Сітківка , 51 байт

\d+
$*
^

M!`(?<=(^|1+) )(\1\d*)\b(?! 1\2)
^¶

%`1

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

— mbomb007
джерело

1

q, 39 байт

{x where x = -1 _ next 3 mmax x,last x}

— скейв
джерело

Я ніколи раніше не чув цієї мови. Ви знаєте, де я можу спробувати або завантажити його?

— Павло

Звичайно, kx.com , docs: code.kx.com

— skeevey

1

Стакс , 10 байт

úâH◄(☼bM•Å

Запустіть і налагоджуйте його

Він видає вихід у вигляді розділених на новий рядок значень на стандартному виході.

Розпакований, неозорений та коментований, це виглядає приблизно так.

f       filter each value in input using the rest of the program; implicitly printing kept values
  x0|S  input pre- and post-pended with zero
  3B    split into batches of 3
  i@    get the i-th batch, where i is the iteration index
  |M=   is the current value equal to the max from the batch?

Виконати цей

Оновлено: щойно знайшли 9-байтове рішення. Буде оновлено пояснення пізніше:

Стакс , 9 байт

▀▓ûa¥╓╧↨⌐

Запустіть і налагоджуйте його

— рекурсивний
джерело

1

Perl 5 `-a` , 37 байт

map{$_>=$F[++$i]&$_>=$p&&say;$p=$_}@F

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

— Xcali
джерело

Витяг місцевих максимумів

Желе , 13 12 11 байт

Як?

Пітон , 54 байти

Математика 22 байти

Haskell, 50 49 42 байт

Діялог APL, 31 30 28 22 21 байт

Haskell , 40 байт

JavaScript (ES6), 40 байт

Python 3 , 84 75 * 71 байт

Желе , 15 байт

05AB1E , 15 14 13 байт

R, 44 байти

R , 42 байти

Pyth , 20 байт

R , 68 байт

PHP , 67 байт

Сітківка , 51 байт

q, 39 байт

Стакс , 10 байт

Стакс , 9 байт

Perl 5 -a , 37 байт

Perl 5 `-a` , 37 байт