如何提取矩阵每行中与第一个元素相同的元素的索引？

我要吃章鱼丸子

比如
# j. @- t- h  ^( r2 ]H=1,2,3,4,4,3,2,1
* I' T  `7 r$ E  \7 l     3,5,6,8,0,4,3,6
     2,4,2,9,6,2,4,8
     5,3,0,2,5,5,3,1
矩阵一共有4行，每一行分别与该行的第一个元素判别是否相等，相等的元素则输出该行位置索引
+ \4 _) p( A, _$ k5 W7 r# \; S比如该H希望输出
d=8，
6 ^9 [( I4 I, Q; d" y! j    7，
( ^8 b2 X; p2 L: Z   3,6，
0 x: Y- ], k$ m# ?; w) ?! W( ]  x   5,6
0 p( s+ F) S1 H/ k
- L% N! R, x' c

我要吃章鱼丸子

arrayfun(@(x)find(H(x,1)==H(x,2:end))+1,1:size(H,1),'un',0)
0 f! o% m( Q+ a' j) t/ ~  Q9 M( O. c