Codegolf - Я Ничтожный Массив?

Ан незначительный массив представляет собой массив положительных целых чисел, в котором абсолютные различия между последовательными элементами меньше или равны 1.

Например, следующий массив не имеет значения:

Input -> Output

[1, 2, 3, 4, 3, 4, 5, 5, 5, 4] -> true
[1, 2, 3, 4, 5, 6, 7, 8, 9, 8] -> true
[3, 3, 3, 3, 3, 3, 3]          -> true
[3, 4, 4, 4, 3, 3, 3, 4, 4, 4] -> true
[1, 2, 3, 4]                   -> true 
[5, 4, 3, 2]                   -> true 
[1, 3, 5, 7, 9, 7, 5, 3, 1]    -> false
[1, 1, 1, 2, 3, 4, 5, 6, 19]   -> false
[3, 4, 5, 6, 7, 8, 7, 5]       -> false
[1, 2, 4, 10, 18, 10, 100]     -> false
[10, 20, 30, 30, 30]           -> false

Потому что соответствующие (абсолютные) различия таковы:

 
 false 
 

которые все меньше или равны 1.

Ваша задача — определить, является ли данный массив целых чисел несущественным.

• Вы можете предположить, что массив всегда содержит как минимум два элемента.
• Стандартные правила ввода и вывода применять. Вы можете принимать входные данные (и выходные данные) в любом разумном формате.
• Лазейки по умолчанию запрещены.
• Истинные/ложные значения должны быть четкими и последовательными.
• Это , поэтому побеждает самый короткий ответ в байтах.

Тестовые случаи

Я использовал значения [1, 1, 1, 1, 1, 1, 0, 0, 1] and [1, 2, 3, 4, 3, 4, 5, 5, 5, 4] .

#код-гольф #код-гольф #число #массив #задача-решения

Желе, 3 байта

i 1 3 5 7 9 7 5 3 1  
0

Попробуйте онлайн!

Как?

Просто идеальный вызов для Джелли.

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
IỊẠ   Full program.

I     Increments; Get the difference between consecutive elements.

Ị    Insignificant; return abs(number) ≤ 1.

Ạ   All; returns 1 if all the elements are truthy, 0 otherwise.
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

JavaScript (ES7), 33 29 байт

Сэкономлено 4 байта благодаря @JohanKarlsson.

 2&(-/\) finds the difference between two consecutive elements
