Фон

Королевский нидерландский метеорологический институт определяет волну жары * как серию не менее 5 последовательных дней с погодой ≥25 ° C («летняя погода»), так что по крайней мере 3 из этих дней составляют ≥30 ° C («тропическая погода») ).

Тропическая погода не должна измеряться последовательно: например, 30, 25, 30, 26, 27, 28, 32, 30это 8-дневная волна тепла с 4 днями тропической погоды.

^{* (Ну, по голландским меркам.)}

Вызов

Учитывая непустой список натуральных чисел, представляющих измерения температуры по Цельсию за последующие дни, решите, содержит ли этот список волну тепла (согласно приведенному выше определению).

Самый короткий ответ в байтах побеждает.

Контрольные примеры

Falsey:

[30]
[29, 29, 29, 47, 30]
[31, 29, 29, 28, 24, 23, 29, 29, 26, 27, 33, 20, 26, 26, 20, 30]
[23, 31, 29, 26, 30, 24, 29, 29, 25, 27, 24, 28, 22, 20, 34, 22, 32, 24, 33]
[23, 24, 25, 20, 24, 34, 28, 32, 22, 20, 24]
[24, 28, 21, 34, 34, 25, 24, 33, 23, 20, 32, 26, 29, 29, 25, 20, 30, 24, 23, 21, 27]
[26, 34, 21, 32, 32, 30, 32, 21, 34, 21, 34, 31, 23, 27, 26, 32]
[29, 24, 22, 27, 22, 25, 29, 26, 24, 24, 20, 25, 20, 20, 24, 20]
[23, 33, 22, 32, 30]
[28, 21, 22, 33, 22, 26, 30, 28, 26, 23, 31, 22, 31, 25, 27, 27, 25, 28]
[27, 23, 42, 23, 22, 28]
[25, 20, 30, 29, 32, 25, 22, 21, 31, 22, 23, 25, 22, 31, 23, 25, 33, 23]

Truthy:

[30, 29, 30, 29, 41]
[1, 1, 25, 30, 25, 30, 25, 25, 25, 25, 25, 25, 25, 25, 40, 1, 1]
[31, 34, 34, 20, 34, 28, 28, 23, 27, 31, 33, 34, 29, 24, 33, 32, 21, 34, 30, 21, 29, 22, 31, 23, 26, 32, 29, 32, 24, 27]
[26, 29, 22, 22, 31, 31, 27, 28, 32, 23, 33, 25, 31, 33, 34, 30, 23, 26, 21, 28, 32, 22, 30, 34, 26, 33, 20, 27, 33]
[20, 31, 20, 29, 29, 33, 34, 33, 20]
[25, 26, 34, 34, 41, 28, 32, 30, 34, 23, 26, 33, 30, 22, 30, 33, 24, 20, 27, 23, 30, 23, 34, 20, 23, 20, 33, 20, 28]
[34, 23, 31, 34, 34, 30, 29, 31, 29, 21, 25, 31, 30, 29, 29, 28, 21, 29, 33, 25, 24, 30]
[22, 31, 23, 23, 26, 21, 22, 20, 20, 28, 24, 28, 25, 31, 31, 26, 33, 31, 27, 29, 30, 30]
[26, 29, 25, 30, 32, 28, 26, 26, 33, 20, 21, 32, 28, 28, 20, 34, 34]
[34, 33, 29, 26, 34, 32, 27, 26, 22]
[30, 31, 23, 21, 30, 27, 32, 30, 34, 29, 21, 31, 31, 31, 32, 27, 30, 26, 21, 34, 29, 33, 24, 24, 32, 27, 32]
[25, 33, 33, 25, 24, 27, 34, 31, 29, 31, 27, 23]

C (gcc) , 88 75 байтов

h,e,a;t(int*_){for(h=e=a=0;*_;h+=e>4&a>2)e+=*_>24||(e=a=0),a+=*_++>29;e=h;}

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

Желе , 15 байт

:5_5Ṡ‘ẆP«LƊ€>4Ṁ

Монадическая ссылка, принимающая список чисел, который возвращается, 1если бы еще была обнаружена тепловая волна 0.

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

Как?

