Mesin Stock Time

Anda telah memperoleh akses ke dataset tomorrowStocks, yang berisi harga saham dari bisnis favorit Anda di NASDAQ. Dataset ini adalah wadah yang diindeks oleh pembukaan beberapa menit terakhir. Setiap indeks berisi harga saham saat itu.

// Assume the stock market opens at 9:30AM EDT
// tomorrowStocks[] contains the prices of your target stock.
// If the stock is $22 @ 10:30AM EDT
tomorrowStocks[60] == 22

Keluaran

Tugas Anda adalah menentukan hasil terbaik 1 purchasedan 1 saledari 1 stockdari dataset yang diberikan.

Gotcha

• Anda harus membeli dan menjual tepat 1 stok.
• Anda tidak boleh membeli dan menjual dalam slot waktu yang sama.
• Anda harus membeli sebelum menjual.

Data Uji

[1,2,3,4,5]    # 4
[1,99,2,105]   # 104
[99,1,99,100]  # 99
[99,1,1,2,1,3] # 2
[5,4,3,3,1]    # 0
[5,4,3,1]      # -1
[5,2,1]        # -1
[5,4,1]        # -1
[55,45,20,1]   # -10
[5,1]          # -4
[10,7,5,1]     # -2
[7]            # Invalid input -- assume size >= 2

Ini adalah kode-golf ; kirimkan jawaban terpendek dalam bahasa favorit Anda!

05AB1E , 4 byte

Menggunakan pendekatan FryAmTheEggman . Kode:

¥ŒOà

Penjelasan:

¥     # Calculate the increments of the array.
 Π   # Get all substring of the array.
  O   # Sum the arrays in the array.
   à  # Get the largest sum and implicitly print that.

Menggunakan pengkodean CP-1252 . Cobalah online! .

Python 2, 46 byte

f=lambda x:-min(x.pop(0)-max(x),x[1:]and-f(x))

Uji di Ideone .

Bagaimana itu bekerja

Ini adalah pendekatan rekursif yang mengambil keuntungan dari perbandingan tipe campuran Python 2 yang indah dan sesat.

Hasil terbaik yang mungkin adalah selisih maksimum daftar dengan elemen pertama dihapus dan elemen pertama, atau perbedaan lain yang tidak melibatkan elemen pertama.

Setelah mengekstraksi elemen pertama dengan x.pop(0)(yang secara permanen menghapusnya dari x ), kami menghitung x.pop(0)-max(x). Perhatikan bahwa perbedaan ini memiliki tanda "salah".

Jika daftar yang diperbarui x masih mengandung setidaknya dua elemen, x[1:]menghasilkan daftar yang tidak kosong, dan andmenggantinya dengan negatif dari panggilan rekursif, dihitung sebagai -f(x). Setelah ada terlalu sedikit elemen untuk melanjutkan, x[1:]and-f(x)evaluasi ke daftar kosong.

Untuk memilih hasil maksimal, kami mengambil selisih minimum dan negatif dari panggilan rekursif (atau []). Karena semua bilangan bulat benar-benar kurang dari [], minhanya akan mengembalikan argumen kirinya jika yang benar [].

Akhirnya, minus unary -mengoreksi tanda hasil yang dihitung.

MATL , 7 byte

2XN!dX>

Cobalah online! Atau verifikasi semua kasus uji .

2XN  % Take input implicitly. Two-column 2D array with all combinations of 2 elements.
     % Each combination is a row. Elements in each row are in increasing order
!    % Transpose
d    % Difference of the two numbers in each column
X>   % Maximum value. Display implicitly

Jelly , 5 byte

Œcḅ-Ṁ

Cobalah online! atau verifikasi semua kasus uji .

Bagaimana itu bekerja

Œcḅ-Ṁ  Main link. Argument: A (integer array)

Œc     Generate all combinations of two elements of A, in order.
  ḅ-   Convert each pair from base -1 to integer.
       This maps [a, b] to b - a.
    Ṁ  Take the maximum of all computed differences.

Pyth, 9

eSsM.:-Vt

Cobalah di sini atau jalankan Test Suite .

Temukan perbedaan berurutan di antara setiap elemen, lalu temukan setiap substring dari array itu. Terakhir, jumlah elemen dan kembalikan yang maksimal.

Penjelasan:

