Multi-level marketing related challenge.

Teman sebaya ingin mendapat imbalan. Jadi itu menarik Ninvestor ( N>=1), setiap investor ke-i berinvestasi x[i]. Ketika jumlah total melebihi ambang batas, x[0]+x[1]+...+x[N-1] >= Trekan kerja bisa diberi penghargaan. Tetapi hanya jika kondisi berikut dipenuhi:

• Jumlah minimum investor harus lebih besar dari M, ( M<=N)
• Untuk setidaknya satu bilangan bulat k, di mana k>=Mdan k<=N, setiap kinvestor harus berinvestasi setidaknya T/kmasing-masing;

Mengingat N, x[], T, MAnda harus menentukan apakah hadiah rekan dihasilkan atau tidak (hasil boolean, "ya" atau "tidak"). Kode terpendek menang.

Contoh:

N=5; M=3; T=10000, untuk menghasilkan hadiah teman, salah satu dari yang berikut harus dipenuhi:

• setiap 3 investasi masing-masing setidaknya 3334
• setiap 4 yang diinvestasikan setidaknya 2500 masing-masing
• semua 5 berinvestasi setidaknya 2000 masing-masing

N=6; M=2; T=5000:

• setiap 2 investasi masing-masing setidaknya 2500
• 3 investasi masing-masing setidaknya 1667
• setiap 4 investasi setidaknya masing-masing 1.250
• setiap 5 investasi masing-masing setidaknya 1000
• semua 6 berinvestasi masing-masing setidaknya 834

umum: untuk apa pun k, di mana, k>=Mdan k<=N:

• setiap kdari Ninvestor menginvestasikan setidaknya T/ksetiap

Kasus uji:

format:

N, x[], T, M -> correct answer

6, [999, 999, 59, 0, 0, 0], 180, 3 -> 0
6, [0, 60, 0, 60, 60, 0], 180, 3 -> 1
6, [179, 89, 59, 44, 35, 29], 180, 3 -> 0
6, [179, 89, 59, 44, 35, 30], 180, 3 -> 1
6, [179, 89, 59, 44, 36, 29], 180, 3 -> 1
6, [179, 90, 59, 44, 35, 29], 180, 3 -> 0
6, [30, 30, 30, 30, 29, 30], 180, 3 -> 0
6, [30, 30, 30, 30, 30, 30], 180, 3 -> 1

Jelly ,  12  9 byte

ṢṚ×J$ṫ⁵<Ṃ

Program lengkap yang menerima x T Mdan mencetak 0jika rekan dihargai dan 1jika tidak.

Cobalah online!

Bagaimana?

ṢṚ×J$ṫ⁵<Ṃ - Main Link: list of numbers, x; number, T   e.g. [100, 50, 77, 22, 14, 45], 180
Ṣ         - sort x                                          [ 14, 22, 45, 50, 77,100]
 Ṛ        - reverse                                         [100, 77, 50, 45, 22, 14]
    $     - last two links as a monad:
   J      -   range of length                               [  1,  2,  3,  4,  5,  6]
  ×       -   multiply                                      [100,154,150,180,110, 84]
     ṫ    - tail from index:
      ⁵   -   5th argument (3rd input), M   (e.g. M=3)      [        150,180,110, 84]
       <  - less than T?                                    [          1,  0,  1,  1]
        Ṃ - minimum                                         0

05AB1E , 9 byte

{Rƶ.ssè›ß

Cobalah secara online atau verifikasi semua kasus uji .

Port dari @JonathanAllan jawaban Jelly , jadi juga mengambil input x T Mdan output 0untuk "yes"dan 1untuk "no". Jika ini tidak diizinkan, dan itu harus dibalik, sebuah trailing _dapat ditambahkan.

Penjelasan:

{           # Sort the (implicit) input `x`
            #  i.e. `x`=[100,50,77,22,14,45] → [14,22,45,50,77,100]
 R          # Reverse it
            #  i.e. [14,22,45,50,77,100] → [100,77,50,45,22,14]
  ƶ         # Multiply it by it's 1-indexed range
            #  i.e. [100,77,50,45,22,14] → [100,154,150,180,110,84]
   .s       # Get all the suffices of this list
            #  i.e. [100,154,150,180,110,84]
            #   → [[84],[110,84],[180,110,84],[150,180,110,84],[100,154,150,180,110,84]]
     s      # Swap to take the (implicit) input `T`
      è     # Get the prefix at index `T`
            #  i.e. [[84],[110,84],[180,110,84],[150,180,110,84],[100,154,150,180,110,84]]
            #   and `T=3` → [150,180,110,84]
       ›    # Check for each list-value if the (implicit) input `M` is larger than it
            #  i.e. [150,180,110,84] and `M`=180 → [1,0,1,1]
        ß   # And pop and push the minimum value in the list (which is output implicitly)
            #  i.e. [1,0,1,1] → 0

Alternatif untuk .ssè:

sG¦}

Cobalah secara online atau verifikasi semua kasus uji .

Penjelasan:

s       # Swap to take the (implicit) input `T`
 G }    # Loop `T-1` times:
  ¦     #  Remove the first item from the list that many times
        #   i.e. [100,154,150,180,110,84] and `T=3` → [150,180,110,84]