Критерием является наличие серии из более чем четырех значений, больших или равных 25, из которых более двух должны быть больше или равных 30.

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

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

Если мы возьмем знак этих значений (получая -1, 0 или 1), критериями станет наличие серии из более чем четырех значений, не равных -1, из которых более двух должны быть равны одному.

Если мы добавим одно к этим значениям (получим 0, 1 или 2), критериями станет наличие серии из более чем четырех значений, не равных нулю, из которых более двух должны быть равны двум.

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

:5_5Ṡ‘ẆP«LƊ€>4Ṁ - Link: list of numbers
:5              - integer divide by five (vectorises)
  _5            - subtract five (vectorises)
    Ṡ           - sign {negatives:-1, zero:0, positives:1} (vectorises)
     ‘          - increment (vectorises)
      Ẇ         - all sublists
          Ɗ€    - last three links as a monad for €ach:
       P        -   product
         L      -   length
        «       -   minimum
            >4  - greater than four? (vectorises) -- 1 if so, else 0
              Ṁ - maximum -- 1 if any are 1, else 0

Haskell , 73 72 71 69 67 66 байт

any(\a->sum[1|x<-a,x>29,take 4a<a]>2).scanl(\a t->[0|t>24]>>t:a)[]

Спасибо @flawr и @Laikoni за два байта каждый и @xnor за байт!

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

Равная длина:

any(\a->take 4a<a&&sum a>2).scanl(\a t->[0|t>24]>>sum[1|t>29]:a)[]

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

C (лязг) , 64 байта

h;o(*t){for(h=1;*t;++t)h=h&&*t<25?1:h*(*t<30?2:6)%864;return!h;}

Функция o () возвращает 1 для тепловой волны или 0 еще.

Спасибо магическому номеру 864, а также Удо Борковски и Матису за их идеи.

Как работает, если? Каждая последовательность чисел повторяется с операцией уменьшения, начинающейся с уменьшающего значения 1. Если число> = 25 видно, уменьшение умножается на 2. Если видно число> = 30, уменьшение умножается на 2 и на 3 = 6. Если видно, что число <25, уменьшение начинается снова с 1. Если уменьшение делится на 864 = 2 * 2 * 2 * 2 * 2 * 3 * 3 * 3, то обнаруживается тепловая волна, и результат Операция по модулю 0, что приводит к уменьшению значения 0 и возвращаемому значению true.

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

Python 3 , 79 байт

lambda T:any(len(s)>4<sum(s+s)for s in bytes(t>29or(t<25)*9for t in T).split())

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

APL (Dyalog Classic) , 21 20 байт

1∊8≤4↓⍉×\25 30⍸↑,⍨\⎕

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

использования ⎕io←1

25 30⍸x 0, если x <25, 1, если 25≤x <30, или 2 в противном случае

мы вычисляем кумулятивные продукты из них, начиная (или эквивалентно: заканчивая) во всех возможных местах, отбрасываем первые 4 продукта и выявляем наличие продуктов ≥8 (что составляет 2 ³ )

Japt , 19 18 байт

ô<25 d_ʨ5©3§Zè¨30
ô                  // Partition the input at every item
 <25               // where the value is less than 25.
     d_            // Then, return whether any resulting subarray
       ʨ5         // is at least five items long
          ©        // and
           3§      // has at least three items
             Zè¨30 // with a value of at least 30.

Я надеюсь, что все обсуждения в комментариях были сделаны правильно.
Побрился на один байт благодаря Шегги .

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

PowerShell , 121 байт

param($a)$b="";($a|%{if($_-ge25){$b+="$_ "}else{$b;$b=""}})+$b|?{(-split$_).count-ge5-and(-split$_|?{$_-ge30}).count-ge3}

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

PowerShell не имеет эквивалента a .someили .everyподобного, поэтому это происходит вручную.

Мы принимаем входные данные $aкак массив целых чисел. Установите в качестве вспомогательной переменной $bпустую строку. Затем переберите все целые числа $a. Внутри цикла, если целое число является -greaterthanor equal 25, добавьте его в нашу потенциальную строку $b, в противном случае поместите $bв конвейер и установите его в пустую строку.

