ฉันรู้สึกประหลาดใจที่ไม่พบคำถามนี้ แต่มีคำถามที่ยอดเยี่ยมเกี่ยวกับการชำระเงินปาเป้า: ปาเป้าพบ Codegolf

ความท้าทายของคุณคือการคำนวณว่าไม่สามารถทำคะแนนใดได้ด้วยลูกดอก 'n' ต่ำกว่าคะแนนสูงสุดของลูกดอก 'n' เช่นสำหรับ n = 3 คะแนนสูงสุดที่เป็นไปได้คือ 180 ดังนั้นคุณจะกลับมา [163,166,169,172,172,173,175,176,176,178,179]

สำหรับการสรุปกฎของกระดูกข้อเปลือย:

คะแนนที่เป็นไปได้สำหรับโผเดียวคือ:

• 0 (พลาด)
• 1-20, 25, 50
• สองหรือสามเท่าของ 1-20

กฎ:

• ใช้กฎกติกากอล์ฟมาตรฐาน
• คุณต้องใช้พารามิเตอร์ 'n' เพียงอย่างเดียวในวิธีที่ภาษาของคุณอนุญาตและส่งคืนรายการ / อาร์เรย์ของคะแนนเฉพาะทั้งหมดต่ำกว่าคะแนนสูงสุดซึ่งไม่สามารถทำคะแนนได้ด้วย n ปาเป้า คุณยังสามารถพิมพ์ค่าเหล่านี้ไปยังคอนโซล
• ลำดับของผลลัพธ์นั้นไม่สำคัญ
• โค้ดที่สั้นที่สุดในหน่วยไบต์ชนะ

Python 3 , 80 79 59 57 ไบต์

^{-1 ไบต์ขอบคุณ Arnauld
-20 ไบต์ขอบคุณ ArBo
-2 ไบต์ขอบคุณลบ 7}

lambda x:[-i-~x*60for i in(x<2)*b'a[YUSOLI'+b'MJGDCA@>=']

ลองออนไลน์!

Perl 6 , 42 ไบต์

{^60*$_∖[X+] [[|(^21 X*^4),25,50]xx$_,]}

ลองออนไลน์!

วิธีการแก้ปัญหากำลังดุร้ายที่ทำงานออกค่าโผที่เป็นไปได้ทั้งหมด

JavaScript (ES6),  55  54 ไบต์

บันทึก 1 ไบต์ขอบคุณ @Shaggy

ขึ้นอยู่กับรูปแบบที่ใช้โดยร็อด

n=>[...1121213+[n-1?33:2121242426]].map(x=>n-=x,n*=60)

ลองออนไลน์!

Perl 6 , 39 ไบต์ (37 ตัวอักษร)

นี่คือการใช้ค้อนขนาดใหญ่ แต่มันใช้งานได้ดี (มันไม่เพียง แต่ดุร้ายบังคับมันดุร้ายดุร้ายบังคับมัน)

{^60*$_∖[X+] (|(^21 X*^4),25,50)xx$_}

ลองออนไลน์!

นี่คือคำอธิบายของมัน:

{                                   } anonymous block for the 
       ∖                                set difference of
 ^60*$_                                   - 0 .. max score (60 * throwcount)
        [X+]                    xx$_      - the cross addition (throwcount times) of 
             (                 )              all possible score values, being 
              |(    X*  )                       flattened cross multiplication of
                ^21   ^4                          0..20 and 0..3 (for double and triple)
                         ,25,50                 and 25 and 50

X* ^4คูณข้ามสร้างจำนวนมากของค่าที่ซ้ำกัน (จะมี 20 ศูนย์ที่เกี่ยวข้องและว่าก่อนที่จะทำนอกเหนือข้าม) แต่ที่ไม่ก่อให้เกิดปัญหาใด ๆ เนื่องจากเราใช้ความแตกต่างชุด∖ซึ่งทำงานร่วมกับค่าที่ไม่ซ้ำกัน

