Latar Belakang

The Royal Netherlands Meteorological Institute mendefinisikan gelombang panas * sebagai rangkaian setidaknya 5 hari berturut-turut dari cuaca ≥25 ° C ("cuaca musim panas"), sehingga setidaknya 3 dari hari-hari itu adalah ≥30 ° C ("cuaca tropis" ).

Cuaca tropis tidak harus diukur secara berurutan: misalnya: 30, 25, 30, 26, 27, 28, 32, 30adalah gelombang panas selama 8 hari dengan 4 hari cuaca tropis.

^{* (Ya, menurut standar Belanda.)}

Tantangan

Diberikan daftar bilangan bulat positif yang tidak kosong yang mewakili pengukuran suhu Celcius dari hari-hari berturut-turut, putuskan apakah daftar itu mengandung gelombang panas (sesuai definisi di atas).

Jawaban terpendek dalam byte menang.

Uji kasus

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]

Benar:

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

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

Cobalah online!

Jelly , 15 byte

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

Tautan monadik yang menerima daftar angka yang kembali 1jika gelombang panas terdeteksi 0.

Cobalah online! atau lihat test-suite .

Bagaimana?

Kriteria tersebut adalah adanya serangkaian lebih dari empat nilai yang lebih besar atau sama dengan 25, di mana lebih dari dua harus lebih besar dari atau sama dengan 30.

Jika kita membaginya dengan lima kriteria menjadi keberadaan menjalankan lebih dari empat nilai lebih besar dari atau sama dengan lima, dimana lebih dari dua harus lebih besar dari atau sama dengan enam.

Jika kita mengurangi lima dari nilai-nilai ini kriteria menjadi keberadaan menjalankan lebih dari empat nilai lebih besar dari atau sama dengan nol, dimana lebih dari dua harus lebih besar dari atau sama dengan satu.

Jika kita mengambil tanda dari nilai-nilai ini (mendapatkan -1, 0, atau 1) kriteria menjadi keberadaan lari lebih dari empat nilai tidak sama dengan -1, dimana lebih dari dua harus sama dengan satu.

Jika kita menambahkan satu ke nilai-nilai ini (mendapatkan 0, 1, atau 2) kriteria menjadi keberadaan lari lebih dari empat nilai tidak sama dengan nol, dimana lebih dari dua harus sama dengan dua.

Produk dari daftar yang berisi angka nol adalah nol dan produk dari daftar yang berisi lebih dari dua pasangan (dan yang lainnya) lebih dari empat. Ini berarti bahwa kriteria pada daftar yang disesuaikan ini menjadi minimum produk dan panjangnya lebih besar dari 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 byte

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

Terima kasih kepada @ flawr dan @Laikoni untuk masing-masing dua byte dan @xnor untuk satu byte!

Cobalah online!

Panjang yang sama:

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

Cobalah online!

C (dentang) , 64 byte

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

Fungsi o () mengembalikan 1 untuk gelombang panas atau 0 lainnya.

Berkat nomor ajaib 864 dan untuk Udo Borkowski dan Mathis untuk ide-ide mereka.

Bagaimana jika bekerja? Setiap urutan angka diulangi dengan operasi pengurangan dimulai dari nilai pengurangan 1. Jika angka> = 25 terlihat pengurangan dikalikan dengan 2. Jika angka> = 30 terlihat pengurangan dikurangi dikalikan dengan 2 dan dengan 3 = 6. Jika angka <25 terlihat pengurangan mulai lagi pada 1. Jika pengurangan habis dibagi 864 = 2 * 2 * 2 * 2 * 2 * 3 * 3 * 3 maka gelombang panas ditemukan, dan hasil dari operasi modulo adalah 0 yang menghasilkan pengurangan nilai 0 dan nilai balik true.

Cobalah online!

Python 3 , 79 byte

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

Cobalah online!

APL (Dyalog Classic) , 21 20 byte

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

Cobalah online!

menggunakan ⎕io←1

25 30⍸x adalah 0 jika x <25, 1 jika 25≤x <30, atau 2 sebaliknya

kami menghitung produk kumulatif ini mulai dari (atau yang setara: berakhir pada) semua lokasi yang mungkin, membuang 4 produk pertama, dan mendeteksi keberadaan produk ≥8 (yaitu 2 ³ )

