To make a list of the letters at even-numbered position in Alphabet, I wrote this code:
Select[Alphabet[], EvenQ[Flatten[Position[Alphabet[], #]]] &]
But it does not work. Where did I go wrong?
$\begingroup$
$\endgroup$
8
2 Answers
$\begingroup$
$\endgroup$
1
Much simpler solution:
Alphabet[][[1 ;; All ;; 2]]
Alphabet[][[2 ;; All ;; 2]]
-
$\begingroup$
Alphabet[][[1 ;; ;; 2]]is equivalent and slightly shorter. $\endgroup$ Feb 16, 2022 at 19:20
$\begingroup$
$\endgroup$
1
I've used Range to determine the sequence.
Alphabet[][[Range[1, 26, 2]]] for odd positions,
for even positions Alphabet[][[Range[2, 26, 2]]]
-
$\begingroup$ This appraoch is very similar to the one already given. $\endgroup$ Feb 16, 2022 at 19:21
Flatten[Position[Alphabet[], "a"]]gets you{1}and not1. $\endgroup${False}and what you need is just plainFalse. $\endgroup$Select[Alphabet[], EvenQ[Flatten[Position[Alphabet[], #]]][[1]] &]. $\endgroup$