eSsM.:-Vt
eSsM.:-VtQQ   ## Auto-fill variables
      -VtQQ   ## Splat subtraction on each element of zip(Q[1:], Q)
    .:        ## Get all substrings
  sM          ## Sum each list
eS            ## Take the largest number

Disebutkan kepada saya bahwa algoritma ini berfungsi tidak sepenuhnya intuitif. Semoga contoh ini akan menggambarkan mengapa algoritma ini bekerja:

[a, b, c, d]
difference between each element (reversed because of how Pyth does this)
[b-a, c-b, d-c]
"substrings" or each continuous slice
[b-a], [c-b], [d-c], [b-a, c-b], [c-b, d-c], [b-a, c-b, d-c]
sum each
[b-a], [c-b], [d-c], [b-a+c-b], [c-b+d-c], [b-a+c-b+d-c]
simplify
[b-a], [c-b], [d-c], [c-a], [d-b], [d-a]

Pyth, 9

_hS-M.cQ2

Ya ampun!

_hS-M.cQ2

     .cQ2 # generate all 2-elements combinations of Q (argument)
   -M     # map-splat with -: for each combination, substract the elements together
  S       # tort
 h        # take the first
_         # absolute value

PowerShell v2 +, 58 byte

param($n)($n|%{($n[++$i..$n.count]|sort)[-1]-$_}|sort)[-1]

Mengambil input $n, menyalurkan setiap elemen ke dalam satu lingkaran |%{...}. Setiap iterasi, kami mengiris $nberdasarkan pra-incremented ++$ike akhir array input, |sortitu, dan mengambil yang maksimal [-1], kemudian kurangi elemen saat ini $_. Kami kemudian |sortsemua perbedaan itu, dan lagi mengambil yang maksimal [-1].

Mengosongkan kesalahan indeks array verbose, karena kami mencoba memotong melewati akhir array. Tapi, karena STDERR diabaikan secara default , kami tidak peduli.

JavaScript (ES6), 57 54 byte

a=>(m=Math.max)(...a.map((x,i)=>m(...a.slice(i+1))-x))

Dalam JavaScript, lebih mudah mengambil maks dari sisa array dan mengurangi elemen saat ini. (Dalam hal elemen terakhir hasilnya masih akan menjadi -Infinity.) Edit: Disimpan 3 byte berkat @CharlieWynn.

J, 21 byte

