배경

로얄 네덜란드 기상 연구소는 열파 정의하는 일련의 *을 적어도 5 연속 ≥25 ℃로 날씨의 날 ( "여름 날씨")하도록 적어도 그 시절의 3 ≥30 °의 C이다 ( "열대 기후" ).

열대 날씨는 연속적으로 측정 할 필요가 없습니다. 예를 들어 30, 25, 30, 26, 27, 28, 32, 30열대 날씨는 4 일 동안 8 일 동안 지속되는 열파입니다.

^{* (네덜란드 표준에 따라)}

도전

연속 일수에서 섭씨 온도 측정을 나타내는 양의 정수가 비어 있지 않은 목록이 제공되면 해당 목록에 열파가 포함되는지 여부를 결정하십시오 (위의 정의에 따라).

바이트 단위의 최단 답변이 이깁니다.

테스트 사례

팔시 :

[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]

진실한 :

[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보다 크거나 같은 4 개 이상의 값의 런이 존재하며,이 중 2보다 크거나 같은 값은 30보다 크거나 같아야합니다.

5로 나누면 기준이 5보다 크거나 같은 4 개 이상의 값이있는 런의 존재가되며, 그 중 2 이상은 6보다 크거나 같아야합니다.

이 값에서 5를 빼면 기준이 0보다 크거나 같은 4 개 이상의 값이있는 런이 존재하며, 그 중 2보다 크거나 같은 값은 1보다 크거나 같아야합니다.

이 값의 부호를 취하면 (-1, 0 또는 1을 얻음) 기준은 -1과 같지 않은 4 개 이상의 값이있는 런의 존재가되며,이 중 2 이상은 1이어야합니다.

이 값에 1을 더하면 (0, 1 또는 2를 얻음) 기준은 0이 아닌 4 개 이상의 값이있는 런의 존재가되며,이 중 2 이상은 2와 같아야합니다.

0을 포함하는 목록의 곱은 0이고 둘 이상의 2를 포함하는 목록 (및 나머지는 1)의 곱은 4보다 큽니다. 이는이 조정 된 목록의 기준이 제품의 최소값과 길이가 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

하스켈 , 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)[]

각각 2 바이트의 @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와 Udo Borkowski 와 Mathis에게 감사합니다 .

작동하면 어떻게됩니까? 각 숫자 시퀀스는 감소 값 1에서 시작하는 감소 연산으로 반복됩니다. 숫자> = 25가 표시되면 감소에 2를 곱한 것입니다. 숫자> = 30이 표시되면 감소에 2를 곱하고 3 = 6. 숫자 <25가 표시되면 감소는 1에서 다시 시작합니다. 감소를 864 = 2 * 2 * 2 * 2 * 2 * 3 * 3 * 3으로 나눌 수 있으면 열파가 발견되고 모듈로 연산은 0이며 감소 값은 0이고 반환 값은 true입니다.

온라인으로 사용해보십시오!

파이썬 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 x <25이면 0, 25≤x <30이면 1, 그렇지 않으면 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.

의견에 대한 모든 토론이 올바르게 이루어지기를 바랍니다. Shaggy
덕분에 1 바이트를 줄 였습니다.

온라인으로 사용해보십시오!

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경우 잠재적 인 string에 추가하고 그렇지 않으면 $b파이프 라인에 놓고 빈 문자열로 설정하십시오.

루프 외부에서 파이프 라인 결과를로 배열 연결하고 절을 $b통해 넣습니다 . 이렇게하면 요소 길이 (공백 분할 기준)와보다 큰 temp 수가있는 문자열 이 제거 됩니다. 이 문자열은 파이프 라인에 남아 있으므로 진실 된 값은 비어 있지 않습니다 (진실 / 거짓 구분에 대해서는 "모든 테스트 사례 확인"링크 참조).Where-Object|?{...}-ge530-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).

파이썬 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'))

온라인으로 사용해보십시오!

자바 스크립트 (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%

명령 줄 인수로 입력을 취하고, 그렇지 않으면 0 인 열파에 대해 1을 출력합니다.

파이썬 , 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]. 기본 사례는 진실 / 거짓을 이용하거나 오류로 종료함으로써 더 짧을 수 있습니다.

자바 스크립트 (Node.js) , 48 바이트

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

온라인으로 사용해보십시오!

아주 나쁜 것

하스켈 , 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}}

( 루비 솔루션에서 GB 로 표시되는 any {} 연산을 사용하는 16 바이트 )

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

(-1 바이트 덕분에 Lynn : 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와 Udo Borkowski 와 Mathis에게 감사합니다 .

작동하면 어떻게됩니까? 각 숫자 시퀀스는 감소 값 1에서 시작 하는 any {} 연산으로 반복 됩니다. 숫자가 30보다 크거나 같은 경우 감소에 2를 곱하고 3 (2 * 3 = 6)을 곱합니다. 숫자 <25 감소가 1에서 다시 시작되는 것을 볼 수 있습니다. 감소가 864 = 2 * 2 * 2 * 2 * 2 * 3 * 3 * 3으로 나눌 수 있으면 열파가 발견되고 모듈로 연산의 결과는 0이됩니다. any {} 연산 에서 호출 된 내부 람다 의 true 반환 값은 반복을 중지하고 true 값을 반환합니다.

온라인으로 사용해보십시오!

Wonder , 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

온라인으로 사용해보십시오!

필터 ( f)를 사용 하면 논리적으로 검사를 사용하는& 것보다 1 바이트가 짧고 ( ) 또한 ±비용이 많이 드는 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는 기능 버전에 연결됩니다.

이전 버전 rle은 주세페 덕분에 연속 25 일 이상 추출 하여 무려 18 바이트를 절약했습니다!

스위프트 4 , 50 바이트

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

온라인으로 사용해보십시오!

클로저 식은 열파에 대해 0을 반환하고 그렇지 않으면> 0을 반환합니다.

Roland Schmitz 및 Mathis 와 공동으로 제작되었습니다 .

작동하면 어떻게됩니까? 각 숫자 시퀀스는 감소 값 1에서 시작하는 감소 연산으로 반복됩니다. 숫자> = 25가 표시되면 감소에 2를 곱한 것입니다. 숫자> = 30이 표시되면 감소에 2를 곱하고 3 = 6. 숫자 <25가 표시되면 감소는 1에서 다시 시작합니다. 감소를 864 = 2 * 2 * 2 * 2 * 2 * 3 * 3 * 3으로 나눌 수 있으면 열파가 발견되고 모듈로 연산은 0이며 감소 값은 0입니다. 열파가 발견 된 경우에만 감소가 0이 될 수 있습니다. 감소 값이 0이면 모든 향후 감소, 즉 최종 결과에 대해 0이됩니다.

파이썬 2 , 66 63 바이트

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

온라인으로 사용해보십시오!

Lynn 덕분에 -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)

Lynn은 상태를 단축 할 것을 제안했습니다 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>.@

온라인으로 사용해보십시오!

펄 6 , 54 52 바이트

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

온라인으로 사용해보십시오!