JavaScript, 54 52 byte

(x,t,m,n)=>x.sort((a,b)=>a-b).some(i=>i*n-->=t&n>=m)

Cobalah online

Retina , 79 byte

\d+
*
O^`_+(?=.*])
_+(?=.*])(?<=(\W+_+)+)
$#1*$&
+`\W+_+(.*_)_$
$1
(_+).*], \1,

Cobalah online! Mengambil input dalam format [x], T, M. Tautan termasuk kasus uji. Penjelasan:

\d+
*

Konversikan ke unary.

O^`_+(?=.*])

Sortir [x]dalam urutan menurun.

_+(?=.*])(?<=(\W+_+)+)
$#1*$&

Kalikan setiap elemen [x]dengan indeksnya.

+`\W+_+(.*_)_$
$1

Hapus M-1elemen pertama dari [x].

(_+).*], \1,

Uji apakah ada elemen yang tersisa [x]lebih besar atau sama dengan T.

Perl 6 , 46 33 29 byte

{$^b>all $^a.sort Z*[...] @_}

Cobalah online!

Blok kode anonim yang mengambil input dalam bentuk list, amount, length of list, minimum amount of investorsdan mengembalikan allPersimpangan kebenaran / falsey , di mana kebenaran gagal dan falsey berhasil.

Penjelasan:

{                           }  # Anonymous code block
     all                       # Are all of
         $^a.sort                # The sorted list
                  Z*             # Zip multiplied by
                     [...] @_    # The range from length of list to the minimum amount
 $^b>                          # Not smaller than the given amount?

05AB1E , 6 byte

Masukan diambil dalam urutan T, N, x[], M
Output 0untuk rekan pahala dan 1jika tidak

Ÿs{*›W

Cobalah online! atau sebagai Test Suite

Penjelasan

Ÿ        # push the range [N ... T]
 s{      # push the list x[] sorted ascending
   *     # elementwise multiplication (crops to shortest list)
    ›    # for each element, check if M is greater than it
     W   # push min of the result
         # output implicitly

C # (.NET Core) , 129 , 89 byte

EDIT: Terima kasih kepada Kevin Cruijssen karena bermain golf dengan 40 byte sambil menjelaskan mekanisme mengapa!

(n,q,t,m)=>{int c=0,j;for(;m<=n&c<1;c=c<m++?0:1)for(j=n;j-->0;)c+=q[j]<t/m?0:1;return c;}

Cobalah online!

C # (Visual C # Interactive Compiler) dengan flag /u:System.Linq.Enumerable, 69 byte

(n,x,t,m)=>Range(0,n-m+1).Where(b=>x.Count(a=>a>=t/(b+m))>=b+m).Any()

Cobalah online!

// Takes in 4 parameters as input
(n,x,t,m)=>
// Create a new array with the length of all the numbers from m to n, inclusive
Range(0,n-m+1)
// And filter the results by
.Where((_,b)=>
// If the number of people that invested more than the total amount divided by the index plus m
x.Count(a=>a>=t/(b+m))
// Is greater than the index plus m
>= b+m)
// And check if there is at least one value in the filtered IEnumerable<int>, and if there is, return true
.Any()

Tanpa bendera, 73 byte

(n,x,t,m)=>new int[n-m+1].Where((_,b)=>x.Count(a=>a>=t/(b+m))>=b+m).Any()

Cobalah online!

JavaScript, 72 byte

Kode

(x,T,M)=>x.sort(t=(d,e)=>e-d).map((s,i)=>s*i+s).slice(M-1).sort(t)[0]>=T

Cobalah online!

Menerima input dalam format (x [], T, M)

Penjelasan

x.sort(t=(d,e)=>e-d)     \\sort numbers in reverse numerical order
.map((s,i)=>s*i+s)       \\Multiply each number in array by position(1 indexed) in array
.slice(M-1)              \\Remove the first M-1 elements (at least M people)
.sort(t)[0]              \\Get the maximum value in the array
>=T                      \\True if the maximum value is >= the threshold

Python 3 , 136 byte

Cukup uji kondisi untuk memastikan mereka terpenuhi. 1 jika hadiah diberikan, 0 jika tidak.

lambda N,x,T,M:(sum(x)>=T)*(M<=N)*any(any(all(j>=T/k for j in i)for i in combinations(x,k))for k in range(M,N+1))
from itertools import*

Cobalah online!

Python ,  71  65 byte

lambda x,T,M:all(i*v<T for i,v in enumerate(sorted(x)[-M::-1],M))

Cobalah online!

Fungsi yang tidak disebutkan namanya; port jawaban Jelly saya. Dengan demikian, "ya" adalah Falsedan "tidak" True. Namun, di sini, kami membuang kasus uji sebagai bagian dari pembalikan dan memanfaatkan kemampuan untuk memulai enumeratepenghitungan M. ( minjuga akan bekerja di tempat all)

R , 43 42 byte

-1 byte dengan menerapkan pendekatan lebih dekat

function(N,x,S,M)min(sort(x,T)[M:N]*M:N<S)

Cobalah online!

Implementasi R sederhana dari pendekatan Jonathan's Jelly. Saya mencoba banyak variasi tapi ini pips yang terbaik yang bisa saya pikirkan beberapa byte.

1 menyiratkan kegagalan, 0 menyiratkan kesuksesan.

Japt, 16 14 13 11 byte

ñ í*WõX)d¨V

Cobalah

ñ í*WõX)d¨V
                  :Implicit input of array U=x and integers V=T, W=M & X=N
