รับรายการของจำนวนเต็มบวกอย่างเคร่งครัดไปผ่านแต่ละจำนวนที่แตกต่างกันและแทนที่การเกิดขึ้นทั้งหมดของมันด้วยดัชนีต่อเนื่อง (ตามศูนย์หรือหนึ่งตาม) ของซีรีส์ใหม่

ตัวอย่าง

[]→ []/[]

[42]→ [0]/[1]

[7,7,7]→ [0,1,2]/[1,2,3]

[10,20,30]→ [0,0,0]/[1,1,1]

[5,12,10,12,12,10]→ [0,0,0,1,2,1]/[1,1,1,2,3,2]

[2,7,1,8,2,8,1,8,2,8]→ [0,0,0,0,1,1,1,2,2,3]/[1,1,1,1,2,2,2,3,3,4]

[3,1,4,1,5,9,2,6,5,3,5,9]→ [0,0,0,1,0,0,0,0,1,1,2,1]/[1,1,1,2,1,1,1,1,2,2,3,2]

JavaScript (ES6), 26 ไบต์

1 การจัดทำดัชนี

a=>a.map(o=x=>o[x]=-~o[x])

ลองออนไลน์!

ความคิดเห็น

a =>                // a[] = input array
  a.map(o =         // assign the callback function of map() to the variable o, so that
                    // we have an object that can be used to store the counters
    x =>            // for each value x in a[]:
      o[x] = -~o[x] //   increment o[x] and yield the result
                    //   the '-~' syntax allows to go from undefined to 1
  )                 // end of map()

R , 27 ไบต์

function(x)ave(x,x,FUN=seq)

ลองออนไลน์!

คำอธิบาย:

ave(x,x,FUN=seq)แยกเวกเตอร์ออกxเป็นเวกเตอร์ย่อยโดยใช้ค่าของxคีย์การจัดกลุ่ม จากนั้นseqฟังก์ชั่นจะถูกเรียกใช้สำหรับแต่ละกลุ่มและแต่ละผลลัพธ์จะถูกจัดเรียงใหม่ในตำแหน่งกลุ่มเดิม

ดูตัวอย่างที่ดีกว่า:

x <- c(5,7,5,5,7,6)
ave(x, x, FUN=seq) # returns 1,1,2,3,2


 ┌───┬───┬───┬───┬───┐
 │ 5 │ 7 │ 5 │ 5 │ 7 │
 └───┴───┴───┴───┴───┘            
   |   |   |    |  |     
   ▼   |   ▼    ▼  |
 GROUP A : seq(c(5,5,5)) = c(1,2,3)
   |   |   |    |  |     
   ▼   |   ▼    ▼  |
 ┌───┐ | ┌───┬───┐ |
 │ 1 │ | │ 2 │ 3 │ |
 └───┘ | └───┴───┘ |
       ▼           ▼
 GROUP B : seq(c(7,7)) = c(1,2)
       |           |
       ▼           ▼
     ┌───┐       ┌───┐
     │ 1 │       │ 2 │
     └───┘       └───┘ 

   |   |   |   |   |
   ▼   ▼   ▼   ▼   ▼ 
 ┌───┬───┬───┬───┬───┐
 │ 1 │ 1 │ 2 │ 3 │ 2 │
 └───┴───┴───┴───┴───┘  

บันทึก :

seq(y)ฟังก์ชั่นส่งกลับลำดับ1:length(y)ในกรณีที่yมีlength(y) > 1แต่ส่งกลับลำดับจาก1:y[1]ถ้าyมีเพียงองค์ประกอบเดียว
โชคดีที่ไม่ใช่ปัญหาเพราะในกรณีนี้ R - บ่นกับคำเตือนมากมาย -เลือกเฉพาะค่าแรกซึ่งบังเอิญเป็นสิ่งที่เราต้องการ :)

MATL , 4 ไบต์

&=Rs

วิธีนี้เป็นแบบ 1

ลองใช้ที่MATL Online !

คำอธิบาย

ใช้[1,2,3,2]เป็นตัวอย่าง

    # Implicitly grab the input array of length N
    #
    #   [1,2,3,2]
    #
&=  # Create an N x N boolean matrix by performing an element-wise comparison
    # between the original array and its transpose:
    #
    #     1 2 3 2
    #     -------
    # 1 | 1 0 0 0
    # 2 | 0 1 0 1
    # 3 | 0 0 1 0
    # 2 | 0 1 0 1
    #
