บทนำ

สมมติว่าฉันมีรายชื่อของจำนวนเต็มพูดL = [-1,2,2,1,2,7,1,4] ฉันชอบที่จะมีความสมดุลในชีวิตของฉันดังนั้นฉันมีความสุขที่ได้เห็นมันมีองค์ประกอบแปลก ๆ มากมายเช่นเดียวกับองค์ประกอบ ยิ่งไปกว่านั้นมันยังมีองค์ประกอบจำนวนเท่ากันในคลาสโมดูโลทั้งหมด 3 ตัวที่มีองค์ประกอบใน:

         [-1,2,2,1,2,7,1,4]
0 mod 3:
1 mod 3:         1   7 1 4
2 mod 3:  -1 2 2   2

น่าเสียดายสำหรับคลาสโมดูโลของ 4 นี้ไม่มีอีกต่อไป โดยทั่วไปเราบอกว่ารายการที่ไม่ว่างเปล่าคือโมดูโลแบบสมดุลNหากมีจำนวนองค์ประกอบเท่ากันในคลาสโมดูโลทั้งหมดของNซึ่งจำนวนนี้ไม่ใช่ 0 รายการด้านบนLคือโมดูโลแบบสมดุล 2 และ 3 แต่แบบโมดูโลแบบไม่สมดุล 4

งาน

ข้อมูลที่คุณป้อนเป็นรายการที่ไม่ว่างLของจำนวนเต็มในรูปแบบที่เหมาะสม ผลลัพธ์ของคุณคือรายการของจำนวนเต็มN ≥ 2ซึ่งLเป็นโมดูโลแบบสมดุลNอีกครั้งในรูปแบบที่สมเหตุสมผล ลำดับของผลลัพธ์ไม่สำคัญ แต่ไม่ควรมีรายการที่ซ้ำกัน

มันรับประกันได้ว่ามีเพียงจำนวน จำกัด ในผลลัพธ์ซึ่งหมายความว่าองค์ประกอบทั้งหมดของLเกิดขึ้นไม่เท่ากัน ตัวอย่างของปัจจัยการผลิตที่ไม่ถูกต้อง[3] , [1,2]และ[0,4,4,0,3,3] ขอให้สังเกตว่าจำนวนมากที่สุดในการส่งออกที่มากที่สุดสูงสุด (L) - นาที (L)

นับไบต์ต่ำสุดในแต่ละภาษาชนะและมาตรฐานรหัสกอล์ฟกฎ

กรณีทดสอบ

[1,1,2] -> []
[1,1,5] -> [2,4]
[1,1,24] -> [23]
[1,2,3,2] -> [2]
[12,12,-4,20] -> [2,3,4,6,8,12,24]
[1,1,12,12,-3,7] -> [3,10]
[-1,2,2,1,2,7,1,4] -> [2,3]
[4,-17,-14,-18,-18,3,5,8] -> []
[-18,0,-6,20,-13,-13,-19,13] -> [2,4,19]
[-11,-19,-19,3,10,-17,13,7,-5,16,-20,20] -> []
[3,0,1,5,3,-6,-16,-20,10,-6,-11,11] -> [2,4]
[-18,-20,14,13,12,-3,14,6,7,-19,17,19] -> [2,3]
[-16,-9,6,13,0,-17,-5,1,-12,-4,-16,-4] -> [3,9]
[-97,-144,3,53,73,23,37,81,-104,41,-125,70,0,111,-88,-2,25,-112,54,-76,136,-39,-138,22,56,-137,-40,41,-141,-126] -> [2,3,6]

code-golf arithmetic array-manipulation

— Zgarb
แหล่งที่มา

บางภาษาที่คำนวณขอบเขตบนโดยอัตโนมัติ (อาจเป็น Brachylog) จะมีข้อได้เปรียบ ...

— user202729

4

05AB1E , 11 ไบต์