ปัจจุบันนี้ล้มเหลวสำหรับ$n == 1(ซึ่งควรส่งคืนชุดว่าง) แต่มีปัญหาที่ยื่นและน่าจะใช้ได้ในเวอร์ชันในอนาคต รุ่นของ JoKingยาวขึ้นเล็กน้อย แต่ใช้งานได้$n == 1ใน Rakudo ปัจจุบัน

เยลลี่ขนาด 19 ไบต์

20Ż;25×Ɱ3ẎṖœċ⁸§ṪṖḟƊ

ลองออนไลน์!

MATL , 25 23 ไบต์

ขอบคุณ@Giuseppeที่แก้ไขข้อผิดพลาดและเล่นกอล์ฟขนาด 2 ไบต์!

25tE3:!21:q*vZ^!stP:wX-

ลองออนไลน์!

คำอธิบาย

วิธีการกำลังดุร้าย

25      % Push 25
tE      % Duplicate, double: gives 50
3:!     % Push column vector [1;2;3]
21:q    % Push row vector [0 1 ... 20]
*       % Multiply with broadcast. Gives a matrix with all products
v       % Concatenate everything into a column vector
Z^      % Implicit input: n. Cartesian power with exponent n
!s      % Sum of each row
tP      % Duplicate, flip: The first entry is now 60*n
:       % Push row vector [1 2 ... 60*n]
w       % Swap
X-      % Set difference. Implicit display

J , ⁴⁸ 45 ไบต์

2&>(35 44,q:626b66jh)&,60&*-1 4 8 14,q:@13090

ลองออนไลน์!

-3 ไบต์ขอบคุณ FrownyFrog

พยายามแก้ปัญหาโดยใช้กำลังดุร้าย แต่ไม่สามารถเอาชนะความคิดของร็อดได้

R , 64 ไบต์

function(n,`!`=utf8ToInt)c(60*n-!"",(!"#%),/")[n<2])

ลองออนไลน์!

พอร์ตคำตอบที่น่าตื่นตาตื่นใจพบโดยร็อด

R , 85 73 68 ไบต์

function(n)setdiff(0:(60*n),combn(rep(c(0:20%o%1:3,25,50),n),n,sum))

ลองออนไลน์!

แรงเดรัจฉานสร้างคะแนนที่เป็นไปได้ทั้งหมดด้วยnลูกดอกจากนั้นใช้ความแตกต่างของชุด

สินเชื่อเพื่อการแก้ปัญหาคู่ OrangeCherries'combnสำหรับการเตือนฉันของ

อีก 5 ไบต์ขอบคุณที่โรบินไรเดอร์%o%ข้อเสนอแนะของการใช้

Octave , 91 bytes 73 bytes 71 Bytes

อีกวิธีการบังคับเดรัจฉาน

@(n)setdiff(0:60*n,sum(combnk(repmat([x=0:20,x*2,x*3,25,50],1,n),n),2))

ลงถึง73 ไบต์ขอบคุณ Giuseppe
ลงมาที่ 71 ไบต์โดยแทนที่ nchoosek ด้วย combnk

ลองออนไลน์!

Pyth , 22 ไบต์

-S*60Q+M^+yB25*M*U4U21

ลองออนไลน์!

ไทม์เอาต์ใน TIO สำหรับอินพุตที่มากกว่า 3

-S*60Q+M^+yB25*M*U4U21Q   Implicit: Q=eval(input())
                          Trailing Q inferred
                 U4       Range [0-3]
                   U21    Range [0-20]
                *         Cartesian product of the two previous results
              *M          Product of each
          yB25            [25, 50]
         +                Concatenate
        ^             Q   Cartesian product of the above with itself Q times
      +M                  Sum each
                            The result is all the possible results from Q darts, with repeats
  *60Q                    60 * Q
 S                        Range from 1 to the above, inclusive
-                         Setwise difference between the above and the possible results list
                          Implicit print

Stax , 24 ไบต์

