入力として正の整数の2つのリストを受け取る必要があります。これらをnとmと呼びましょう。

あなたはそれを仮定するかもしれません：

• nのすべての整数はmの一部です
• mのすべての整数は一意です
• リストは空ではありません

課題：n、mの値を見つける場所のインデックスを返します。

紛らわしいかもしれませんが、テストケースによってタスクがかなり明確になると思います。例は1から始まり、必要に応じて0から選択できます（指定してください）。

n = 5 3 4 1
m = 6 8 4 1 2 5 3 100
output: 6 7 3 4    // 5 is in the 6th position of m 
                   // 3 is in the 7th position of m
                   // 4 is in the 3rd position of m
                   // 1 is in the 4th position of m

n = 5 3 4 9 7 5 7
m = 3 4 5 7 9
output: 3 1 2 5 4 3 4

n = 1 2 3 4 5 6
m = 1 2 3 4 5 6
output: 1 2 3 4 5 6

n = 16 27 18 12 6 26 11 24 26 20 2 8 7 12 5 22 22 2 17 4
m = 15 18 11 16 14 20 37 38 6 36 8 32 21 2 31 22 33 4 1 35 3 25 9 30 26 39 5 23 29 10 13 12 7 19 24 17 34 27 40 28
output: 4 38 2 32 9 25 3 35 25 6 14 11 33 32 27 16 16 14 36 18

n = 54
m = 54
output: 1

受賞者は、各言語で最短のソリューションになります。

_{ちなみにこれは非常に素晴らしいメタ投稿です！}

V、26バイト

jòdf kÄ/-
DÓÓ
ÒC1@"Gòdk

オンラインでお試しください！

Vには数値の概念がほとんどないため、これは非常に奇妙でハッキングされたソリューションです。入力の形式は次のとおりです。

6 8 4 1 2 5 3 100 
5 3 4 1 

各行の末尾にスペースがあります。

Hexdump：

00000000: 6af2 6466 206b c42f 122d 0a44 d3d3 0ad2  j.df k./.-.D....
00000010: 0143 311b 4022 47f2 646b                 .C1.@"G.dk

説明：

j                   " Move down one line (to N) (1)
 ò                  " Recursively:
  df                "   (d)elete until you (f)ind a space. This will be saved into
                    "   register '-' (2)
     k              "   Move up one line (to M)
      Ä             "   Duplicate line M (3)
       /<C-r>-      "   Move the cursor forward until the next occurence of register '-' 
                    "   (the number we deleted from N)
                    "   (4)
D                   "   Delete every character *after* the cursor (5)
 ÓÓ                 "   Remove everything on this line except for whitespace
Ò<C-a>              "   Replace every character on this line with `<C-a>`, which is the 
                    "   command for incrementing a number (6)
      C             "   Delete this line into register '"', and enter insert mode
       1<esc>       "   Enter a '1' and return to normal mode
             @"     "   Run register '"' as V code (7)
               G    "   Go to the last line (1)
                ò   " End recursion
                 dk " Delete the last two lines (m and n)

これで明確にならない場合は、ループが通過するさまざまな段階でのバッファーの例を次に示します。

ステージ1（|カーソルです）

6 8 4 1 2 5 3 100
|5 3 4 1

ステージ2：

6 8 4 1 2 5 3 100
|3 4 1

ステージ3：

|6 8 4 1 2 5 3 100
6 8 4 1 2 5 3 100
3 4 1

ステージ4：

6 8 4 1 2 |5 3 100
6 8 4 1 2 5 3 100
3 4 1

ステージ5：

6 8 4 1 2 |
6 8 4 1 2 5 3 100
3 4 1

ステージ6：

|<C-a><C-a><C-a><C-a><C-a>
6 8 4 1 2 5 3 100
3 4 1

ステージ7：

|6
6 8 4 1 2 5 3 100
3 4 1

ステージ1に戻ります。

6
6 8 4 1 2 5 3 100
|3 4 1

Python 2、25バイト

lambda a,b:map(a.index,b)

オンラインでお試しください！

これは0インデックスを使用することに注意してください。

APL（Dyalog）、1バイト

⍳

オンラインでお試しください！

注：⍳関数がないではないようなので、それを左の引数を与えるために、その左側の引数としてスカラーを取る54あなたが使用して、配列にそれを行う必要があり、,そうのように(,54)。

Mathematica、25バイト

#&@@@PositionIndex@#/@#2&

2つの入力mとnを受け取り、ninの1ベースのインデックスを返しますm。

網膜、32 31 30バイト

Kritixi Lithosのおかげで1バイト、Martin Enderのおかげで1バイト節約

(\d+)(?=.*¶(\d+ )*\1 )
$#2
G1`

0インデックスを使用します。入力の各行の末尾にはスペースがあります。

オンラインでお試しください！

説明

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

ここでは、最初の行のすべての数字を、2番目の行の同じ数字の前の数字の数で置き換えます。

G1`

