วัตถุประสงค์ของความท้าทายนี้คือการหาอาร์เรย์ของจำนวนเต็มบวกและแจกแจงดัชนีจัดกลุ่มองค์ประกอบต่างๆ

การแจงนับโดยไม่มีการทำซ้ำใด ๆ ทำได้โดยเพียงแค่ส่งออกอาร์เรย์ของคู่(value, index)ตัวอย่างเช่น[3, 4, 13, 9, 2]=>[[3,1],[4,2],[13,3],[9,4],[2,5]] =>

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

ในผลลัพธ์กลุ่มจะต้องเรียงลำดับตามการเกิดขึ้นครั้งแรกและดัชนีจะต้องเรียงลำดับจากน้อยไปหามาก องค์ประกอบจะต้องเป็นอันดับแรกในกลุ่มก่อนที่ดัชนี ผลลัพธ์อาจเป็นดัชนี 0 หรือ 1 คุณอาจถือว่าอาร์เรย์มีองค์ประกอบอย่างน้อยหนึ่งองค์ประกอบ

กรณีทดสอบ:

Input           | Output (One-indexed)
[3, 2, 2, 3]    | [[3, 1, 4], [2, 2, 3]]
[17]            | [[17, 1]]
[1, 1]          | [[1, 1, 2]]
[1, 1, 2]       | [[1, 1, 2], [2, 3]]
[1, 2, 3, 4]    | [[1, 1], [2, 2], [3, 3], [4, 4]]
[1, 1, 1, 1]    | [[1, 1, 2, 3, 4]]

นี่คือcode-golfไบต์ที่น้อยที่สุดชนะ!

Dyalog APL ขนาด 5 ไบต์

(⊂,)⌸

ลองออนไลน์!

,⌸เกือบ 2 ไบต์ใช้งานได้ แต่มีศูนย์ต่อท้าย: /

J , 12 ไบต์

~.,&.><@I.@=

ศูนย์การจัดทำดัชนี

ลองออนไลน์!

หากคุณสามารถลบงานทั้งหมดที่ฉันทำกับกล่องคุณอาจลดจำนวน bytec ลงได้เล็กน้อย ฉันจะดูว่าฉันจะเข้าใจได้ไหม

คำอธิบาย

นี่อาจจะเร็วเกินไปที่จะอธิบาย (ควรจะมีสนามกอล์ฟเพิ่มเติม)

~. ,&.> <@I.@=
             =  Self-classify (comparison of each unique element to array)
            @   Composed with
          I.    Indices of ones (where it's equal)
         @      Composed with
        <       Boxed (how we deal with arrays of unequal length)
   ,&.>         Joined with
      >          Unbox each
   ,             Concatenate
    &.           Box again
~.              Unique elements

05AB1E , 10 ไบต์

ÙεDIQƶ0K)˜

ลองออนไลน์!

คำอธิบาย

Ù             # remove duplicates
 ε            # apply to each element
  D           # duplicate
   IQ         # compare for equality with input
     ƶ        # multiply each element by its index (1-based)
      0K      # remove zeroes
        )˜    # wrap in a flattened list

Python 3 , 83 82 ไบต์

^{-1 ไบต์ต้องขอบคุณ Mego}

lambda x:[[n]+[j for j,m in enumerate(x)if m==n]for n in sorted({*x},key=x.index)]

ลองออนไลน์!

Haskell , 48 ไบต์

import Data.List
f l=nub[k:elemIndices k l|k<-l]

ลองออนไลน์!

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

Flat=>Positions

ลองออนไลน์!

นี้เป็นกรณีที่น่าสนใจของรูปแบบการดำเนินการของ=> Mapเมื่อได้รับสองอาร์กิวเมนต์ทำงานfและg, Mapผลตอบแทนการทำงานf => g[x]มากกว่าxมากกว่านั่นคือ RHS ถูกใช้กับอินพุตจากนั้น LHS จะถูกแม็พ

builtin Positionsสร้างอาร์เรย์ที่แสดงถึงการจัดกลุ่มรายการตามดัชนี ตามค่าเริ่มต้นเมื่อไม่ได้ระบุอาร์กิวเมนต์ที่สองPositionsจะใช้อาร์กิวเมนต์แรก Flatจะถูกแมปกับแต่ละรายการตามที่เป็นสิ่งที่คำถามต้องการ

โซลูชั่นทางเลือก

31 ไบต์