Выйдя из цикла, объедините результаты массива с конвейером $bи поместите их в Where-Objectпредложение |?{...}. Это вытягивает те строки, которые имеют длину элемента -ge5(основанную на расщеплении по пробелам) и количество временных переменных больше, чем 30существующее -ge3. Эти строки остаются в конвейере, поэтому истинное значение непусто (см. Ссылку «проверить все контрольные примеры» для определения истинности / ложности).

Желе , 17 16 байт

:5_5Ṡṣ-ḤS«LƊ€Ṁ>4

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

Как это устроено

:5_5Ṡṣ-ḤS«LƊ€Ṁ>4  Main link. Argument: T (array of temperatures)

:5                Divide each item of T by 5 (integer division).
  _5              Subtract 5 from each quotient.
    Ṡ             Take the signs.
                  This maps (-oo,25) to -1, [25,30) to 0, and [30,+oo) to 1.
     ṣ-           Split at occurrences of -1.
       Ḥ          Double, replacing 1's with 2's.
           Ɗ€     Map the three links to the left over each chunk.
        S             Take the sum.
          L           Take the length.
         «            Take the minimum of the results.
             Ṁ    Take the maximum.
              >4  Test if it's larger than 4.
                  Note that the sum is larger than 4 if and only if there are more
                 than two 2's, which correspond to temperatures in [30,+oo).

Python 2 , 86 байт

lambda l:any(2<s.count('2')*(len(s)>14)for s in`[(t>24)+(t>29)for t in l]`.split('0'))

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

JavaScript (ES6), 63 51 байт

Возвращает логическое значение.

a=>a.some(n=>(n>24?y+=++x&&n>29:x=y=0)>2&x>4,x=y=0)

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

05AB1E , 20 байтов

Œʒ24›DPsO4›*}29›O2›Z

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

объяснение

Π                    # push sublists of input
 ʒ          }         # filter, keep the lists where:
           *          # the product of:
     DP               # the product and
       sO4›           # the sum compared using greater-than to 4
  24›                 # for the elements greater than 24
                      # is true
                      # the result is:
                   Z  # the maximum from the remaining lists where
                O     # the sum of 
             29›      # the elements greater than 29
                 2›   # is greater than 2

Пакет, 119 байт

@set h=0
@for %%t in (0 %*)do @if %%t lss 25 (set/as=5,t=3)else set/a"t+=!!t*(29-%%t)>>9,s-=!!s,h+=!(s+t+h)
@echo %h%

Принимает input как аргументы командной строки и выводит 1 для тепловой волны, иначе 0.

Python , 67 байт

f=lambda l:l>l[:4]and(min(l)>24<sorted(l)[~2]-5)|f(l[1:])|f(l[:-1])

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

Тайм-аут на более длинных тестовых случаях из-за экспоненциального роста. Находит смежные подсписки, многократно прерывая первый или последний элемент. То, что 3 дня составляют ≥30 ° C, проверяется путем рассмотрения третьего по величине значения sorted(l)[~2]. Базовые случаи могут быть короче, если использовать в своих интересах правду / ложь или завершиться с ошибкой.

JavaScript (Node.js) , 48 байт

a=>a.some(x=>x>24?++A>4&(B+=x>29)>2:A=B=0,A=B=0)

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

довольно плохой

Haskell , 64 байта

f l=or$drop 4l>>[sum[1|x<-l,x>29,all(>24)l]>2,f$tail l,f$init l]

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

APL (Dyalog Unicode) , 29 байт

∨/(5≤≢¨a)∧3≤+/30≤↑a←e⊆⍨25≤e←⎕

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

∨/есть ли такие элементы, которые

(5≤≢¨a)5 <количество ≢дней в каждой серии (a содержит все возможные серии дней)

∧ а также

3≤+/30≤ 3 ≤ общая +/ количество элементов, которые ≥ 30 в

↑a← матрица, образованная

e⊆⍨25≤e←⎕ серия последовательных элементов, которые ≥ 25

Котлин , 57 байт

{var r=1;it.any{r*=2;if(it>29)r*=3;if(it<25)r=1;r%864<1}}

(-1 байт, заменяя явный параметр v-> неявным параметром it )

