Bulan lalu saya meminjam banyak buku dari perpustakaan. Mereka semua adalah buku yang bagus, penuh dengan emosi dan plot-twists. Sayangnya, pada beberapa titik saya menjadi sangat marah / sedih / kecewa, jadi saya merobek beberapa halaman.

Sekarang perpustakaan ingin tahu berapa banyak halaman yang telah saya buat untuk setiap buku.

Tujuan Anda adalah untuk menulis sebuah program, yang mengambil daftar angka yang diurutkan, dibatasi koma sebagai input dan mencetak jumlah halaman minimum dan maksimum yang mungkin bisa saya singkirkan. Setiap baris mewakili buku, setiap nomor mewakili halaman yang hilang dari buku.

Input contoh:

7,8,100,101,222,223
2,3,88,89,90,103,177
2,3,6,7,10,11
1
1,2

Contoh output:

4/5
5/6
3/6
1/1
1/2

4/5berarti, bahwa saya mungkin telah merobek 4 atau 5 halaman, tergantung pada sisi mana penomoran halaman buku dimulai. Seseorang bisa saja merobek halaman 6/7, halaman 8/9, halaman 100/101, dan halaman 222/223 (4 halaman). Atau, seseorang dapat merobek halaman 7/8, halaman 99/100, halaman 101/102, halaman 221/222, dan halaman 223/224 (5 halaman).

Ingat bahwa halaman buku selalu memiliki sisi depan dan belakang. Penomoran halaman juga berbeda dari buku ke buku. Beberapa buku bahkan memiliki nomor halaman di halaman kiri; beberapa di halaman kanan. Semua buku dibaca dari kiri ke kanan.

Kode terpendek dalam byte menang. Format I / O yang ketat tidak diperlukan. Program Anda harus dapat mengambil satu atau lebih buku sebagai masukan. Selamat bersenang-senang.

05AB1E , 13 byte

εD>)ÅÈε€θγg}{

Cobalah online!

Terima kasih kepada Emigna untuk informasi perubahan spec.

Penjelasan

εD>)ÅÈε€θγg}{ – Full program.
ε             – For each book...
 D            – Push two copies of it.
  >           – Increment all the elements of the second copy.
   )          – Wrap the whole stack into a list.
    ÅÈ        – Produces the lists of even natural numbers lower or equal to each element.
      ε       – For each (the modified copies of the book):
       €θ     – Get the last item of each.
         γg   – And split into chunks of equal adjacent elements.
           }  – Close the loop.
            { – Sort the resulting list.

Python 2 , 72 56 68 67 byte

lambda b:[map(len,map(set,zip(*[[p/2,-p/2]for p in t])))for t in b]

Cobalah online!

JavaScript, 104 93 92 85 80 79 74 byte

Akan menjadi 57 byte jika bukan untuk persyaratan yang tidak perlu (menurut saya) bahwa setiap pasangan angka dalam output secara konsisten diurutkan, atau 47 byte jika kita hanya perlu mengambil satu buku sebagai input.

Input dan output keduanya array array.

a=>a.map(x=>[0,1].map(n=>new Set(x.map(y=>y+n>>1)).size).sort((x,y)=>x-y))

• Awalnya terinspirasi oleh solusi Java Olivier dan solusi Japt saya sendiri (saat ini dihapus).
• 2 byte disimpan berkat Arnauld (ditambah 3 lainnya yang kami temukan pada saat yang sama) dan 10 byte ditambahkan berkat dia melihat penyortiran yang rusak saya berharap tidak ada yang akan memperhatikan sementara persyaratan itu masih dalam diskusi!

Uji kasus

Kasing uji dibagi menjadi masing-masing buku untuk keterbacaan yang lebih baik dengan kasing terakhir (yang mencakup [1,2]kasing tepi) berfungsi untuk menggambarkan bahwa solusi ini mendukung banyak buku dalam input.

f=
a=>a.map(x=>[0,1].map(n=>new Set(x.map(y=>y+n>>1)).size).sort((x,y)=>x-y))
o.innerText=` Input                         | Output\n${`-`.repeat(31)}|${`-`.repeat(21)}\n`+[[[7,8,100,101,222,223]],[[2,3,88,89,90,103,177]],[[2,3,6,7,10,11]],[[1,3,5,7,9,11,13,15,17,18]],[[1],[1,2],[8,10]]].map(b=>` `+JSON.stringify(b).padEnd(30)+"| "+JSON.stringify(f(b))).join`\n`

<pre id=o></pre>

Sejarah

//104
a=>a.map(x=>x.map(y=>b.add(y/2|0)&c.add(++y/2|0),b=new Set,c=new Set)&&[b.size,c.size].sort((x,y)=>x-y)))
// 93
a=>a.map(x=>[new Set(x.map(y=>y/2|0)).size,new Set(x.map(y=>++y/2|0)).size].sort((x,y)=>x-y)))
// 92
a=>a.map(x=>[(g=z=>new Set(z).size)(x.map(y=>y/2|0)),g(x.map(y=>++y/2|0))].sort((x,y)=>x-y))
// 85
a=>a.map(x=>[(g=h=>new Set(x.map(h)).size)(y=>y/2|0),g(y=>++y/2|0)].sort((x,y)=>x-y))
// 80
a=>a.map(x=>[(g=n=>new Set(x.map(y=>(y+n)/2|0)).size)(0),g(1)].sort((x,y)=>x-y))
// 79
a=>a.map(x=>[(g=n=>new Set(x.map(y=>y/2+n|0)).size)(0),g(.5)].sort((x,y)=>x-y))
// 76
a=>a.map(x=>[0,.5].map(n=>new Set(x.map(y=>y/2+n|0)).size).sort((x,y)=>x-y))