[:>./@;i.@#<@{."_1-/~

Mengambil array nilai sebagai argumen dan mengembalikan hasilnya.

Penjelasan

[:>./@;i.@#<@{."_1-/~  Input: p
                  -/~  Make a table of all differences between every pair
          #            Get the count of values in p
       i.@             Create a range [0, 1, ..., len(p)-1]
             {."_1     Take that many values from each row of the table
           <@          Box each row of selected values
[:    ;                Unbox and concatenate them
  >./@                 Reduce it by the max and return

Java, 141 byte

a->java.util.stream.IntStream.range(0,a.size()-1).map(i->a.subList(i+1,a.size()).stream().reduce(Math::max).get()-a.get(i)).max().getAsInt();

Lambda menerima ArrayList dan mengembalikan Integer.

Kode yang tidak digabungkan dengan kasus uji:

import java.util.ArrayList;
import java.util.Arrays;
import java.util.function.Function;
import java.util.stream.IntStream;

class Test {

    public static void main(String[] args) {
        Function<ArrayList<Integer>, Integer> f = a -> IntStream
            .range(0, a.size()-1)
            .map(i -> a.subList(i+1, a.size()).stream().reduce(Math::max).get() - a.get(i))
            .max()
            .getAsInt();

        System.out.println(f.apply(new ArrayList<>(Arrays.asList(1,2,3,4,5))));
        System.out.println(f.apply(new ArrayList<>(Arrays.asList(1,99,2,105))));
        System.out.println(f.apply(new ArrayList<>(Arrays.asList(99,1,99,100))));
        System.out.println(f.apply(new ArrayList<>(Arrays.asList(99,1,1,2,1,3))));
        System.out.println(f.apply(new ArrayList<>(Arrays.asList(5,4,3,3,1))));
        System.out.println(f.apply(new ArrayList<>(Arrays.asList(5,4,3,1))));
        System.out.println(f.apply(new ArrayList<>(Arrays.asList(5,2,1))));
        System.out.println(f.apply(new ArrayList<>(Arrays.asList(5,4,1))));
        System.out.println(f.apply(new ArrayList<>(Arrays.asList(55,45,20,1))));
        System.out.println(f.apply(new ArrayList<>(Arrays.asList(5,1))));
        System.out.println(f.apply(new ArrayList<>(Arrays.asList(10,7,5,1))));
    }
}

Sejauh yang saya tahu, Java tidak memiliki cara untuk melihat ke depan dalam suatu aliran, dan memanipulasi metode dari mana aliran dihasilkan menghasilkan hasil yang aneh. Melakukan hal itu a.remove(0)di dalam peta benar-benar memecah arus.

VBA, 154

Dibawa pada input dalam kolom A mulai dari A1, output dalam C1. Harus dijalankan dengan sel terakhir di A yang dipilih. Perhatikan bahwa Excel secara otomatis menambahkan spasi antar istilah dalam VBA, jika tidak, ini bisa di-golf lebih lanjut.

Sub s
i = Selection.Row
r = "B1:B" + i-1
Range(r).FormulaArray = "MAX(A2:A$" + i + "-A1)"
Range(r).FillDown
Range("C1").Formula = "MAX(" + r + ")"
End Sub

Jawa, 116

Solusi java lainnya, saya menggunakan ini untuk membuktikan bahwa, stream mungkin terlihat bagus, tetapi tidak selalu berguna untuk bermain golf.

int a(int[]a){int t,d=a[1]-a[0],i,j,l=a.length;for(i=0;i<l;i++)for(j=i+1;j<l;j++){t=a[j]-a[i];d=d<t?t:d;}return d;}

ada banyak ruang untuk perbaikan dalam solusi ini

Clojure, 99 byte

(fn[x](apply max(map #(-(apply max(% 1))(apply min(% 0)))(map #(split-at % x)(range 1(count x))))))

Membagi daftar input pada posisi pertama kemudian kedua dan seterusnya, jadi kami mendapatkan daftar yang terlihat seperti ini:

[[[n1][n2 ... nk]][[n1 n2][n3 ... nk]]...[[n1...n(k-1)][nk]]]kemudian untuk setiap pasangan kurangi minimum elemen pertama dari maks elemen kedua dan kemudian cari maks dari mereka. Akan lebih pendek jika Clojuremin max mengambil urutan daripada sejumlah argumen.

Lihat online: https://ideone.com/b2nllT

ruby, 52 byte

->a{b=[];(x=a.pop;b+=a.map{|v|x-v})while a[0];b.max}

muncul harga jual yang mungkin dan lihat semua yang sebelumnya untuk mencari keuntungan. Lalu dapatkan untung maksimal.

C, 101 99 Bytes

int i,j,m,h;int f(int*a){m=1<<31;for(;a[i];i++){for(j=i+1;a[j];h=a[j++]-a[i],m=h<m?m:h);}return m;}

Input: null array yang dihentikan Misalnya {1,2,3,4,5,0}
Output: mengembalikan hasil terbaik

Anda dapat menghemat 8 byte ( total 93 91) jika Anda tidak ingin kehilangan uang:

int i,j,m,h;int f(int*a){for(;a[i];i++){for(j=i+1;a[j];h=a[j++]-a[i],m=h<m?m:h);}return m;}

R, 58 44 byte

max(unlist(sapply(seq(y<-scan()),diff,x=y)))

ungolfed

y=scan()                #input
s=1:length(y)           #sequence of same length from 1
l = sapply(s,diff,x=y)  #applies the function diff to each 'lag' in sequence s
                        #and differencing on y
max(unlist(l))          #reforms as vector and finds maximum

EDIT: fungsi berubah. asli di bawah ini.

f=function(x)max(max(x[-1]-x[1]),if(length(x)-2)f(x[-1]))

atau, jika Anda bersedia memasang dengan banyak pesan peringatan, singkirkan panjang -2, sebesar 56 byte.

f=function(x)max(max(x[-1]-x[1]),if(length(x))f(x[-1]))

Dan jika Anda merasa tidak berdagang dan kehilangan uang saat itulah satu-satunya kemungkinan, Anda bisa turun ke 52

f=function(x)max(max(x-x[1]),if(length(x))f(x[-1]))