R   # Take the upper-triangular portion of this matrix (sets below-diagonal to 0)
    #
    #   [1 0 0 0
    #    0 1 0 1
    #    0 0 1 0
    #    0 0 0 1]
    #
s   # Compute the sum down the columns
    #
    #   [1,1,1,2]
    #
    # Implicitly display the result

APL (Dyalog Unicode)ขนาด 7 ไบต์

ขอบคุณมากสำหรับ H.PWiz, Adámและ dzaima สำหรับความช่วยเหลือในการแก้ไขข้อบกพร่องและการแก้ไข

+/¨⊢=,\

ลองออนไลน์!

คำอธิบาย

เวอร์ชัน 10 ไบต์ที่ไม่ใช่โดยปริยายจะอธิบายได้ง่ายกว่าก่อน

{+/¨⍵=,\⍵}

{         } A user-defined function, a dfn
      ,\⍵  The list of prefixes of our input list ⍵
           (⍵ more generally means the right argument of a dfn)
           \ is 'scan' which both gives us our prefixes 
           and applies ,/ over each prefix, which keeps each prefix as-is
    ⍵=     Checks each element of ⍵ against its corresponding prefix
           This checks each prefix for occurrences of the last element of that prefix
           This gives us several lists of 0s and 1s
 +/¨       This sums over each list of 0s and 1s to give us the enumeration we are looking for

เวอร์ชันโดยปริยายทำสามสิ่ง

• ครั้งแรกก็เอาตัวอย่างของ⍵ใช้ใน,\⍵ขณะที่,\ทางด้านขวาด้วยตัวเองโดยปริยายสามารถคิดออกว่ามันควรจะดำเนินการเกี่ยวกับการโต้แย้งที่เหมาะสม
• ประการที่สองสำหรับ⍵=เราแทนที่⍵ด้วย⊢ซึ่งหมายถึงการโต้แย้งที่ถูกต้อง
• ประการที่สามตอนนี้เราไม่มีข้อโต้แย้งที่ชัดเจน (ในกรณีนี้⍵) เราสามารถลบวงเล็บปีกกา{}เพราะฟังก์ชั่นโดยปริยายไม่ใช้

AWK , 14

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

{print++a[$1]}

ลองออนไลน์!

ด้านบนทำดัชนีแบบอิงฐานเดียว หากคุณต้องการทำดัชนีแบบ zero-based มันเป็นไบต์พิเศษ:

{print a[$1]++}

ลองออนไลน์!

J , 7 ไบต์

1#.]=]\

ลองออนไลน์!

1 การจัดทำดัชนี

คำอธิบาย:

]\ all the prefixes (filled with zeros, but there won't be any 0s in the input):
   ]\ 5 12 10 12 12 10
5  0  0  0  0  0
5 12  0  0  0  0
5 12 10  0  0  0
5 12 10 12  0  0
5 12 10 12 12  0
5 12 10 12 12 10

]= is each number from the input equal to the prefix:
   (]=]\) 5 12 10 12 12 10
1 0 0 0 0 0
0 1 0 0 0 0
0 0 1 0 0 0
0 1 0 1 0 0
0 1 0 1 1 0
0 0 1 0 0 1