Japt , 19 18 byte

ô<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.

Saya harap saya mendapatkan semua diskusi di komentar dengan benar.
Dicukur satu byte berkat Shaggy .

Cobalah online!

PowerShell , 121 byte

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

Cobalah online! atau Verifikasi semua kasus uji

PowerShell tidak memiliki yang setara dengan .someatau .everyatau sejenisnya, jadi ini digulung dengan tangan.

Kami mengambil input $asebagai array bilangan bulat. Setel variabel pembantu $bke string kosong. Kemudian, loop melalui setiap integer di $a. Di dalam loop, jika integer adalah -greaterthanor equal to 25, tambahkan ke string potensial kami $b, jika tidak letakkan $bdi pipeline dan atur ke string kosong.

Setelah di luar loop, array-concatenate hasil pipeline dengan $b, dan meletakkannya melalui Where-Objectklausa |?{...}. Ini tarikan keluar mereka string yang memiliki panjang elemen -ge5(berdasarkan membelah pada spasi) dan hitungan temps lebih besar dari 30menjadi -ge3. String-string tersebut dibiarkan di atas pipa, sehingga nilai kebenarannya tidak kosong (lihat tautan "verifikasi semua kasus uji" untuk perbedaan kebenaran / falsey).

Jelly , 17 16 byte

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

Cobalah online!

Bagaimana itu bekerja

: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 byte

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

Cobalah online!

JavaScript (ES6), 63 51 byte

Mengembalikan boolean.

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

Cobalah online!

05AB1E , 20 byte

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

Cobalah online!

Penjelasan

Π                    # 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

Batch, 119 byte

@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%

Mengambil input sebagai argumen command-line dan menghasilkan 1 untuk gelombang panas sebaliknya 0.

Python , 67 byte

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

Cobalah online!

Waktu habis pada kasus uji lagi karena pertumbuhan eksponensial. Temukan sublist yang berdekatan dengan memotong elemen pertama atau terakhir secara berulang. 3 hari itu ≥30 ° C diperiksa dengan melihat nilai terbesar ketiga sorted(l)[~2]. Basis kasus mungkin bisa lebih pendek dengan mengambil keuntungan dari truey / falsey atau mengakhiri dengan kesalahan.

JavaScript (Node.js) , 48 byte

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

Cobalah online!

yang sangat buruk

Haskell , 64 byte

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

Cobalah online!

APL (Dyalog Unicode) , 29 byte

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

Cobalah online!

∨/ada setiap elemen seperti yang

(5≤≢¨a)5 <penghitungan ≢hari di setiap seri ( amemiliki semua seri hari yang mungkin)

∧ dan

3≤+/30≤3 ≤ +/jumlah total elemen yang ≥ 30 in

↑a← matriks yang dibentuk oleh

e⊆⍨25≤e←⎕ rangkaian elemen berurutan yang ≥ 25

Kotlin , 57 byte

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

(-1 Byte dengan mengganti Parameter eksplisit v-> dengan parameter implisit itu )

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

(-16 byte menggunakan operasi {} apa pun seperti yang terlihat di Ruby Solution by GB )

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

(-1 byte terima kasih Lynn: diganti r> 0 && v <25 dengan 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}

Ekspresi lambda ini mengambil Daftar dan mengembalikan true untuk gelombang panas atau yang lain.

Berkat nomor ajaib 864 dan untuk Udo Borkowski dan Mathis untuk ide-ide mereka.

Bagaimana jika bekerja? Setiap urutan angka diulang dengan operasi {} apa pun yang dimulai dengan nilai pengurangan 1. Pengurangan dikalikan dengan 2 dan dikalikan dengan 3 (2 * 3 = 6) jika jumlahnya lebih besar atau sama dengan 30. Jika angka <25 terlihat pengurangan dimulai lagi pada 1. Jika pengurangan dibagi oleh 864 = 2 * 2 * 2 * 2 * 2 * 3 * 3 * 3 maka gelombang panas ditemukan, dan hasil operasi modulo adalah 0 yang menghasilkan nilai pengembalian sejati dalam lambda batin dipanggil dari operasi {} apa pun yang kemudian berhenti iterasi dan mengembalikan nilai true.