ñ                 :Sort U
  í               :Interleave with
    WõX           :  Range [W,X]
   *              :  And reduce each pair of elements by multiplication
       )          :End interleaving
        d         :Any
         ¨V       :  Greater than or equal to V

Java 8, 91 (atau 89?) Byte

(N,x,T,M)->{int c=0,j;for(;M<=N&c<1;c=c<M++?0:1)for(j=N;j-->0;)c+=x[j]<T/M?0:1;return c;}

Port dari # Destroigo 's C # .NET jawaban (setelah saya golf lagi), jadi pastikan untuk membesarkannya!

Mengambil input N,x,T,Mdan output true/ falseuntuk "yes"/ "no"masing-masing.

Karena tantangan secara khusus meminta booleanhasil, saya tidak dapat mengembalikan nilai 1/ 0apa adanya, karena nilai tersebut tidak benar / bernilai falsey di Java. Jika ada dua nilai output yang berbeda untuk "yes"/ "no"adalah valid untuk tantangan ini sebagai gantinya, >0dalam pengembalian dapat dijatuhkan untuk menyimpan dua byte, dalam hal ini akan mengembalikan 1/ 0untuk "yes"/ "no"masing-masing.

Cobalah online.

Penjelasan:

(N,x,T,M)->{           // Method with the four parameters and boolean return-type
  int c=0,             //  Count integer, starting at 0
      j;               //  Temp index integer
  for(;M<=N            //  Loop as long as `M` is smaller than or equal to `N`
       &c<1            //  and `c` is not 1 yet:
      ;                //    After every iteration:
       c=c<M++?        //     If `M` is smaller than `c`:
                       //     (and increase `M` by 1 afterwards with `M++`)
          0            //      Set `c` to 0
         :             //     Else:
          1)           //      Set `c` to 1
    for(j=N;j-->0;)    //   Inner loop `j` in the range (`N`,0]:
       c+=             //    Increase the counter `c` by:
          x[j]         //     If the `j`'th value in `x`
              <T/M?    //     is smaller than `T` divided by `M`:
                   0   //      Leave the counter `c` unchanged by adding 0
                  :    //     Else:
                   1;  //      Increase the counter `c` by 1
  return c>0;}         //  Return whether the counter `c` is 1

C # (Visual C # Interactive Compiler) , 66 byte

(n,x,t,m)=>Enumerable.Range(m,n-m+1).Any(k=>x.Count(y=>y>=t/k)>=k)

Cobalah online!

Terinspirasi oleh jawaban @ EmbodimentOfIgnorance.

Saya telah menyebutkan ini sebelumnya, tetapi C # 8 memiliki rentang literal yang dapat membuat jawaban ini seperti ini:

(n,x,t,m)=>[m..n-m+1].Any(k=>x.Count(y=>y>=t/k)>=k)

Saya melihat tautan ke SharpLab dengan sebuah contoh, tetapi saya tidak bisa membuatnya bekerja sendiri.

Satu hal yang saya ubah adalah xdan tnilai adalah desimal. Ini menangani kasus di mana ttidak dapat dibagi oleh ksedikit lebih baik.