Skip to main content
Commonmark migration
Source Link

#Mathematica, 84 66 64 bytes

Mathematica, 84 66 64 bytes

Using 1-based indexing.

MapIndexed[Union[#,First/@l~Position~Tr@#2]~Complement~#2&,l=#]& 

#Mathematica, 84 66 64 bytes

Using 1-based indexing.

MapIndexed[Union[#,First/@l~Position~Tr@#2]~Complement~#2&,l=#]& 

Mathematica, 84 66 64 bytes

Using 1-based indexing.

MapIndexed[Union[#,First/@l~Position~Tr@#2]~Complement~#2&,l=#]& 
deleted 8 characters in body
Source Link
alephalpha
  • 51.9k
  • 7
  • 75
  • 196

#Mathematica, 8484 66 64 bytes

Using 1-based indexing.

MapThread[Union@##2~DeleteCases~#&,{r=Range@Length@#,l=#MapIndexed[Union[#,First/@Position[l@l~Position~Tr@#2]~Complement~#2&,#]&/@r}]&l=#]& 

#Mathematica, 84 bytes

Using 1-based indexing.

MapThread[Union@##2~DeleteCases~#&,{r=Range@Length@#,l=#,First/@Position[l,#]&/@r}]& 

#Mathematica, 84 66 64 bytes

Using 1-based indexing.

MapIndexed[Union[#,First/@l~Position~Tr@#2]~Complement~#2&,l=#]& 
Source Link
alephalpha
  • 51.9k
  • 7
  • 75
  • 196

#Mathematica, 84 bytes

Using 1-based indexing.

MapThread[Union@##2~DeleteCases~#&,{r=Range@Length@#,l=#,First/@Position[l,#]&/@r}]&