#Mathematica 75 69 68 bytes
Mathematica 75 69 68 bytes
Loquacious as usual. But Martin B was able to reduce the code by 7 bytes.
Method 1: Storing output in an Array
(68 bytes)
f@a_:=!Or@@(Join@@Array[a~Drop~{#}~StringStartsQ~a[[#]]&,Length@a]) f@{"111", "010", "000", "1101", "1010", "1000", "0111", "0010", "1011", "0110", "11001", "00110", "10011", "11000", "00111", "10010"} True
f@{"He", "said", "Hello"} False
Method 2: Storing output in a List
(69 bytes)
f@a_:=!Or@@Flatten[a~Drop~{#}~StringStartsQ~a[[#]]&/@Range@Length@a]