Cobalah online!

Bertanya-tanya , 34 byte

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

Contoh penggunaan:

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

Penjelasan

Versi verbal:

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

Ambil urutan yang tumpang tindih dari 5 item berturut-turut, lalu periksa apakah ada urutan yang memiliki semua item> 25 dan lebih dari 2 item> 30.

Jelly , 21 byte

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

Cobalah online!

Stax , 23 byte

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

Jalankan dan debug di staxlang.xyz! Ini membutuhkan waktu lama untuk dijalankan, jadi saya menonaktifkan jalankan otomatis.

Dibongkar (28 byte) dan penjelasan

: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

Ini akan mencetak semua subarrays yang dapat dihitung sebagai gelombang panas, yang akan menjadi salah jika dan hanya jika tidak ada.

Ruby , 89 byte

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

Cobalah online!

Sekam , 19 byte

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

Cobalah online!

Menggunakan filter ( f) lebih pendek satu byte daripada menggunakan memeriksa dengan logis dan ( &) , juga akan sangat bagus untuk menyingkirkan ±- biaya 2 byte :(

Penjelasan

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

Retina , 31 byte

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

Cobalah online!

R , 111 93 71 67 66 byte

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

Cobalah online!

Port yang tak tahu malu jawaban Roland Schmitz . -4 byte terima kasih untuk Roland dan -1 terima kasih kepada Giuseppe.

TIO menghubungkan ke versi fungsional.

Versi sebelumnya diekstraksi berturut-turut> 25 menggunakan rledan menyimpan 18 byte kekalahan berkat Giuseppe!

Cepat 4 , 50 byte

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

Cobalah online!

Ekspresi penutupan menghasilkan 0 untuk gelombang panas atau> 0 lainnya.

Dibuat bekerja sama dengan Roland Schmitz dan Mathis.

Bagaimana jika bekerja? Setiap urutan angka diulangi dengan operasi pengurangan dimulai dari nilai pengurangan 1. Jika angka> = 25 terlihat pengurangan dikalikan dengan 2. Jika angka> = 30 terlihat pengurangan dikurangi dikalikan dengan 2 dan dengan 3 = 6. Jika angka <25 terlihat pengurangan mulai lagi pada 1. Jika pengurangan habis dibagi 864 = 2 * 2 * 2 * 2 * 2 * 3 * 3 * 3 maka gelombang panas ditemukan, dan hasil dari operasi modulo adalah 0 yang menghasilkan nilai pereduksi 0. Hanya ketika gelombang panas ditemukan, pereduksi dapat menjadi 0. Setelah nilai pereduksi adalah 0 maka akan menjadi 0 untuk semua pengurangan di masa mendatang, yaitu juga untuk hasil akhir.

Python 2 , 66 63 byte

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

Cobalah online!

-3 byte terima kasih kepada Lynn

Bagaimana jika bekerja? Setiap urutan angka diulangi dengan operasi pengurangan dimulai dari nilai pengurangan 1. Jika angka> = 25 terlihat pengurangan dikalikan dengan 2. Jika angka> = 30 terlihat pengurangan dikurangi dikalikan dengan 2 dan dengan 3 = 6. Jika angka <25 terlihat pengurangan mulai lagi pada 1. Jika pengurangan habis dibagi 864 = 2 * 2 * 2 * 2 * 2 * 3 * 3 * 3 maka gelombang panas ditemukan, dan hasil dari operasi modulo adalah 0 yang menghasilkan nilai pereduksi 0. Hanya ketika gelombang panas ditemukan, pereduksi dapat menjadi 0. Setelah nilai pereduksi adalah 0 maka akan menjadi 0 untuk semua pengurangan di masa mendatang, yaitu juga untuk hasil akhir.

Versi yang lebih mudah dibaca, tetapi lebih panjang terlihat seperti ini:

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

Menghapus spasi ekstra / tanda kurung dan mengganti x if cond else ydengan (y,x)[cond]memberi

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

Lynn menyarankan untuk mempersingkat kondisi 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

yang menghasilkan

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

Pyth, 23 byte

f&glT5&>T]25gePPT30SM.:

Coba di sini

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 byte

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

Cobalah online!

Perl 6 , 54 52 byte

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

Cobalah online!