| takes the absolute value
[: caps the fork so that the result is propagated onwards
2> finds if the values are smaller than 2
*/ calculates the product of all the elements, so yields 1 only if all are 1s
[: caps the fork so that the result is propagated onwards
 

Как?

Когда принуждают к i=.[:*/2>[:|2&(-/\) , arrays of at least two elements are evaluated to augment(sin⁻¹(ΔList(Ans . Повторно используя ввод а как переменная, содержащая предыдущее значение, первая итерация некоторый() всегда приводит к ([v0, v1, ...] - a[0]) ** 2 = NaN, независимо от значения а[0]. Таким образом, первый тест всегда является ложным, а фактические сравнения начинаются со второй итерации, как и предполагалось.

Тестовые случаи

Питон 3, 40 байт

Попробуйте онлайн!

Математика, 24 байта

Хаскелл, 34 33 байта

Попробуйте онлайн! -1 байт благодаря @user1472751

Бесточечное решение — один два, опять же только один байт (благодаря -1 байту от @Деннис) короче, чем рекурсивный подход:

Попробуйте онлайн!

Питон 2, 35 байт

Существует с кодом состояния 1 для несущественных массивов, с кодом состояния 0 в противном случае.

Попробуйте онлайн!

Октава, 21 байт

Анонимная функция, которая вводит числовой вектор и выводит ._I#I.+ if insignificant or a->{int p=0,i=1;for(;i<a.length;p+=Math.abs(a[i]-a[i++-1])>1?1:0);return p<1;} в противном случае.

Попробуйте онлайн!

Шелуха, 4 байта

Попробуйте онлайн!

Объяснение:

Пиф, 6 байт

Проверьте все тестовые примеры.

Пиф, 8 байт

Попробуйте онлайн!

Объяснение

АПЛ, 13 байт

Первый ответ APL \o/

Примечание. Я бот, принадлежащий Hyper Neutrino. Я существую в основном для тестирования чата.

Объяснение

05AB1E, 5 байт

Попробуйте онлайн!

Объяснение

Протон, 41 байт

Попробуйте онлайн!

-16 байт благодаря г-ну Xcoder
-2 байта
-6 байт благодаря г-ну Xcoder

Ом v2, 4 байта

Попробуйте онлайн!

Как?

Япт, 6 байт

Попробуйте онлайн!

Объяснение

С# (.NET Core), 51 45 44 + 18 байт

-1 байт благодаря Йеппе Стиг Нильсен

Подсчет байтов также включает в себя:

Попробуйте онлайн!

Объяснение:

Перл 6, 25 байт

Попробуйте онлайн!

Это должно быть довольно читабельно. Единственная менее очевидная вещь здесь заключается в том, что оператор zip $_-$l will stop zipping when the shorter list is exhausted (we remove the first element of the list at the right) and that the empty subscript |?{...} , так называемый дзен-срез, дает весь список. $a returns the list without the first element.

Р, 30 26 байт

Попробуйте онлайн!

PowerShell, 62 байта

Попробуйте онлайн!

PowerShell не имеет .some or .map или подобная команда, поэтому здесь мы проверяем каждую дельту индивидуально.

Мы принимаем данные param($a)$l=$a[0];($a|?{$_-$l-in1..-1;$l=$_}).count-eq$a.count and set cat(all(diff(scan())^2<2)) равен первому элементу. Затем мы проходим .skip and take out each element where .[] разница Z is {?(2>all(.[]Z-.skip)>-2)} диапазон a => // Take an array of integers as input a.Zip( // Combine each element with corresponding one from: a.Skip(1), // the input array without first element (x, y) => x - y // get their difference ) .All(x => x * x < 4) // Check if all differences are less than 2 // (We only care about 0 and 1, and so happens that when they're squared, it works like Abs! Magic!) . We then set using System.Linq; равен текущему элементу. Итак, теперь у нас есть коллекция элементов, в которых дельта между их предыдущим соседом равна 1. Мы берем a=>a.Zip(a.Skip(1),(x,y)=>x-y).All(x=>x*x<4) of that and check whether it's ä Get all pairs of elements a Take absolute difference of each pair This results in the deltas of the array e Check if every element... <2 Is less than 2 обычно к äa e<2 of the array as a whole. If it is, then every delta is 1 or less, so it's an insignificant array. That Boolean result is left on the pipeline, and output is implicit.

Фактор, 48 33 байта

Сэкономлено 15 байт благодаря @chunes!

Попробуйте онлайн! (результаты внизу)

Δ2<Å makes a copy of the inputted sequence without the first element. a=>all(-2<a[i]-a[i+1]<2for i:0..len(a)-1) вычитает это из исходной последовательности (\$a_n-a_{n-1}\$). Затем ¥ # calculate deltas Ä # absolute values 2‹ # smaller than 2 P # product gets the absolute values of that. ¥Ä2‹P находит максимальное значение в последовательности и {×/(|2-/⍵)<2} { } Function; right argument is ⍵ ( ) Bracketed Expression / Reduce 2 Every pair (two elements) of ⍵ ⍵ - Using subtraction | Magnitude (Absolute Value) <2 For each element, is it less than two? / Reduce over × Multiplication (Product) (All) makes sure it's 0 or 1.

Питон 3, 45 байт

Попробуйте онлайн! или Попробуйте набор тестов.

Благодаря Джонатан Фреч для -2 байт.

МАТЛ, 6 5 байт

-1 байт благодаря Джузеппе

Попробуйте онлайн! или Проверьте все тестовые случаи

любое исправление, 9 байт

Попробуйте онлайн!

По большей части это порт решения 05AB1E, за исключением того, что это ужасно, потому что в Anyfix нет автовекторизации и других интересных вещей.

Java (OpenJDK 8), 60 байт

Попробуйте онлайн!

• 5 байт спасибо @Nevay!

С, 61 56 байт

Спасибо @scottinet за экономию пяти байт!

Попробуйте онлайн!

C (gcc), 47 байт

Попробуйте онлайн!

Java (OpenJDK 8), 78 байт

Попробуйте онлайн!

Пиф, 7 байт

Тестовый набор

Возвращает истину/ложь.

Объяснение:

Математика, 34 байта

Объяснение

Клодюр, 35 байт

Насколько это аккуратно?

TI-Basic, 6 7 байт

или 5 байт, если ошибки считаются допустимым возвращаемым значением (возвращает f=lambda n,*t:t==()or-2<n-t[0]<=1==f(*t) if insignificant, else let f = (a,p)=>!a.some(v=>(p-(p=v))**2>1) console.log(f([1, 2, 3, 4, 3, 4, 5, 5, 5, 4])) // true console.log(f([1, 2, 3, 4, 5, 6, 7, 8, 9, 8])) // true console.log(f([3, 3, 3, 3, 3, 3, 3] )) // true console.log(f([3, 4, 4, 4, 3, 3, 3, 4, 4, 4])) // true console.log(f([1, 2, 3, 4] )) // true console.log(f([5, 4, 3, 2] )) // true console.log(f([1, 3, 5, 7, 9, 7, 5, 3, 1] )) // false console.log(f([1, 1, 1, 2, 3, 4, 5, 6, 19] )) // false console.log(f([3, 4, 5, 6, 7, 8, 7, 5] )) // false console.log(f([1, 2, 4, 10, 18, 10, 100] )) // false console.log(f([10, 20, 30, 30, 30] )) // false )

Дж, 20 19 байт

Я определил его как глагол, который добавляет к общей длине 3 байта.

Объяснение

Пример:

Попробуйте онлайн