¿ß☺o↕αg╠╩╬ò▼í¬«¥↕▄í■♣▓î►

เรียกใช้และแก้ไขข้อบกพร่อง

มันค่อนข้างช้าสำหรับ n = 3 และแย่ลงจากที่นั่น

Python 2 , 125 ไบต์

lambda n:set(range(60*n))-set(map(sum,product(sum([range(0,21*j,j)for j in 1,2,3],[25,50]),repeat=n)))
from itertools import*

ลองออนไลน์!

Python 3 , 126 125 122 ไบต์

lambda n:{*range(60*n)}-{*map(sum,product(sum([[i,i*2,i*3]for i in range(21)],[25,50]),repeat=n))} 
from itertools import*

ลองออนไลน์!

_{-3 ไบต์ขอบคุณ Rod}

05AB1E , 21 20 18 ไบต์

20Ý25ª3Lδ*˜¨ãOZÝsK

-3 ไบต์ขอบคุณที่@Grimy

ไทม์ออกมาสวยได้อย่างรวดเร็วสูงกว่าการป้อนข้อมูลไปเนื่องจากการ ãbuiltin

ลองออนไลน์หรือตรวจสอบกรณีทดสอบอีกสองสามข้อ

คำอธิบาย:

20Ý                 # Push a list in the range [0, 20]
   25ª              # Append 25 to this list
      3L            # Push a list [1,2,3]
        δ*          # Multiply the top two lists double-vectorized:
                    #  [[0,0,0],[1,2,3],[2,4,6],[3,6,9],...,[20,40,60],[25,50,75]]
          ˜         # Flatten this list: [0,0,0,1,2,...,40,60,25,50,75]
           ¨        # Remove the last value (the 75)
            ã       # Create all possible combinations of the (implicit) input size,
                    # by using the cartesian power
             O      # Sum each inner list of input amount of values together
              Z     # Get the maximum (without popping the list), which is 60*input
               Ý    # Create a list in the range [0, 60*input]
                s   # Swap so the initially created list is at the top of the stack again
                 K  # And remove them all from the [0, 60*input] ranged list
                    # (then output the result implicitly)

เยลลี่ขนาด 28 ไบต์

21Ḷ×þ3R¤;25;50FœċµS€³×60¤R¤ḟ

ลองออนไลน์!

MathGolf , 26 ไบต์

╟*rJrN▐3╒*mÅ~*╡ak.ε*mÉa─Σ-

ลองออนไลน์!

-2 ไบต์ขอบคุณ Kevin Cruijssen

คำอธิบาย

╟*r                          push [0, ..., 60*input-1]
   Jr                        push [0, ..., 20]
     N▐                      append 25 to the end of the list
       3╒                    push [1, 2, 3]
         *                   cartesian product
          mÅ                 explicit map
            ~                evaluate string, dump array, negate integer
             *               pop a, b : push(a*b)
              ╡              discard from right of string/array
               a             wrap in array
                k            push input to TOS
                 .           pop a, b : push(b*a) (repeats inner array input times)
                  ε*          reduce list with multiplication (cartesian power)
                    mÉ       explicit map with 3 operators
                      a      wrap in array (needed to handle n=1)
                       ─     flatten array
                        Σ    sum(list), digit sum(int)
                         -   remove possible scores from [0, 60*input-1]

ภาษา Wolfram (Mathematica) , 69 ไบต์

