I have a list of words
list={"ingenuous", "forgotten", "tree", "supercomput", "hundred"}
How can I put the letters of each word in an element of a table such as here:
$\begingroup$
$\endgroup$
4
2 Answers
$\begingroup$
$\endgroup$
4
list = {"ingenious", "forgotten", "tree", "supercomput", "hundred"};
list /. word_String :> Join[{word}, Characters@word] // Grid[#, Dividers -> All] &
-
-
1$\begingroup$ If one is not deterred by
/.,:>,@,//,#&and friends this style of writing mathematica code is imho the most readable of all. $\endgroup$– SaschaJul 8, 2016 at 12:36 -
1$\begingroup$ I'd have done
Prepend[Characters[word], word]myself. $\endgroup$ Jul 8, 2016 at 13:11 -
$\begingroup$ Another possibility is using
{word} ~Join~ Characters@word. Sometimes (not necessarily in this case) infix notation helps to further convey what the particular line of code does (precedence becomes somewhat difficult to assess though) $\endgroup$– SaschaJul 8, 2016 at 15:20
$\begingroup$
$\endgroup$
0
As the promp of Sascha's answer,I simplify this code be
list={"ingenuous","forgotten","tree","supercomput","hundred"};
Grid[Join[List/@list,Characters/@list,2],Frame->All,Spacings->{2.6,0.5}]
Characters[]? $\endgroup$TableForm[Characters /@ list, TableHeadings -> {list, None}]. $\endgroup$TableFormcannot set gridding line. :) $\endgroup$TableFormis under-appreciated, that is why I provided a line with it. $\endgroup$