Đưa ra một danh sách chiều cao đường chân trời nguyên không âm, trả lời có bao nhiêu nét cọ ngang cao 1 đơn vị không bị gián đoạn là cần thiết để che nó.

[1,3,2,1,2,1,5,3,3,4,2], được hình dung như:

      5    
      5  4 
 3    5334 
 32 2 53342
13212153342

cần chín nét cọ:

      1    
      2  3 
 4    5555 
 66 7 88888
99999999999

Ví dụ

[1,3,2,1,2,1,5,3,3,4,2] → 9

[5,8] → 8

[1,1,1,1] → 1

[] → 0

[0,0] → 0

[2] → 2

[2,0,2] → 4

[10,9,8,9] → 11

JavaScript (Node.js) , 38 byte

a=>a.map(v=>(n+=v>p&&v-p,p=v),p=n=0)|n

Hãy thử trực tuyến!

Đơn giản chỉ là một thuật toán tham lam quét từ trái sang phải, chỉ vẽ các đường nếu cần và vẽ nó càng lâu càng tốt.

Cảm ơn Arnauld, lưu 2 3 byte

05AB1E ,  8 7  5 byte

Đã lưu 2 byte nhờ @Adnan

0š¥þO

Hãy thử trực tuyến!

Làm sao?

Đây là sử dụng thuật toán lần đầu tiên được tìm thấy bởi @tsh . Nếu bạn thích câu trả lời này, hãy đảm bảo nâng cao câu trả lời của họ !

Mỗi lần một tòa nhà chọc trời thấp hơn hoặc cao như trước, nó có thể được vẽ 'miễn phí' bằng cách mở rộng các nét vẽ.

Chẳng hạn, vẽ các tòa nhà chọc trời và trong hình dưới đây không tốn kém gì.$B$$C$

Mặt khác, chúng ta cần 2 nét vẽ mới để vẽ tòa nhà chọc trời , bất kể chúng có được sử dụng lại sau đó hay không.$E$

Đối với tòa nhà chọc trời đầu tiên, chúng ta luôn cần nhiều nét vẽ như có các tầng trong đó.

Biến điều này thành toán học:

Nếu chúng tôi thêm vào danh sách, điều này có thể được đơn giản hóa thành:$0$

Đã bình luận

0š¥þO     # expects a list of non-negative integers  e.g. [10, 9, 8, 9]
0š        # prepend 0 to the list                    -->  [0, 10, 9, 8, 9]
  ¥       # compute deltas                           -->  [10, -1, -1, 1]
   þ      # keep only values made of decimal digits
          # (i.e. without a minus sign)              -->  ["10", "1"]
    O     # sum                                      -->  11

Python 3 , 37 byte

lambda a:sum(a)-sum(map(min,a[1:],a))

Hãy thử trực tuyến!

_{-5 byte bằng cách chuyển sang Python 3, nhờ Sarien}

Python 2 , 47 43 42 byte

lambda a:sum(a)-sum(map(min,a[1:],a[:-1]))

Hãy thử trực tuyến!

Alt:

lambda a:sum(a)-sum(map(min,zip(a[1:],a)))

Hãy thử trực tuyến!

Haskell , 32 byte

(0%)
p%(h:t)=max(h-p)0+h%t
p%_=0

Hãy thử trực tuyến!

Một cải tiến về giải pháp của Lynn theo dõi phần tử trước pthay vì nhìn vào phần tử tiếp theo. Điều này làm cho trường hợp cơ sở và cuộc gọi đệ quy ngắn hơn để đổi lấy việc cần phải gọi (0%).

max(h-p)0có thể max h p-pcho cùng một chiều dài.

Haskell , 35 byte

f(a:b:c)=max(a-b)0+f(b:c)
f a=sum a

Hãy thử trực tuyến!

Dòng 2 có thể là f[a]=anếu tôi cũng không phải xử lý vụ việc [].

K (oK) , 12 7 byte

-5 byte nhờ ngn!

Một k (OK) cảng giải pháp 05AB1E Arnauld (và giải pháp JavaScript tsh của):

+/0|-':

Hãy thử trực tuyến!

J , 15 byte

Cổng AJ của giải pháp 05AB1E của Arnauld (và giải pháp JavaScript của tsh):

1#.0>./2-~/\0,]

Hãy thử trực tuyến!

Giải pháp ngây thơ của tôi:

J , 27 byte

1#.2(1 0-:])\0,@|:@,~1$~"0]

Hãy thử trực tuyến!

Haskell , 34 32 byte

2 byte được cắt bởi Lynn

g x=sum$max 0<$>zipWith(-)x(0:x)

Hãy thử trực tuyến!