1#. sum each row:
   (1#.]=]\) 5 12 10 12 12 10
1 1 1 2 3 2

K (OK) , 11 10 ไบต์

-1 ไบต์ขอบคุณ ngn!

{+/'x=,\x}

ลองออนไลน์!

งูหลาม 2 48 ไบต์

lambda a:[a[:i].count(v)for i,v in enumerate(a)]

ลองออนไลน์!

05AB1E , 4 ไบต์

ηε¤¢

ลองออนไลน์! หรือเป็นชุดทดสอบ

คำอธิบาย

ηε     # apply to each prefix of the input list
  ¤¢   # count occurrences of the last element

C # (Visual C # Interactive Compiler)ขนาด 44 ไบต์

x=>x.Select((y,i)=>x.Take(i).Count(z=>z==y))

ลองออนไลน์!

Python 2 , 47 43 ไบต์

f=lambda a:a and f(a[:-1])+[a.count(a[-1])]

ลองออนไลน์!

โซลูชัน 'แบบอิงซ้ำ' แบบเรียกซ้ำ

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

ċṪ$Ƥ

ลองออนไลน์!

สำหรับแต่ละคำนำหน้าของรายการอินพุตมันจะนับจำนวนการเกิดขึ้นขององค์ประกอบสุดท้ายในตัวมันเอง

R , 41 ไบต์

function(x)diag(diffinv(outer(x,x,"==")))

ลองออนไลน์!

ผิดปกติการส่งคืนดัชนี zero-based จะสั้นลงใน R

Ruby, 35 ไบต์

->a{f=Hash.new 0;a.map{|v|f[v]+=1}}

น่าเสียดายที่มันค่อนข้างธรรมดา - สร้างแฮชที่เก็บยอดรวมสำหรับแต่ละรายการที่พบ

ตัวเลือกอื่น ๆ ที่น่าสนุก แต่น่าเสียดายที่ยังไม่สั้นพอ:

->a{a.dup.map{a.count a.pop}.reverse}   # 37
->a{i=-1;a.map{|v|a[0..i+=1].count v}}  # 38

R , 62 43 ไบต์

x=z=scan();for(i in x)z[y]=1:sum(y<-x==i);z

-19 ไบต์ขอบคุณ Giuseppe โดยการลบสิ่งที่และตารางและมีการเปลี่ยนแปลงเพียงเล็กน้อยกับการใช้งาน

เป็นต้นฉบับ

x=z=scan();for(i in names(r<-table(x)))z[which(x==i)]=1:r[i];z

ฉันไม่สามารถแข่งขันกับความรู้ของ Giuseppe ได้ดังนั้นการส่งของฉันจึงค่อนข้างยาวกว่าเขา แต่ใช้ความรู้พื้นฐานของฉันฉันรู้สึกว่าโซลูชันนี้ค่อนข้างฉลาด

r<-table(x) นับจำนวนครั้งที่แต่ละหมายเลขปรากฏขึ้นและเก็บไว้ใน r เพื่อใช้อ้างอิงในอนาคต

names() รับค่าของแต่ละรายการที่ไม่ซ้ำกันในตารางและเราวนซ้ำชื่อเหล่านี้ด้วยการวนรอบ

ส่วนที่เหลือจะตรวจสอบว่ารายการใดมีค่าเท่ากับการวนซ้ำและเก็บลำดับของค่า (ตั้งแต่ 1 ถึงจำนวนรายการของการวนซ้ำ)

ลองออนไลน์!

Haskell , 44 ไบต์

([]#)
x#(y:z)=sum[1|a<-x,a==y]:(y:x)#z
_#e=e

ลองออนไลน์!

คำอธิบาย

สำรวจรายการจากซ้ายไปขวาทำให้รายการxองค์ประกอบที่เข้าชมเริ่มแรก[]:

สำหรับการเผชิญหน้าของทุกนับองค์ประกอบทั้งหมดเท่ากับในรายการyx

Perl 6 , 15 ไบต์

*>>.&{%.{$_}++}

ลองออนไลน์!

คุณสามารถย้าย++ไปยังก่อนหน้า%สำหรับดัชนีที่ใช้หนึ่ง

คำอธิบาย:

*>>.&{        }  # Map the input to
      %          # An anonymous hash
       .{$_}     # The current element indexed
            ++   # Incremented

Haskell , 47 46 ไบต์

(#(*0))
(x:r)#g=g x:r# \y->0^(y-x)^2+g y
e#g=e

ลองออนไลน์!

วิธีการที่แตกต่างจากคำตอบของ BMOซึ่งยาวกว่าเล็กน้อย (และกรุณายืมชุดทดสอบที่ดีของพวกเขาด้วย)

gความคิดที่จะย้ำกว่ารายการป้อนข้อมูลและติดตามจำนวนครั้งในแต่ละองค์ประกอบได้เกิดขึ้นโดยการปรับปรุงฟังก์ชั่น Ungolfed:

f (const 0)
f g (x:r) = g x : f (\ y -> if x==y then 1 + g y else g y) r
f g []    = []

โอกาสการเล่นกอล์ฟที่น่าสนใจเกิดขึ้นสองครั้ง อันดับแรกสำหรับค่าเริ่มต้นgเป็นฟังก์ชันคงที่ซึ่งไม่พิจารณาอาร์กิวเมนต์และส่งคืน0:

const 0  -- the idiomatic way
(\_->0)  -- can be shorter if parenthesis are not needed
min 0    -- only works as inputs are guaranteed to be non-negative
(0*)     -- obvious in hindsight but took me a while to think of

และอย่างที่สองคือการแสดงออกของตัวแปรxและyผลตอบแทน1ถ้าxเท่ากับyและ0อย่างอื่น:

if x==y then 1else 0  -- yes you don't need a space after the 1
fromEnum$x==y         -- works because Bool is an instance of Enum
sum[1|x==y]           -- uses that the sum of an empty list is zero
0^abs(x-y)            -- uses that 0^0=1 and 0^x=0 for any positive x
0^(x-y)^2             -- Thanks to  Christian Sievers!

อาจมีวิธีที่สั้นกว่านี้ ใครมีความคิดบ้าง

Java (JDK) , 76 ไบต์

a->{for(int l=a.length,i,c;l-->0;a[l]=c)for(c=i=0;i<l;)c+=a[l]==a[i++]?1:0;}

ลองออนไลน์!

เครดิต

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

Ruby , 34 ไบต์

->a{r=[];a.map{|x|(r<<x).count x}}

ลองออนไลน์!

ทุบตี, 37 24 ไบต์

f()(for x;{ r+=$[a[x]++]\ ;};echo $r)

TIO

หากถูกต้องจะมีรูปแบบนี้ตามที่ DigitalTrauma แนะนำ

for x;{ echo $[a[x]++];}

TIO

Perl 5, 11 ไบต์

$_=$h{$_}++

TIO

คำอธิบายที่แสดงความคิดเห็น

• $_ตัวแปรพิเศษของ perl ที่มีบรรทัดปัจจุบันเมื่อวนลูปที่อินพุต ( -pหรือ-nสวิทช์)
• $h{$_}++ปรับแผนที่อัตโนมัติ%hและสร้างรายการด้วยคีย์$_และส่วนเพิ่มและให้ค่าก่อนการเพิ่ม
• ตัวแปรพิเศษถูกพิมพ์เนื่องจาก-pสวิตช์-lสวิตช์ลบจุดสิ้นสุดของบรรทัดบนอินพุตและเพิ่มจุดสิ้นสุดของบรรทัดบนเอาต์พุต

Pari / GP , 32 ไบต์

a->p=0;[polcoeff(p+=x^t,t)|t<-a]

$k$องค์ประกอบ -th ในคำตอบคือค่าสัมประสิทธิ์ของ $x^{a_k}$ เทอมในพหุนาม $\sum_{i=1}^kx^{a_i}$.

ลองออนไลน์!

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

Accumulate@#~Coefficient~#&[x^#]&

$k$องค์ประกอบ -th ในคำตอบคือค่าสัมประสิทธิ์ของ $x^{a_k}$ เทอมในพหุนาม $\sum_{i=1}^kx^{a_i}$.

ลองออนไลน์!

ทูตขนาด 23 ไบต์

{`~&>Zip[_,_[0:#_::0]]}

ลองออนไลน์!

คำอธิบาย

{`~&>Zip[_,_[0:#_::0]]}
{                     }    _: input (e.g., [5, 12, 10, 12, 12, 10])
             0:#_          range from 0 to length of input (inclusive)
                           e.g., [0, 1, 2, 3, 4, 5, 6]
                 ::0       descending range down to 0 for each element
                           e.g., [[0], [1, 0], [2, 1, 0], [3, 2, 1, 0], [4, 3, 2, 1, 0], [5, 4, 3, 2, 1, 0], [6, 5, 4, 3, 2, 1, 0]]
           _[       ]      get input elements at those indices
                           e.g., [[5], [12, 5], [10, 12, 5], [12, 10, 12, 5], [12, 12, 10, 12, 5], [10, 12, 12, 10, 12, 5], [nil, 10, 12, 12, 10, 12, 5]]
     Zip[_,          ]     concatenate each value with this array
                           e.g., [[5, [5]], [12, [12, 5]], [10, [10, 12, 5]], [12, [12, 10, 12, 5]], [12, [12, 12, 10, 12, 5]], [10, [10, 12, 12, 10, 12, 5]]]
   &>                      using each sub-array spread as arguments...
 `~                            count frequency
                               e.g. [12, [12, 10, 12, 5]] = 12 ~ [12, 10, 12, 5] = 2

C (gcc) , 65 62 ไบต์

c,d;f(a,b)int*a;{for(;c=d=b--;a[b]=d)for(;c--;d-=a[c]!=a[b]);}

ลองออนไลน์!

-2 ไบต์ขอบคุณASCII-only

สิ่งนี้ให้ความรู้สึกตรงไปตรงมา แต่ฉันไม่สามารถทำให้สั้นลงได้ด้วยวิธีการอื่น

K (ngn / k) , 18 ไบต์

(,/.!'#'=x)@<,/.=x

ลองออนไลน์!

แนวทางเก่า ๆ

K (ngn / k) , 27 23 22 ไบต์

{x[,/.=x]:,/.!'#'=x;x}

ลองออนไลน์!

นี่ไม่ใช่วิธีแก้ปัญหาที่รวดเร็วและสกปรกฉันจะทำการปรับปรุงในภายหลังเมื่อฉันมีโอกาสคิดวิธีที่ดีกว่า

คำอธิบาย:

• =xส่งกลับ dict ที่คีย์เป็นรายการของ x และค่าเป็นดัชนีของพวกเขา ( 3 1 4 5 9 2 6!(0 9;1 3;,2;4 8 10;5 11;,6;,7))
• i: กำหนด dict ให้กับ i
• #:'นับค่าสำหรับแต่ละคีย์ ( 3 1 4 5 9 2 6!2 2 1 3 2 1 1)
• !:' แจกแจงแต่ละค่า (3 1 4 5 9 2 6!(0 1;0 1;,0;0 1 2;0 1;,0;,0) )
• ,/.: แยกค่าและรายการที่เรียบ (0 1 0 1 0 0 1 2 0 1 0 0 )
• x[,/.:i]: แยกดัชนีจาก i ย่อและกำหนดค่าแต่ละค่าจากรายการด้านขวาที่ดัชนีเหล่านี้

น่ารำคาญรายการอัพเดท แต่ค่า Null ถูกส่งคืนโดยการมอบหมายดังนั้นฉันต้องส่งคืนรายการหลังเครื่องหมายอัฒภาค (;x )

แก้ไข:ลบลำไส้ใหญ่ภายนอก

edit2:ลบการบ้านที่ไม่จำเป็นออก

เรติน่า 0.8.2 , 30 ไบต์

\b(\d+)\b(?<=(\b\1\b.*?)+)
$#2

ลองออนไลน์! ลิงค์มีกรณีทดสอบ 1 การจัดทำดัชนี คำอธิบาย: ส่วนแรกของ regex จับคู่แต่ละจำนวนเต็มในรายการในทางกลับกัน กลุ่ม lookbehind ตรงกับการเกิดขึ้นของจำนวนเต็มนั้นในแต่ละบรรทัดจนถึงและรวมถึงจำนวนเต็มปัจจุบัน จำนวนเต็มจะถูกแทนที่ด้วยจำนวนการแข่งขัน

แบตช์ 61 ไบต์

@setlocal
@for %%n in (%*)do @set/ac=c%%n+=1&call echo %%c%%

1 การจัดทำดัชนี เนื่องจากการแทนที่ตัวแปรเกิดขึ้นก่อนการแยกวิเคราะห์set/aคำสั่งจะสิ้นสุดการเพิ่มชื่อตัวแปรที่กำหนดโดยการต่อตัวอักษรcกับจำนวนเต็มจากรายการ (ตัวแปรตัวเลขเริ่มต้นเป็นศูนย์ในชุด) ผลลัพธ์จะถูกคัดลอกไปยังจำนวนเต็มอื่นเพื่อความสะดวกในการส่งออก (แม่นยำยิ่งขึ้นจะช่วยประหยัดไบต์)

Tcl , 48 ไบต์

proc C L {lmap n $L {dict g [dict inc D $n] $n}}

ลองออนไลน์!

Japtet, 8 ไบต์

£¯YÄ è¶X

ลองที่นี่

£¯YÄ è¶X
             :Implicit input of array U
£            :Map each X at 0-based index Y
 ¯           :  Slice U to index
  YÄ         :    Y+1
     è       :  Count the elements
      ¶X     :    Equal to X