{var r=1;it.any{v->r*=2;if(v>29)r*=3;if(v<25)r=1;r%864<1}}

(-16 байт с использованием операции any {}, как видно из решения Ruby от GB )

{it.stream().reduce(1){r,v->if(r*25>r*v)1 else(r*if(v<30)2 else 6)%864}<1}

(-1 байт, спасибо Линн: заменил r> 0 && v <25 на r * 25> r * v)

{it.stream().reduce(1){r,v->if(r>0&&v<25)1 else(r*if(v<30)2 else 6)%864}<1}

Это лямбда-выражение принимает List и возвращает true для тепловой волны или false в противном случае.

Благодаря волшебному номеру 864 и Удо Борковски и Матису за их идеи.

Как работает, если? Каждая последовательность чисел повторяется с любой операцией {}, начинающейся с уменьшенного значения 1. Уменьшение умножается на 2 и умножается на 3 (2 * 3 = 6), если число больше или равно 30. Если число <25 видно, что уменьшение начинается снова с 1. Если уменьшение делится на 864 = 2 * 2 * 2 * 2 * 2 * 3 * 3 * 3, то обнаруживается тепловая волна, и результат операции по модулю равен 0, что приводит к истинное возвращаемое значение во внутренней лямбде, вызванное операцией any {}, которая затем останавливает итерацию и возвращает значение true.

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

Чудо , 34 байта