Vì vậy, để bắt đầu chúng ta có zipWith(-). Điều này có hai danh sách và tạo ra một danh sách mới về sự khác biệt theo cặp của họ. Chúng tôi sau đó kết hợp nó với xvà (0:x). (0:)là một hàm thêm số 0 vào trước danh sách và bằng cách kết hợp nó với zipWith(-)chúng ta sẽ có được sự khác biệt giữa các phần tử liên tiếp của danh sách đó với số 0 ở phía trước. Sau đó, chúng tôi biến tất cả những người tiêu cực về không (max 0<$>). Điều này tạo ra một danh sách mới trong đó mỗi phần tử là số nét mới phải được bắt đầu tại mỗi tháp. Để có được tổng số chúng tôi chỉ cần tổng hợp với sum.

Japt , 8 byte

-2 byte từ @Shaggy

mîT Õ¸¸è

Giải trình

mîT Õ¸¸è      Full program. Implicit input U
                e.g. U = [2,0,2]
mîT             Map each item X and repeat T(0) X times
                     U = ["00","","00"]
    Õ           Transpose rows with columns
                     U = ["0 0","0 0"]
     ¸¸         Join using space and then split in space
                     U = ["0","0","0","0"]
        è       Return the count of the truthy values

Hãy thử trực tuyến!

MATL , 8 byte

0whd3Y%s

Hãy thử trực tuyến!

Khá nhiều thuật toán của @ Arnauld. Đã lưu một byte (cảm ơn @LuisMendo) bằng cách truyền tới uint64thay vì chọn )các mục tích cực.

Thạch , 5 byte

Một cổng của câu trả lời 05AB1E của tôi , tương tự như câu trả lời @tsh JS .

ŻI0»S

Hãy thử trực tuyến!

Đã bình luận

ŻI0»S    - main link, expecting a list of non-negative integers  e.g. [10, 9, 8, 9]
Ż        - prepend 0                                             -->  [0, 10, 9, 8, 9]
 I       - compute the deltas                                    -->  [10, -1, -1, 1]
  0»     - compute max(0, v) for each term v                     -->  [10, 0, 0, 1]
    S    - sum                                                   -->  11

Japt , 7 6 byte

änT fq

Thử nó

Lưu 1 byte nhờ Oliver.

änT xwT    :Implicit input of integer array
än         :Consecutive differences / Deltas
  T        :  After first prepending 0
    f      :Filter elements by
     q     :  Square root (The square root of a negative being NaN)
           :Implicitly reduce by addition and output

R , 30 byte

sum(pmax(0,diff(c(0,scan()))))

Hãy thử trực tuyến!

Chuyển giải pháp @Arnauld lần lượt xuất phát từ giải pháp tuyệt vời @tsh

Võng mạc 0.8.2 , 21 byte

\d+
$*
(1+)(?=,\1)

1

Hãy thử trực tuyến! Liên kết bao gồm các trường hợp thử nghiệm. Giải trình:

\d+
$*

Chuyển đổi sang unary.

(1+)(?=,\1)

Xóa tất cả các phần trùng lặp với tháp tiếp theo, không cần một nét mới.

1

Đếm các nét còn lại.

Lisp thường gặp, 88 87 byte

(lambda(s)(let((o 0))(dolist(c s)(incf o(max 0 c))(mapl(lambda(y)(decf(car y)c))s))o))

không khai thác

(lambda (skyline)
  (let ((output 0))
    (dolist (current-skyscraper-height skyline)
      (incf output (max 0 current-skyscraper-height))
      (mapl (lambda (skyscraper)
              (decf (car skyscraper) current-skyscraper-height))
            skyline))
    output)))

Kiểm tra nó

Khi một tòa tháp được sơn, nó cần một số nét vẽ tương đương với chiều cao của nó. Các nét vẽ này dịch cho tất cả các kiểu sau, được chỉ ra ở đây bằng cách trừ chiều cao của tháp hiện tại khỏi tất cả các tháp khác (và chính nó, nhưng điều đó không thành vấn đề). Nếu một tháp sau ngắn hơn, thì nó sẽ bị đẩy sang số âm và số âm này sau đó sẽ bị trừ khỏi các tháp theo sau (biểu thị các nét vẽ không thể dịch từ tháp trước sang tháp tiếp theo). Nó thực sự chỉ trừ số từ tất cả các độ cao của tháp, bao gồm cả những cái trước đó, nhưng điều này không quan trọng bởi vì chúng ta không nhìn lại những cái trước đó.

05AB1E , 13 10 byte

Z>Lε@γPO}O

Hãy thử trực tuyến hoặc xác minh tất cả các trường hợp thử nghiệm .

Giải trình:

Z            # Get the maximum of the (implicit) input-list
 >           # Increase it by 1 (if the list only contains 0s)
  L          # Create a list in the range [1, max]
   ε         # Map each value to:
    @        #  Check if this value is >= for each value in the (implicit) input
     γ       #  Split into chunks of adjacent equal digits
      P      #  Take the product of each inner list
       O     #  Take the sum
        }O   # And after the map: take the sum (which is output implicitly)