次に、2行目を削除し、新しい1行目のみを出力として残します。

Java、104 81バイト

ビジネス猫のおかげで1バイト。

void f(int[]a,int[]b){for(int i=0,j=0;i<b.length;)j=a[j++]==b[i]?0*(b[i++]=j):j;}

オンラインでお試しください！

C＃、32バイト

(n,m)=>n.Select(i=>m.IndexOf(i))

これはラムダ式としてのコードなので、有効である必要があります。

解決策は0ベースのインデックスです。私はそれがどのように機能するのかかなり前向きだと思う-それは単にnのアイテムを取り、mのアイテムのインデックスを選択します。

オクターブ、25バイト

@(n,m)([x,~]=find(n==m'))

オンラインでお試しください！

Haskell、32バイト

a%b=[length$fst$span(/=x)b|x<-a]

オンラインでお試しください！ワンインデックス。

その他の試み：

q(h:t)x|x==h=0|1>0=1+q t x;map.q
f b=map$length.fst.($b).span.(/=)
a%b=[until((==x).(b!!))(+1)0|x<-a]
a%b=[until(\y->x==b!!y)(+1)0|x<-a]
import Data.List;map.flip elemIndex

k、1

これは組み込み演算子でkあり、ゼロベースのインデックスを使用します。

?

例：

k)6 8 4 1 2 5 3 100 ? 5 3 4 1
5 6 2 3

05AB1E、5バイト

v²yk,

オンラインでお試しください！

v     # For each value in n (call it y)
 ²    # Push m
  y   # Push y
   k, # Print the 0-indexed index of y in m

ゼリー、3バイト

iЀ

オンラインでお試しください！

スペック

• 入力：2つの引数、最初の引数はm、2番目の引数はnです。
• 出力：1つの配列

JavaScript（ES6）、28バイト

カレー構文の配列を受け取ります(n)(m)。0インデックス。

let f =

n=>m=>n.map(v=>m.indexOf(v))

console.log(JSON.stringify(f([5,3,4,1])([6,8,4,1,2,5,3,100])))
console.log(JSON.stringify(f([5,3,4,9,7,5,7])([3,4,5,7,9])))
console.log(JSON.stringify(f([1,2,3,4,5,6])([1,2,3,4,5,6])))
console.log(JSON.stringify(f([16,27,18,12,6,26,11,24,26,20,2,8,7,12,5,22,22,2,17,4])([15,18,11,16,14,20,37,38,6,36,8,32,21,2,31,22,33,4,1,35,3,25,9,30,26,39,5,23,29,10,13,12,7,19,24,17,34,27,40,28])))
console.log(JSON.stringify(f([54])([54])))

Perl 6、31バイト

->\n,\m{n.map:{m.first($_,:k)}}

それを試してみてください

拡張：

-> \n, \m {  # pointy block lambda

  n.map: {            # map over the values in ｢n｣
    m.first( $_, :k ) # return the key ｢:k｣ of the first occurrence
  }
}

0インデックス付き

Japt、4バイト

m!bV

オンラインでテストしてください！

説明

ここで説明することはあまりありませんが、Japtの興味深い機能を示しています。通常、次のmように関数を渡します。

mX{VbX}

これは基本的にU.map(X => V.indexOf(X))（U暗黙的です）。ただし、2つの値（bここ、on VおよびX）の間で1つの操作を実行するだけの場合は、演算子と他の値を指定するだけで、Japtはそれから関数を作成します。これはmX{X+2}、ゴルフをすることができることを意味しm+2ます。

ただし、値の順序が間違っている場合は機能しません（mbV略しますmX{XbV}）。これを回避するには、演算子に感嘆符を追加して、Japtにオペランドをスワップするように指示します。これには余分なバイトがかかりますが、代替よりも数バイト短くなっています。そして今、あなたはJaptについてもう少し知っています。

MATL、2バイト

&m

これは1インデックスを使用します。オンラインでお試しください！

説明

メタ関数&は、次の関数が（関数固有の）2次デフォルト入力/出力仕様を使用することを示します。関数m（ismember）の場合&、2番目の出力が生成されることを指定します。これには、2番目の入力の最初の入力の各エントリ（の最初の出現）のインデックスが含まれます。

Haskell、34バイト

n#m=[i|a<-n,(i,e)<-zip[1..]m,e==a]

使用例：[5,3,4,9,7,5,7] # [3,4,5,7,9]->[3,1,2,5,4,3,4]

ビルトインelemIndexは上にあるData.Listため、上記のバージョンよりも長くなります。外側のループは通過nし、内側のループはin のインデックスである(i,e)whereのペアを通過します。where がの現在の要素と等しくなるようにしてください。iemien

R、20 5バイト

1インデックス付き。matchは、最初の要素の2番目の入力でインデックスを見つける組み込み関数です。つまり、match(n,m)目的の答えを返します。

match

関数を返すことは答えとして完全に受け入れられることを指摘してくれた@flodelに感謝します！

オンラインでお試しください！

Pyth、4バイト

xLQE

オンラインでお試しください！

これは0インデックスを使用することに注意してください。

J、2バイト

i.

これは完全なプログラムではなく、組み込み関数です。

次のように使用します。

echo 6 8 4 1 2 5 3 100 i. 5 3 4 1

オンラインでお試しください！

これは0インデックスを使用することに注意してください。

CJam、4バイト

{f#}

スタック上の引数を予期し、結果をスタックに残す匿名ブロック。

0インデックスを使用します。

オンラインでお試しください！

Haskell、43バイト

a*b=[[fst x|x<-zip[0..]b,y==snd x]!!0|y<-a]

a*b=                                         -- define function * with 2 args
    [                                |y<-a]  -- for each elt in first arg
               zip[0..]b                     -- match elts in second arg w/ idxs
                                             -- [a,b,c] -> [[0,a],[1,b],[2,c]]
     [fst x|x<-                  ]           -- take first element in each pair
                        ,y==snd x            -- if the index matches
                                  !!0        -- first element (always only 1)

Clojure、25バイト

#(map(zipmap %2(range))%)

0インデックス。

Perl 5の、38の 34バイト

Dadaのおかげで4バイト節約

sub{map$x{$_}//($x{$_}=++$x)x0,@_}

1インデックス。リストmおよびnを単一のリストとして取得します（例：）f(@m,@n)。x0始まるからの出力を維持することだけである1,2,3,4,5など、

PHP、56バイト

オンライン版

0インデックス作成

文字列として出力

<?foreach($_GET[0]as$v)echo" ".array_flip($_GET[1])[$v];

PHP、65バイト

配列として出力

<?foreach($_GET[0]as$v)$r[]=array_flip($_GET[1])[$v];print_r($r);

PHP、78バイト

との回避策 array_map

<?print_r(array_map(function($v){return array_flip($_GET[1])[$v];},$_GET[0]));

一意ではない配列は array_flip($_GET[1])[$v] array_search($v,$_GET[1])

Bash + coreutils、51

for n in $1
do grep -wn $n <<<"$2"
done|cut -d: -f1

オンラインでお試しください。

前の答え：

s()(sort -$1k2)
nl|s|join -j2 - <(nl<<<"$1"|s)|s n|cut -d\  -f3

オンラインでお試しください。

Java 7、80バイト

void c(int[]a,java.util.List b){for(int i=0;i<a.length;a[i]=b.indexOf(a[i++]));}

0インデックス付き

説明：

void c(int[]a,java.util.List b){  // Method with integer-array and List parameters
  for(int i=0;i<a.length;         //  Loop over the integer-array
    a[i]=b.indexOf(a[i++])        //   And change every value to the index of the List
  );                              //  End of loop (no body)
}                                 // End of method

テストコード：

ここで試してみてください。

import java.util.Arrays;
class M{
  static void c(int[]a,java.util.List b){for(int i=0;i<a.length;a[i]=b.indexOf(a[i++]));}

  public static void main(String[] a){
    int[] x = new int[]{ 5, 3, 4, 1 };
    c(x, Arrays.asList(6, 8, 4, 1, 2, 5, 3, 100));
    System.out.println(Arrays.toString(x));

    x = new int[]{ 5, 3, 4, 9, 7, 5, 7 };
    c(x, Arrays.asList(3, 4, 5, 7, 9));
    System.out.println(Arrays.toString(x));

    x = new int[]{ 1, 2, 3, 4, 5, 6 };
    c(x, Arrays.asList(1, 2, 3, 4, 5, 6));
    System.out.println(Arrays.toString(x));


    x = new int[]{ 16, 27, 18, 12, 6, 26, 11, 24, 26, 20, 2, 8, 7, 12, 5, 22, 22, 2, 17, 4 };
    c(x, Arrays.asList(15, 18, 11, 16, 14, 20, 37, 38, 6, 36, 8, 32, 21, 2, 31, 22, 33, 4, 1, 35, 3, 25, 9, 30, 26, 39, 5, 23, 29, 10, 13, 12, 7, 19, 24, 17, 34, 27, 40, 28));
    System.out.println(Arrays.toString(x));


    x = new int[]{ 54 };
    c(x, Arrays.asList(54));
    System.out.println(Arrays.toString(x));
  }
}

出力：

[5, 6, 2, 3]
[2, 0, 1, 4, 3, 2, 3]
[0, 1, 2, 3, 4, 5]
[3, 37, 1, 31, 8, 24, 2, 34, 24, 5, 13, 10, 32, 31, 26, 15, 15, 13, 35, 17]
[0]