(/>@(& <2!> '<29#0)*> '<24#0).cns5

Пример использования:

((/>@(& <2!> '<29#0)*> '<24#0).cns5) [25 33 33 25 24 27 34 31 29 31 27 23]

объяснение

Подробная версия:

(some x\\(and <2 (fltr <29) x) (every <24) x) . (cns 5)

Возьмите перекрывающиеся последовательности из 5 последовательных элементов, затем проверьте, имеет ли любая из последовательностей все элементы> 25 и более 2 элементов> 30.

Желе , 21 байт

L5r⁸ṡẎ<25Ẹ$Ðḟ29<S€2<Ẹ

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

Stax , 23 байта

Æ7)║▄░Ä╟═╙hⁿ╧\ßY8÷K▌µ½x

Запустите и отладьте его на staxlang.xyz!Это занимает много времени, поэтому я отключил автозапуск.

Распакованный (28 байт) и пояснения

:efc%4>nc{24>f=a{29>f%2>|&|&
:e                              Set of all contiguous subarrays
  f                             Filter, using the rest of the program as a predicate:
   c                              Copy subarray on the stack
    %4>                           Five or more elements?
                        |&        AND
       nc                         Copy subarray twice to top
         {   f                    Filter:
          24>                       Greater than 24?
              =                   Equals the original subarray?
                          |&      AND
               a                  Move subarray to top
                {   f             Filter:
                 29>                Greater than 30?
                     %2>          Length greater than two?
                                  Implicit print if all three conditions are met

Это напечатает все подмассивы, которые можно считать тепловыми волнами, которые будут ложными, если и только если их не будет.

Рубин , 89 байт

->a{(0..a.size).map{|i|(b=a[i..-1].take_while{|t|t>24}).size>4&&b.count{|t|t>29}>2}.any?}

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

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

Vo≥3#≥30fo≥5Lġ(±≥25

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

Использование filter ( f) на один байт короче, чем использование проверки с помощью логических и ( &) , также было бы очень хорошо избавиться от± - стоящих 2 байта :(

объяснение

V(≥3#≥30)f(≥5L)ġ(±≥25)  -- example input: [12,25,26,27,28,29,18,24,32]
               ġ(    )  -- group by
                ( ≥25)  -- | greater or equal to 25: [0,1,2,3,4,5,6,0,0,8]
                (±   )  -- | sign: [0,1,1,1,1,1,1,0,0,1]
                        -- : [[12],[25,26,27,28,29,30],[18,24],[32]]
         f(   )         -- filter by
          (  L)         -- | length: [1,6,2,1]
          (≥5 )         -- | greater or equal to 5: [0,2,0,0]
                        -- : [[25,26,27,28,29,30]]
V(      )               -- does any element satisfy
 (  #   )               -- | count occurences where
 (   ≥30)               -- | | elements greater or equal to 30
 (      )               -- | : [1]
 (≥3    )               -- | greater or equal to 3: [0]
                        -- : 0

Сетчатка , 31 байт

G4`_+
/\b_{1,24}\b/%)C2`_{30}
1

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

R , 111 93 71 67 66 байт

!Reduce(function(i,j)"if"(j<25,!!i,(i*(2+4*!j<30))%%864),scan(),1)

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

Бесстыдный порт ответов Ролана Шмитца . -4 байта благодаря Роланду и -1 благодаря Джузеппе.

TIO ссылки на функциональную версию.

Предыдущая версия извлекала последовательные дни> 25, используя rleи сохраняя колоссальные 18 байтов благодаря Giuseppe!

Swift 4 , 50 байт

{$0.reduce(1){$0>0&&$1<25 ?1:$0*($1<30 ?2:6)%864}}

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

Выражение замыкания возвращает 0 для тепловой волны или> 0 в противном случае.

Создано в сотрудничестве с Роландом Шмитцем и Матисом.

Как работает, если? Каждая последовательность чисел повторяется с операцией уменьшения, начинающейся с уменьшающего значения 1. Если число> = 25 видно, уменьшение умножается на 2. Если видно число> = 30, уменьшение умножается на 2 и на 3 = 6. Если видно, что число <25, уменьшение начинается снова с 1. Если уменьшение делится на 864 = 2 * 2 * 2 * 2 * 2 * 3 * 3 * 3, то обнаруживается тепловая волна, и результат Операция по модулю 0, что приводит к уменьшению значения 0. Только когда тепловая волна была обнаружена, уменьшение может стать 0. Когда значение уменьшения равно 0, оно будет 0 для всех будущих сокращений, т.е. также для конечного результата.

Python 2 , 66 63 байта

lambda a:reduce(lambda b,c:(b*(6,2)[c<30]%864,1)[b*25>b*c],a,1)

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

-3 байта благодаря Линн

Как работает, если? Каждая последовательность чисел повторяется с операцией уменьшения, начинающейся с уменьшающего значения 1. Если число> = 25 видно, уменьшение умножается на 2. Если видно число> = 30, уменьшение умножается на 2 и на 3 = 6. Если видно, что число <25, уменьшение начинается снова с 1. Если уменьшение делится на 864 = 2 * 2 * 2 * 2 * 2 * 3 * 3 * 3, то обнаруживается тепловая волна, и результат Операция по модулю 0, что приводит к уменьшению значения 0. Только когда тепловая волна была обнаружена, уменьшение может стать 0. Когда значение уменьшения равно 0, оно будет 0 для всех будущих сокращений, т.е. также для конечного результата.

Более читаемая, но более длинная версия выглядит так:

lambda a:reduce((lambda b,c: 1 if b>0 and c<25 else b*(2 if c<30 else 6)%864), a, 1)

Удаление лишних пробелов / скобок и замена x if cond else yна (y,x)[cond]дает

lambda a:reduce(lambda b,c:(b*(6,2)[c<30]%864,1)[b>0and c<25],a,1)

Линн предложила сократить условие b>0and c<25:

b>0and c<25-> b*25>0 and b*c<b*25-> b*25>0 and b*25>b*c->b*25>b*c

в результате чего

lambda a:reduce(lambda b,c:(b*(6,2)[c<30]%864,1)[b*25>b*c],a,1)

Pyth, 23 байта

f&glT5&>T]25gePPT30SM.:

Попробуй здесь

f&glT5&>T]25gePPT30SM.:
f                  SM.:Q   Get the sorted subsequences of the (implicit) input...
 &qlT5                     ... with at least 5 elements...
      &>T]25               ... all at least 25...
            gePPT30        ... where the third to last is at least 30.

Befunge-98 , 61 байт

]&:46*`#;_$$$v\+1\;
 +1\_;#`+fe;#<\v
^_v#!`4:\_;#`2:<;\
>0>.@

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

Perl 6 , 54 52 байта

{$_>5&.grep(*>29)>2}o{any kv classify $+=25>*,0,|$_}

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