C # (Trình biên dịch tương tác Visual C #) với cờ /u:System.Math, 47 byte

n=>n.Select((a,i)=>i<1?a:Max(a-n[i-1],0)).Sum()

Hãy thử trực tuyến!

Phiên bản cũ, có cờ /u:System.Math, 63 byte

n=>n.Aggregate((0,0),(a,b)=>(a.Item1+Max(0,b-a.Item2),b)).Item1

Tôi cảm thấy như giải pháp này là thanh lịch hơn so với giải pháp đầu tiên. Nó đi qua mảng với bộ dữ liệu hai giá trị làm giá trị bắt đầu, chọn giá trị và lưu trữ giá trị trước nó trong phần thứ hai của bộ dữ liệu.

Hãy thử trực tuyến!

Bình thường, 8 byte

s>#0.++0

Một cổng khác của câu trả lời tuyệt vời của @ tsh . Lấy tổng ( s) của các giá trị dương ( >#0) của deltas (. +) Của đầu vào với 0 được đặt trước ( +0Q, theo dõi Q được suy ra).

Dùng thử trực tuyến tại đây hoặc xác minh tất cả các trường hợp thử nghiệm cùng một lúc tại đây .

Phương thức nối chuỗi, 10 byte

Đây là giải pháp tôi đã viết trước khi duyệt các câu trả lời khác.

lcj.t+d*LN

Bộ thử nghiệm.

lcj.t+d*LNQ   Implicit: Q=eval(input()), b=<newline>, N=<quote mark>
              Trailing Q inferred
        L Q   Map each element of Q...
       * N    ... to N repeated that many times
     +b       Prepend a newline
   .t         Transpose, padding with spaces
  j           Join on newlines
 c            Split on whitespace
l             Take the length, implicit print

Clojure, 50 byte

#((reduce(fn[[s n]i][(+(max(- i n)0)s)i])[0 0]%)0)

Hãy thử trực tuyến! (Tại sao điều này không in bất cứ điều gì?)

#( ; begin anonymous function
    (reduce
        (fn [[s n] i] ; internal anonymous reducing function, destructures accumulator argument into a sum and the previous item
            [(+ (max (- i n) 0) s ; the sum part of the accumulator becomes the previous sum plus the larger of zero and the difference between the current number and the last one, which is how many new strokes need to be started at this point
            i]) ; ...and the previous item part becomes the current item
        [0 0] ; the initial value of the accumulator gives no strokes yet, and nothing for them to cover yet
        %) ; reduce over the argument to the function
    0) ; and get the sum element of the last value of the accumulator.

Java (JDK) , 57 byte

a->{int s=0,p=0;for(int x:a)s-=(x>p?p:x)-(p=x);return s;}

Hãy thử trực tuyến!

Một cảng tsh 's Javascript câu trả lời . Vì vậy, hãy chắc chắn rằng bạn đã nâng cấp chúng.

Lưu ý rằng tôi đã sử dụng phép trừ thay vì phép cộng vì nó cho phép tôi viết (p=x)dưới dạng toán hạng đúng trong cùng một câu lệnh.

MATL , 15 14 13 byte

ts:<~"@Y'x]vs

Đầu vào là một vectơ cột, sử dụng ;như dấu phân cách.

Hãy thử trực tuyến! Hoặc xác minh tất cả các trường hợp thử nghiệm .

Giải trình

t       % Implicit input: column vector. Duplicate
s       % Sum
:       % Range from 1 to that. Gives a row vector
<~      % Greater or equal? Element-wise with broadcast
"       % For each column
  @     %   Push current columnn
  Y'    %   Run-length encoding. Gives vector of values (0, 1) and vector of lengths
  x     %   Delete vector of lengths
]       % End
v       % Vertically concatenate. May give an empty array
s       % Sum. Implicit display

Perl 5, 21 byte

$\+=$_>$'&&$_-$';//}{

TIO

Làm sao

• -p+ }{+ $\lừa
• //khớp với chuỗi rỗng để cho postmatch dòng tiếp theo $'sẽ chứa dòng trước đó
• $\+=$_>$'&&$_-$'để tích lũy sự khác biệt giữa dòng hiện tại và trước đó nếu hiện tại lớn hơn trước, (cũng có thể được viết $\+=$_-$' if$_>$', nhưng perl không phân tích $\+=$_-$'if$_>$'giống nhau)

Stax , 8 byte

Φ┐Γ╟φφ.╨

Chạy và gỡ lỗi nó

Sử dụng cách tiếp cận được sử dụng rộng rãi từ giải pháp JavaScript của tsh.

Ngôn ngữ Wolfram (Mathicala) , 34 byte

Một cảng @Arnauld 's giải pháp .

Tr@Select[{##,0}-{0,##},#>0&]&@@#&

Hãy thử trực tuyến!