Retina 0.8.2 , 60 byte

\d+
$*
.+
$&,/$&,
,(?=.*/)
1,
((11)+,)1\1|1+,
1
%O`1+
1+
$.&

Cobalah online! Penjelasan:

\d+
$*

Ubah nomor halaman menjadi unary.

.+
$&,/$&,

Gandakan daftar, menempatkan a /.

,(?=.*/)
1,

Tambahkan nomor halaman dalam satu salinan daftar.

((11)+,)1\1|1+,
1

Hitung jumlah halaman, tetapi nomor genap dan ganjil berturut-turut hanya dihitung sebagai satu halaman.

%O`1+

Urutkan hitungan ke dalam urutan.

1+
$.&

Konversi penghitungan kembali ke desimal.

Haskell , 62 byte

import Data.List
p t=sort[length$nub[div(p+o)2|p<-t]|o<-[0,1]]

Cobalah online!

Java (OpenJDK 9) , 163 byte

import java.util.*;
n->{for(int i=n.length;i-->0;){Set s=new HashSet(),t=new HashSet();for(int p:n[i]){s.add(p/2);t.add(++p/2);}n[i]=new int[]{s.size(),t.size()};}}

Cobalah online!

Penjelasan

n->{                                   // Input-output of int[][]
 for(int i=n.length;i-->0;){           // Iterate on books
  Set s=new HashSet(),t=new HashSet(); // Create two hashsets
  for (int p:n[i]) {                   // Iterate over each page
   s.add(p/2);                         // Add the sheet-of-page of books [ even | odd ] to one set.
   t.add(++p/2);                       // Add the sheet-of-page of books [ odd | even ] to the other set.
  }
  n[i]=new int[] {                     // change the input to the number of sheets used.
   s.size(),
   t.size()
  };
 }
}

Catatan: karena tidak ada persyaratan tentang itu, jumlah halaman minimum dan maksimum tidak dipesan.

APL (Dyalog Unicode) , 37 byte

{(≢⍵)≤2:⌽≢∘∪¨⌊⍵(1+⍵)÷2⋄≢∘∪¨⌊⍵(1+⍵)÷2}