Complement[Range[60#],Tr/@{Array[1##&,{4,21},0,##&],25,50}~Tuples~#]&

ลองออนไลน์!

ตามออกของคำตอบของ lirtosiast

Array's ระบุอาร์กิวเมนต์ที่สามชดเชย (เริ่มต้นที่ 1) Listและระบุข้อโต้แย้งที่สี่หัวที่จะใช้แทน ##&เทียบเท่ากับSequenceเพื่อArray[1##&,{4,21},0,##&]ส่งกลับ (บี้) Sequenceที่มีสมาชิกของผลิตภัณฑ์ด้านนอกของและ0..30..20

ถ่าน , 36 ไบต์

Ｉ⁺Ｅ…wvtsqpmjgkhea_[YS⎇⊖θ⁹¦¹⁷℅ι×⁶⁰⁻θ²

ลองออนไลน์! การเชื่อมโยงคือการใช้รหัสเวอร์ชันอย่างละเอียด ใช้อัลกอริทึมของ @ Rod; กำลังดุร้ายจะใช้เวลา 60 ไบต์ ทำงานโดยตัดทอนสตริงเป็น 9 อักขระหากอินพุตมากกว่า 1 จากนั้นรับเลขลำดับของอักขระและเพิ่มตัวคูณที่เหมาะสม 60

C # (Visual C # Interactive Compiler) , 305 ไบต์

(a,b)=>(int)Math.Pow(a,b);f=n=>{var l=new List<int>(new int[21].SelectMany((_,x)=>new[]{x,x*2,x*3})){25,50};int a=l.Count,b,c,d,e=P(a,n),f;var r=new int[e];for(b=e;b>0;b--)for(c=0;c<n;c++){d=b;while(d>P(a,c+1))d-=P(a,c+1);f=(d/P(a,c))-1;r[b-1]+=l[f>0?f:0];}return Enumerable.Range(0,l.Max()*n).Except(r);}

ดูเหมือนจะไม่มีวิธีง่ายๆในการคำนวณชุดค่าผสมที่เป็นไปได้ทั้งหมดใน C # ดังนั้นความหายนะของรหัสนี้คือทั้งหมดที่ฉันสามารถทำได้

รวมทั้งใช้เวลาประมาณ 30 วินาทีจึงจะเสร็จ ...

ชอบที่จะเห็นทางออกที่ดีกว่า

P=(a,b)=>(int)Math.Pow(a,b);
F=n=>
{
    var l=new List<int>(new int[21].SelectMany((_,x)=>new[]{x,x*2,x*3})){25,50};
    int a=l.Count,b,c,d,e=P(a,n),f;
    var r=new int[e];
    for(b=e;b>0;b--)
        for(c=0;c<n;c++)
        {
            d=b;
            while(d>P(a,c+1))
                d-=P(a,c+1);
            f=(d/P(a,c))-1;
            r[b-1]+=l[f>0?f:0];
        }
    return Enumerable.Range(0,l.Max()*n).Except(r);
}

ลองออนไลน์!

Kotlin , 118 ไบต์

{n:Int->val i=if(n<2)listOf(23,24,31,25,37,41,44,47)
else
List(0){0}
i+List(9){n*60-listOf(17,14,11,8,7,5,4,2,1)[it]}}

ลองออนไลน์!

Perl 5 -n , 96 93 91 ไบต์

$"=',';@b=map{$_,$_*2,$_*3,25,50}0..20;map$r[eval]=1,glob"+{@b}"x$_;map$r[$_]||say,0..$_*60

ลองออนไลน์!

มันเหมาะสำหรับความยาวรหัสมากกว่าเวลาทำงานดังนั้นมันจึงค่อนข้างช้า มันสร้างรายการซ้ำซ้อนจำนวนมากสำหรับแฮชการค้นหา การใช้@bอาเรย์ผ่านuniqความเร็วมันเพิ่มขึ้นอย่างมาก แต่มีค่ามากกว่า 5 ไบต์ดังนั้นฉันจึงไม่ได้ทำ

ภาษา Wolfram (Mathematica) , 81 ไบต์

Complement[Range[60#-1],Total/@Tuples[Flatten[{Array[Times,{3,20}],0,25,50}],#]]&

ลองออนไลน์!

Mathematica มี builtins ที่เกี่ยวข้องไม่กี่ตัวรวมถึงFrobeniusSolveและรูปแบบที่ จำกัด ของIntegerPartitionsแต่ไม่มีพวกมันสั้นกว่าแรงเดรัจฉาน