MapArgs[Concat#~Indices,Unique]

ลองออนไลน์!

เป็นทางเลือกที่สั้นและสวยในตัว MapArgsเป็นฟังก์ชั่นที่ชอบMapยกเว้นคุณสามารถป้อนอาร์กิวเมนต์พิเศษลงไปได้ ยกตัวอย่างเช่นเป็นMapArgs[{_1 + _2}, 1..3, 3] [4, 5, 6]เหมือนMapมันจะกลายเป็นแกงกะหรี่เมื่อมาพร้อมกับสองอาร์กิวเมนต์ทำงาน ฟังก์ชั่นที่แมปคือConcat#~Indicesซึ่งเป็นทางแยก ทางแยกนี้จะใช้กับUniqueรายการของอินพุตและอินพุตเอง สิ่งนี้แปลเป็นConcat[_, Indices[_2, _]](ด้วยอาร์กิวเมนต์ของการIndicesสลับผ่าน~) ซึ่งจับคู่อิลิเมนต์ที่ถูกแม็พ ( _) กับดัชนีของอิลิเมนต์ที่กล่าวถึง_ในอาร์เรย์อินพุตซึ่งคือ_2(ตามที่ ffed ผ่านMapArgs)

43 ไบต์

{Flat=>Zip[Unique[_],Indices[_,Unique[_]]]}

ลองออนไลน์!

นี่เป็นเพียงการผสมผสานที่ละเอียดมากขึ้น (แต่ยังรวมถึงการอ่านที่ง่ายขึ้น) ของโซลูชัน # 1 และ # 2

เยลลี่ 6 ไบต์

Q;"ĠṢ$

ลองออนไลน์!

คำอธิบาย:

Q;"ĠṢ$
Q      Keep the first occurrence of each element
     $ Last two links as a monad
   Ġ    Group indices of equal elements, then sort the resulting list of groups by the element they point to
    Ṣ   Sort; used to re-order the list of groups based on first occurrence instead
  "    Vectorize link between two arguments (the first occurrences and the group list)
 ;      Concatenate

Pyth , 7 ไบต์

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

{+VQxRQ

ลองที่นี่! ทางเลือก

อย่างไร?

{+ VQxRQ - โปรแกรมเต็มรูปแบบ

     RQ - สำหรับแต่ละองค์ประกอบ ...
    x - รับดัชนีทั้งหมด
 + V - และใช้การต่อข้อมูลเวกเตอร์
   Q - ด้วยการป้อนข้อมูล
{- ซ้ำซ้อน

MATL , 8 ไบต์

u"@tG=fh

ลองใช้ที่MATL Online

คำอธิบาย

        # Implicitly get the input
u       # Compute the unique values
"       # For each unique value, N
  @     # Push the value N to the stack
  t     # Duplicate N
  G     # Grab the input
  =f    # Get the 1-based indices of the elements that equal N
  h     # Horizontally concatenate N with the indices
        # Implicitly display the result

ที่จริงแล้ว 24 ไบต์

;;╗⌠╝╜r⌠╜E╛=⌡░⌡M@Z⌠♂i⌡M╔

ลองออนไลน์!

คำอธิบาย:

;;╗⌠╝╜r⌠╜E╛=⌡░⌡M@Z⌠♂i⌡M╔
;;                        make two copies of input
  ╗                       save a copy to register 0
   ⌠╝╜r⌠╜E╛=⌡░⌡M          map over input:
    ╝                       save the element in register 1
     ╜r                     indices for input
       ⌠╜E╛=⌡░              filter:
        ╜E                    element in input at index
          ╛=                  equals element for outer map (from register 1)
                @Z        swap, zip input with map result
                  ⌠♂i⌡M   flatten each element in zipped list
                       ╔  uniquify

R , 56 ไบต์

function(x)lapply(unique(x),function(y)c(y,which(x==y)))

ลองออนไลน์!

นี่เป็นความพยายามครั้งแรกของฉันที่ codegolf ดังนั้นข้อเสนอแนะใด ๆ ยินดีต้อนรับ!

ภาษา Wolfram (Mathematica)ขนาด 40 ไบต์

บันทึกเป็นไบต์ขอบคุณ Martin Ender

KeyValueMap[{#,##&@@#2}&]@*PositionIndex

ลองออนไลน์!

JavaScript (ES6), 64 ไบต์

0 จัดทำดัชนีแล้ว

a=>a.map((v,i)=>a[-v]?a[-v].push(i):a[-v]=[v,i]).filter(x=>x[0])

หมายเหตุสิ่งนี้ถือว่าตัวเลขอินพุตเป็นค่าบวกดังนั้น v> 0

ทดสอบแก้ไขเล็กน้อย (1 ดัชนี) เพื่อให้ตรงกับกรณีทดสอบ

var F=
a=>a.map((v,i)=>a[-v]?a[-v].push(i+1):a[-v]=[v,i+1]).filter(x=>x[0])

test = [ // output 1 indexed
  [3, 2, 2, 3],//    | [[3, 1, 4], [2, 2, 3]]
  [17], //           | [[17, 1]]
  [1, 1], //         | [[1, 1, 2]]
  [1, 1, 2], //      | [[1, 1, 2], [2, 3]]
  [1, 2, 3, 4], //   | [[1, 1], [2, 2], [3, 3], [4, 4]]
  [1, 1, 1, 1] //    | [[1, 1, 2, 3, 4]] 
]

test.forEach(t => {
  x = F(t)
  console.log(JSON.stringify(t)+ ' -> ' + JSON.stringify(x))
})

APL NARS 24 ไบต์ 12 ตัวอักษร

{∪⍵,¨⍸¨⍵=⊂⍵}

-4 ไบต์ด้วยการทดสอบของอดัม:

  f←{∪⍵,¨⍸¨⍵=⊂⍵}

  ⎕fmt f 3 2 2 3
┌2────────────────┐
│┌3─────┐ ┌3─────┐│
││ 3 1 4│ │ 2 2 3││
│└~─────┘ └~─────┘2
└∊────────────────┘
  ⎕fmt f 17
┌1──────┐
│┌2────┐│
││ 17 1││
│└~────┘2
└∊──────┘
  ⎕fmt f 1 1
┌1───────┐
│┌3─────┐│
││ 1 1 2││
│└~─────┘2
└∊───────┘
  ⎕fmt f 1 2 3 4
┌4──────────────────────────┐
│┌2───┐ ┌2───┐ ┌2───┐ ┌2───┐│
││ 1 1│ │ 2 2│ │ 3 3│ │ 4 4││
│└~───┘ └~───┘ └~───┘ └~───┘2
└∊──────────────────────────┘
  ⎕fmt f 1 1 1 1
┌1───────────┐
│┌5─────────┐│
││ 1 1 2 3 4││
│└~─────────┘2
└∊───────────┘

SWI-Prolog , 165 117 ไบต์

-48 ไบต์ขอบคุณที่เปิดฉากเคล็ดลับการเล่นกอล์ฟ

h(I):-I+[]-1.
[H|T]+R-N:-(select([H|A],R,[H|L],S),!,append(A,[N],L);append(R,[[H,N]],S)),O is N+1,(T+S-O,!;write(S)).

ลองออนไลน์!

คำอธิบาย

% The predicate that prints the grouped duplicates. It's a wrapper because we
% need some extra arguments to keep state:
enumerate_duplicates(Input) :- enumerate(Input, [], 1).

% In the golfed code, operators are used to represent this predicate.
% See /codegolf//a/153160
% Go through the input, build up the result on the way and print it.
enumerate([Head|Tail], Result, Index) :-
    (
        % If our current Result already contains a list that starts with the
        % current first element in our input, Head, NewIndexes will become the
        % new "tail" of that list in our next result list:
        select([Head|OldIndexes], Result, [Head|NewIndexes], NextResult),
        % Don't backtrack before this if goals below this fail:
        !,
        % The as-yet-unknown NewIndexes above should in fact be the same as
        % OldIndexes with our current Index appended:
        append(OldIndexes, [Index], NewIndexes)
    % Use ; instead of separate predicate rules.
    % See /codegolf//a/67032
    ;
        % If our current Result did not already contain Head, append a new list
        % for it with the current index:
        append(Result, [[Head, Index]], NextResult)
    ),
    % Increment our index counter:
    NextIndex is Index + 1,
    (
        % And continue with the rest of our input:
        enumerate(Tail, NextResult, NextIndex),
        % Don't backtrack if the above succeeded:
        !
    ;
        % If Tail is no longer a multi-element list, we're done. Print:
        write(NextResult)
    ).

K (oK) , 10 ไบต์

วิธีการแก้:

(!x),'.x:=

ลองออนไลน์!

ตัวอย่าง:

(!x),'.x:=,17
,17 0
(!x),'.x:=1 1
,1 1 2
(!x),'.x:=1 0 1
(1 1 2
2 3)
(!x),'.x:=1 2 3 4
(1 0
2 1
3 2
4 3)

คำอธิบาย:

ทำการประเมินผลจากขวาไปซ้าย ฉันยังคิดว่านี่เป็นสนามกอล์ฟที่สามารถเพิ่มเติมได้ ...

(!x),'.x:= / the solution
         = / group input into dictionary, item!indices
       x:  / save as variable x
      .    / value of x (the indices)
    ,'     / concatenate (,) each-both (') with
(  )       / do this together
 !x        / the key of x (i.e. the items)

หมายเหตุ:

• 14 ไบต์โดยไม่ประกาศx, (,/)'+(!;.)@'=เลิกใช้วิธีนี้ ...

Julia 0.6 , 37 ไบต์

ขอบคุณ Pavel สำหรับการปิด 1 ไบต์

y->[[x;findin(y,[x])]for x=unique(y)]

ลองออนไลน์!

JavaScript (ES6), 68 ไบต์

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

a=>a.map(p=(x,i)=>1/p[x]?b[p[x]].push(i):b.push([x,p[x]=i]),b=[])&&b

กรณีทดสอบ

let f =

a=>a.map(p=(x,i)=>1/p[x]?b[p[x]].push(i):b.push([x,p[x]=i]),b=[])&&b

console.log(JSON.stringify(f([3, 4, 13, 9, 2]))) // [[3,0],[4,1],[13,2],[9,3],[2,4]]
console.log(JSON.stringify(f([3, 4, 13, 3, 2]))) // [[3,0,3],[4,1],[13,2],[2,4]]
console.log(JSON.stringify(f([3, 2, 2, 3]    ))) // [[3,0,3],[2,1,2]]
console.log(JSON.stringify(f([17]            ))) // [[17,0]]
console.log(JSON.stringify(f([1, 1]          ))) // [[1,0,1]]
console.log(JSON.stringify(f([1, 1, 2]       ))) // [[1,0,1],[2,2]]
console.log(JSON.stringify(f([1, 2, 3, 4]    ))) // [[1,0],[2,1],[3,2],[4,3]]
console.log(JSON.stringify(f([1, 1, 1, 1]    ))) // [[1,0,1,2,3]]

PHP 4.1, 88 ไบต์

ใช่มันค่อนข้างยาว

สิ่งนี้จะถือว่าเป็นไฟล์เริ่มต้น php.ini ( short_open_tag = Onและregister_globals = On)

<?foreach($A as$k=>$v){!$b[$v]&&$b[$v]=array($v);$b[$v][]=$k;}print_r(array_values($b));

สิ่งนี้นำเสนออาร์เรย์ในแบบที่มนุษย์อ่านได้
ค่าสามารถส่งผ่านโดย POST, GET และ COOKIE ภายในคีย์ "A"

สำหรับรุ่นที่ทันสมัยหนึ่งสามารถใช้ (90 ไบต์):

<?foreach($_GET[A]as$k=>$v){if(!$b[$v])$b[$v]=[$v];$b[$v][]=$k;}print_r(array_values($b));

ผลลัพธ์จะเหมือนกันยกเว้นค่าทั้งหมดจะต้องถูกส่งผ่านพารามิเตอร์ GET ภายในคีย์ "A"

Perl 6 ,  63  61 bytes

*.pairs.classify(*.value).map({.key,|.value».key}).sort(*.[1])

ทดสอบ (ตาม 0)

{sort *.[1],map {.key,|.value».key},classify *.value,.pairs}

ทดสอบ (อัลกอริทึมเดียวกันตาม 0)

ขยาย:

# WhateverCode lambda (this is the parameter) 
*\                                            # [3,2,2,3]

# get a list of Pairs (zero based index => value)
.pairs                                        # (0=>3,1=>2,2=>2,3=>3)

# classify based on the values (unordered result)
.classify(*.value)                            # {2=>[1=>2,2=>2],3=>[0=>3,3=>3]}

# simplify the structure
.map({
  .key,         # the value
  |.value».key  # slip in the indexes
})                                            # ((3,0,3),(2,1,2))

# sort based on first index
.sort(*.[1])

Japt , 14 9 ไบต์

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

â £ð¶X iX

ลองมัน

â £ð¶X iX
â             :Deduplicate
  £           :Map each X
   ð          :  Get 0-based indices of elements in the input
    ¶X        :    That are equal to X
       iX     :  Prepend X

PHP 7.4+ , 71 ไบต์

* 73 ไบต์เพื่ออ้างถึง $_GETคีย์และหลีกเลี่ยงคำเตือน

ตัวอย่าง: ( สาธิต )

<?foreach($_GET[A]as$k=>$v){$b[$v][0]=$v;$b[$v][]=$k;}print_r([...$b]);

ขึ้นอยู่กับตัวแทนผมถือว่าIsmaelMiguelรู้วิธีที่ดีที่สุดที่จะโพสต์โค้ด PHP ในชุมชนแห่งนี้ดังนั้นฉันสร้างจากมูลนิธิของเขา มันไม่ได้เป็นที่ชัดเจนกับผมถ้า<?จะรวม / นับในตัวอย่างของฉัน นี่เป็นโพสต์ครั้งแรกของฉันฉันมีความสุขสำหรับทุกคนที่จะอธิบายว่ามีไวยากรณ์ที่ไม่จำเป็น PS ฉันยังอ่านเคล็ดลับสำหรับการเล่นกอล์ฟใน PHPซึ่งดูเหมือนว่าผมชอบเป็นผู้สมัครที่ยอดเยี่ยมสำหรับการโยกย้ายไปยัง Meta

การปรับปรุงที่ทำกับตัวอย่างของ Ismael คือ:

1. การมอบหมายอย่างไม่มีเงื่อนไขขององค์ประกอบแรกในแต่ละ subarray (การเขียนทับค่า)
2. Splatpacking แทนการarray_values()ทำดัชนีผลลัพธ์ใหม่

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

import StdEnv,StdLib
$l=removeDup[[e:elemIndices e l]\\e<-l]

ลองออนไลน์!

เอาท์พุทเป็นดัชนี 0

Kotlin , 83 ไบต์

{it.mapIndexed{i,c->c to i}.groupBy({(a,b)->a},{(a,b)->b}).map{(a,b)->listOf(a)+b}}

เชิดชู

{
    it.mapIndexed { i, c -> c to i }
        .groupBy({ (a, b) -> a }, { (a, b) -> b })
        .map { (a, b) -> listOf(a) + b }
}

ทดสอบ

var f: (List<Int>) -> List<List<Int>> =
{it.mapIndexed{i,c->c to i}.groupBy({(a,b)->a},{(a,b)->b}).map{(a,b)->listOf(a)+b}}

data class Test(val input: List<Int>, val output: List<List<Int>>)

val tests = listOf(
        Test(listOf(3, 2, 2, 3), listOf(listOf(3, 0, 3), listOf(2, 1, 2))),
        Test(listOf(17), listOf(listOf(17, 0))),
        Test(listOf(1, 1), listOf(listOf(1, 0, 1))),
        Test(listOf(1, 1, 2), listOf(listOf(1, 0, 1), listOf(2, 2))),
        Test(listOf(1, 2, 3, 4), listOf(listOf(1, 0), listOf(2, 1), listOf(3, 2), listOf(4, 3))),
        Test(listOf(1, 1, 1, 1), listOf(listOf(1, 0, 1, 2, 3)))
)

fun main(args: Array<String>) {
    for (c in tests) {
        val o = f(c.input)
        if (o != c.output) {
            throw AssertionError("${c.input} -> $o != ${c.output}")
        }
    }
}

TIO

TryItOnline

สวิฟท์ 4, 107 ไบต์

... อืม

{a in Dictionary(grouping:a.enumerated()){$0.1}.sorted{$0.1.first!.0<$1.1.first!.0}.map{[$0]+$1.flatMap{$0.0}}}

Ungolfed:

let f = { (input: [Int]) -> [[Int]] in
    return Dictionary(grouping: input.enumerated(), by: { $0.element })
        .sorted { pairA, pairB in // Sort by order of first appearence (lowest offset)
            return pairA.value.first!.offset < pairB.value.first!.offset
        }.map { element, pairs in
            return [element] + pairs.map{ $0.offset /* +1 */} // add 1 here for 1 based indexing
        }
}

มันแย่มากที่พจนานุกรมสูญเสียการสั่งซื้อบังคับให้ฉันต้องเสียอักขระจำนวนมากในการเรียงลำดับอีกครั้ง การเรียงลำดับของการละเมิดของข้อโต้แย้งปิดโดยปริยาย (นี่$0, $1, ... ) และสมาชิก tuple นัย ( .0, .1... ) เป็น uhhhhh ไม่สวย

Perl 5 , 63 + 1 ( -a) = 64 ไบต์

map$k{$_}.=$".++$i,@F;say$_.$k{$_}for sort{$k{$a}-$k{$b}}keys%k

ลองออนไลน์!

Ruby , 54 52 ไบต์

->a{a.map{|i|[i]+(0..a.size).select{|j|a[j]==i}}|[]}

รุ่นนี้อนุญาตให้ไม่มี (53 ไบต์):

->a{a.map{|i|[i]+(0...a.size).select{|j|a[j]==i}}|[]}

ลองออนไลน์!