Cobalah online!

Ini dapat dilakukan untuk kurang dari setengah jumlah byte jika urutan output halaman tidak masalah:

{≢∘∪¨⌊⍵(1+⍵)÷2}

Bagaimana?

{(≢⍵)≤2:⌽≢∘∪¨⌊⍵(1+⍵)÷2⋄≢∘∪¨⌊⍵(1+⍵)÷2}⍝ Prefix dfn
{(≢⍵)≤2:                               ⍝ If argument length ≤2 
                    ÷2                 ⍝ Divide by 2
              ⍵(1+⍵)                   ⍝ Both the argument and 1+argument
             ⌊                         ⍝ Round down to the nearest integer
           ∪¨                          ⍝ Get the unique values of each
          ∘                            ⍝ And then
         ≢                             ⍝ Get the tally of elements of each
        ⌽                              ⍝ And reverse the result
                      ⋄                ⍝ Else
                       ≢∘∪¨⌊⍵(1+⍵)÷2} ⍝ Same as above, without reverting the result.

Perl 5 , 95 + 1 ( -a) = 96 byte

@0=@1=0;map{$i=-1;$F[$i]+1==$F[$i+1]&&$F[$i]%2==$_&&$i++while++$i<@F&&++@{$_}[0]}0,1;say"@0/@1"

Cobalah online!

Bahasa Wolfram (Mathematica) , 37 byte

^{Terima kasih @MartinEnder selama 8 byte!}

Sort[Length@*Split/@{#,#+1}~Floor~2]&

Cobalah online!

Penjelasan

Di: {3, 4, 5}

{#,#+1}

Ambil (input) dan (input +1). {{3, 4, 5}, {4, 5, 6}}

... ~Floor~2

Untuk setiap angka dari atas, ambil angka genap terbesar dikurangi. {{2, 4, 4}, {4, 4, 6}}

Length@*Split/@

Untuk setiap daftar dari atas, bagi daftar dengan elemen yang sama {{{2}, {4, 4}}, {{4, 4}, {6}}}

dan ambil masing-masing panjang: {2, 2}

Sort[ ... ]

Sortir hasilnya.

Bersih , 222 210 204 196 byte

import StdEnv,ArgEnv,Data.Maybe,qualified GenLib as G
Start=tl[let(Just l)='G'.parseString i;?s=sum[1\\n<-[s,s+2..last(sort l)]|isAnyMember[n,n+1]l]in zip2(sort[?0,?1])['/\n']\\i<-:getCommandLine]

Cobalah online!

Persyaratan program penuh benar-benar membunuh kemampuan Clean untuk bersaing.

Bagi mereka yang telah memperhatikan jawaban saya di Bersihkan, Anda akan melihat import qualified, yang merupakan peretasan jelek untuk berkeliling menggunakan modul yang tidak boleh digunakan bersama-sama, bersama-sama - yang hanya diperlukan di sini karena peretasan jelek lain untuk dilakukan dengan GenLibbergantung pada Data.Maybealih-alih StdMaybe, yang merupakan hasil dari peretasan jelek lainnya di perpustakaan yang diterjemahkan dari Haskell'sData untuk mendapatkan fungsionalitas sebelum perpustakaan Clean sendiri sama-sama lengkap.

Mengambil input melalui argumen baris perintah.

Perl, 40 byte

Termasuk +1untuka

perl -aE 'say/$/*grep${$.}{$_*$`|1}^=1,@F for-1,1' <<< "7 8 100 101 222 223"

Output tidak dipesan.

Diasumsikan nomor halaman positif (terutama tanpa halaman) 0 ). Anggap halaman yang hilang hanya disebutkan satu kali. Tidak peduli apakah inputnya dipesan atau tidak.

Memproses hanya satu buku per jalan menghemat 3byte untuk 37:

perl -aE 'say/$/*grep$z{$_*$`|1}^=1,@F for-1,1' <<< "7 8 100 101 222 223"