ÄOL¦ʒ%{γ€gË

ลองออนไลน์!

ÄOL¦ʒ%{γ€gË  | Full program.

Ä            | Absolute value (element-wise).
 O           | Sum.
  L          | 1-based inclusive range.
   ¦         | Remove the first element (generates the range [2 ... ^^]).
    ʒ        | Filter / Select.
     %       | Modulo of the input with the current integer (element-wise).
      {      | Sort.
       γ     | Group into runs of adjacent elements.
        €g   | Get the length of each.
          Ë  | Are all equal?

— นาย Xcoder
แหล่งที่มา

4

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

ขอบคุณที่ไม่ใช่ต้นไม้สำหรับการบันทึก 4 ไบต์

Cases[Range[2,#.#],n_/;Equal@@Last/@Tally[#~Mod~n]]&

ลองออนไลน์!

เคล็ดลับการเล่นกอล์ฟหลักคือการใช้~~ผลรวมของค่าแน่นอน (หรือ 1 บรรทัดฐาน)~~ผลรวมของค่า Squared Max@#-Min@#คำนวณเป็นผลิตภัณฑ์จุดด้วยตัวเองขณะที่ผูกไว้บนแทน มิฉะนั้นจะใช้ข้อมูลจำเพาะอย่างแท้จริง

— Martin Ender
แหล่งที่มา

3

Perl 6 , 52 48 ไบต์

{grep {[==] .classify(*X%$^a).values},2.. .max-.min}

ทดสอบมัน

{grep {[==] bag($_ X%$^a).values},2.. .max-.min}

ทดสอบมัน

ขยาย:

{  # bare block lambda with implicit parameter ｢$_｣

  grep

    {  # bare block lambda with placeholder parameter ｢$a｣

      [==]           # reduce with &infix:«==» (are the counts equal to each other)

        bag(         # group moduluses together

          $_ X% $^a  # find all the moduluses using the current divisor ｢$a｣

        ).values     # the count of each of the moduluses
    },

    2 .. .max - .min # all possible divisors
}

— Brad Gilbert b2gills
แหล่งที่มา

3

Haskell , 85 84 ไบต์

f l=[n|n<-[2..sum$abs<$>l],all.(==)=<<head$[r|m<-[0..n],_:r<-[[0|x<-l,mod x n==m]]]]

ลองออนไลน์! ใช้ผลรวมของค่าแน่นอนเป็นสูงสุดจากคำตอบที่มาร์ตินพลิก

แก้ไข: -1 ไบต์ขอบคุณØrjan Johansen

คำอธิบาย:

f l=                             -- Given a list of numbers l,
  [n|n<-                       ] -- return a list of all numbers n of the range
    [2..sum$abs<$>l],            -- from 2 to the sum of the absolute values of l
      all.(==)=<<head$           -- for which all elements of the following list are equal:
        [r|m<-[0..n],         ]  -- A list r for each number m from 0 to n, where
          _:r<-[             ]   -- r is the tail of a list (to filter out empty lists)
          [0|x<-l,mod x n==m]    -- of as many zeros as elements of l mod n equal m.

— Laikoni
แหล่งที่มา

2

Husk , 13 ไบต์

f₅⁰…2ṁa⁰
Λ≈k%

ลองออนไลน์!

— H.PWiz
แหล่งที่มา

2

R , 75 72 ไบต์

function(L){for(x in 2:(max(L)-min(L)))F=c(F,!sd(table(L%%x)))
which(F)}

ลองออนไลน์!

ใช้tableเพื่อคำนวณจำนวนของโมดูโลจำนวนเต็มแต่ละxตัว ค่าเบี่ยงเบนมาตรฐานsdของชุดตัวเลขคือศูนย์ถ้ามันเท่ากันทั้งหมดและบวกอย่างอื่น ดังนั้นจึง!sd(table(L%%x))เป็นTRUEที่ใดก็ได้Lmod mod balance xและ false อย่างอื่น ค่าเหล่านี้จะถูกรวมเข้าFด้วยกัน

whichจากนั้นส่งคืนดัชนีของค่าที่แท้จริงจากฟังก์ชัน ตั้งแต่การจัดทำดัชนี R ใช้ 1-based และFเป็นครั้งแรกมีความยาวหนึ่งเวกเตอร์ที่มีค่านี้ได้อย่างถูกต้องจะคืนค่าเริ่มต้นด้วยFALSE2

หนึ่งอาจคาดหวังในตัวฟังก์ชั่นrangeการคำนวณช่วงของชุดข้อมูลคือแต่เศร้ามันคำนวณและส่งกลับเวกเตอร์max(D)-min(D)c(min(D), max(D))

— จูเซปเป้
แหล่งที่มา

2

ทำความสะอาด , 121 ไบต์

ใช้เคล็ดลับผลรวมจากคำตอบของ Martin Ender

แข็งแรงเล่นกอล์ฟ:

import StdEnv   
f l=[n\\n<-[2..sum(map abs l)]|length(removeDup[length[m\\m<-[(e rem n+n)rem n\\e<-l]|m==c]\\c<-[0..n]])<3]

อ่านได้:

import StdEnv
maximum_modulus l = sum (map abs l)
// mod, then add the base, then mod again (to fix issues with negative numbers)
list_modulus l n = [((el rem n) + n) rem n \\ el <- l]
// count the number of elements with each mod equivalency
equiv_class_count l n = [length [m \\ m <- list_modulus l n | m == c] \\ c <- [0..n]]
// for every modulus, take where there are only two quantities of mod class members
f l=[n \\ n <- [2..maximum_modulus l] | length (removeDup (equiv_class_count l n)) < 3]

ลองออนไลน์!

— Οurous
แหล่งที่มา

1

เยลลี่ 12 ไบต์

⁹%LƙE
ASḊçÐf

ลองออนไลน์!

ขอบคุณuser202729สำหรับการบันทึกไบต์และMartin Ender (ทางอ้อม) สำหรับการบันทึกไบต์

มันทำงานอย่างไร

⁹%LƙE ~ Helper link. Let's call the argument N.

⁹%    ~ Modulo the input by N (element-wise).
  Lƙ  ~ Map with length over groups formed by consecutive elements.
    E ~ All equal?

ASḊçÐf ~ Main link.

AS     ~ Absolute value of each, sum.
  Ḋ    ~ Dequeue (create the range [2 ... ^]).
   çÐf ~ Filter by the last link called dyadically.

ทางเลือกหนึ่งซับ 12 ไบต์สามารถลองออนไลน์ได้!

— นาย Xcoder
แหล่งที่มา

ฉันลบคำตอบของฉันเพราะมันซ้ำซ้อนตอนนี้ ขอบคุณ Martin สำหรับAS( SหนอAbsolutes) ด้วย

— user202729

1

เป็นข้อมูลอ้างอิงสำหรับผู้อ่านในอนาคตผมชี้แจงเหตุผลที่ḟ0ไม่จำเป็นต้องใช้ในการแชท

— Mr. Xcoder เมื่อ

1

Python 3, 120 102 ไบต์

ไม่สวยกอล์ฟ

-18 ไบต์ขอบคุณที่นาย Xcoder

f=lambda a,i=2:[]if i>max(a)-min(a)else(len({*map([k%i for k in a].count,range(i)),0})<3)*[i]+f(a,i+1)

ลองออนไลน์!

— Colera Su
แหล่งที่มา

1

MATL , 19 ไบต์

-4 ไบต์ขอบคุณLuis Mendo!

S5L)d:Q"G@\8#uZs~?@

ลองออนไลน์!

ท่าเรือของฉันคำตอบในการวิจัย

Suppose we have input [12,12,-4,20]
         # (implicit input), stack: [12,12,-4,20]
S        # sort the list, stack: [-4, 12, 12, 20]
5L       # push [1 0], stack: [[-4, 12, 12, 20]; [1 0]]
)        # 1-based modular index, stack: [-4, 20]
d        # successive differences, stack: [24]
:        # generate 1:(max(data)-min(data)), stack: [[1...24]]
Q        # increment to start at 2, stack: [[2...25]]
"        # for each element in [2...25]
 G       # push input, stack: [[12,12,-4,20]]
 @       # push loop index, stack: [[12,12,-4,20], 2]
 \       # compute modulo, stack: [[0,0,0,0]]
 8#      # use alternate output spec, unique has 4 outputs, so 8 keeps only the 4th
 u       # unique. 4th output is the counts of each unique value, stack: [4]
 Zs      # compute standard deviation, stack: [0]
 ~       # logical negate, stack: [T]
 ?       # if true,
  @      # push loop index
         # (implicit end of if)
         # (implicit end of for loop)
         # (implicit output of stack as column vector

— จูเซปเป้
แหล่งที่มา

คุณสามารถย่อให้เล็กลงใช้S5L)dแทนX>GX<-และ8#uแทนFFFT#u

— Luis Mendo

@ LuisMendo ฉันไม่สามารถหาวิธีที่จะผลักดัน[1 0](แต่ฉันรู้ว่ามันเป็นไปได้) ดังนั้นจึง5Lมีประโยชน์และฉัน*still* really need to go and properly read the docs for # `:( แต่ขอขอบคุณ!

— Giuseppe

สำหรับการ#ระบุจำนวนที่มากกว่าจำนวนสูงสุดของเอาต์พุตเพียงแค่เลือกแต่ละเอาต์พุต ด้วยฟังก์ชั่uสูงสุดคือ4เพื่อให้5#uเป็นT#u, 6#uเป็นFT#uฯลฯ

— หลุยส์ Mendo

0

JavaScript (ES6), 117 ไบต์

ส่งออกรายการค่าคั่นด้วยช่องว่าง

a=>(g=m=>a.map(n=>x[k=(z|=m/2<n|m/2<-n,n%m+m)%m]=-~x[k],y=z=0,x=[])|z?(x.some(x=>x-(y?y:y=x))?'':m+' ')+g(m+1):'')(2)

กรณีทดสอบ

แสดงตัวอย่างรหัส

let f =

a=>(g=m=>a.map(n=>x[k=(z|=m/2<n|m/2<-n,n%m+m)%m]=-~x[k],y=z=0,x=[])|z?(x.some(x=>x-(y?y:y=x))?'':m+' ')+g(m+1):'')(2)

console.log(f([1,1,2])) // []
console.log(f([1,1,5])) // [2,4]
console.log(f([1,1,24])) // [23]
console.log(f([1,2,3,2])) // [2]
console.log(f([12,12,-4,20])) // [2,3,4,6,8,12,24]
console.log(f([1,1,12,12,-3,7])) // [3,10]
console.log(f([-1,2,2,1,2,7,1,4])) // [2,3]
console.log(f([4,-17,-14,-18,-18,3,5,8])) // []
console.log(f([-18,0,-6,20,-13,-13,-19,13])) // [2,4,19]
console.log(f([-11,-19,-19,3,10,-17,13,7,-5,16,-20,20])) // []
console.log(f([3,0,1,5,3,-6,-16,-20,10,-6,-11,11])) // [2,4]
console.log(f([-18,-20,14,13,12,-3,14,6,7,-19,17,19])) // [2,3]
console.log(f([-16,-9,6,13,0,-17,-5,1,-12,-4,-16,-4])) // [3,9]
console.log(f([-97,-144,3,53,73,23,37,81,-104,41,-125,70,0,111,-88,-2,25,-112,54,-76,136,-39,-138,22,56,-137,-40,41,-141,-126])) // [2,3,6]

ขยายตัวอย่างข้อมูล

— Arnauld
แหล่งที่มา

0

Clojure, 91 ไบต์

#(for[i(range 2(apply +(map * % %))):when(apply =(vals(frequencies(for[j %](mod j i)))))]i)

การใช้frequenciesไม่เหมาะกับการเขียนโค้ด

— NikoNyrh
แหล่งที่มา

0

J, 38 ไบต์

[:}.@I.([:i.1#.|)(1=1#.[:~:|#/.])"0 1]

เครดิตไปที่ Mr. Xcoder สำหรับผลรวมของเคล็ดลับค่าสัมบูรณ์

แก้ไขในลิงค์ TIO หากคุณต้องการ - ฉันรีบไปหามาแล้ว

คำอธิบายและการเชื่อมโยง TIO เร็ว ๆ นี้ (ish)

— โคล
แหล่งที่มา

0

APL (Dyalog) , 43 41 38 30 ไบต์

รหัสในโค้ดบอกเล่าเรื่องราวทั้งหมด

บันทึก 8 ไบต์ด้วย @ Adám

∊x⊆⍨1=⊂(≢∘∪1⊥|∘.=|)¨⍨x←1+∘⍳1⊥|

ลองออนไลน์!

— ยูเรียล
แหล่งที่มา

Train + Depth → Rank, 30 bytes:∊x⊆⍨1=⊂(≢∘∪1⊥|∘.=|)¨⍨x←1+∘⍳1⊥|

— Adám

รายการปรับสมดุล

บทนำ

งาน

กรณีทดสอบ

05AB1E , 11 ไบต์

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

Perl 6 , 52 48 ไบต์

ขยาย:

Haskell , 85 84 ไบต์

Husk , 13 ไบต์

R , 75 72 ไบต์

ทำความสะอาด , 121 ไบต์

เยลลี่ 12 ไบต์

มันทำงานอย่างไร

Python 3, 120 102 ไบต์

MATL , 19 ไบต์

JavaScript (ES6), 117 ไบต์

กรณีทดสอบ

Clojure, 91 ไบต์

J, 38 ไบต์

APL (Dyalog) , 43 41 38 30 ไบต์