Functionality for integers in different bases!? Your post is definitely so fun but we can reverse palindromes, where the first half of the word equals the last half. What would you do if you had palindromes where we filtered by DictionaryWordQ? Start with dictionary words, like Where's Waldo.
WoRdyLisT = Select[WordList["KnownWords"], DictionaryWordQ];
words = Select[WoRdyLisT, # == StringReverse[#] &];
WordCloud[words, WordOrientation -> "Random"]
firstHalf[w_String] :=
StringTake[w, {1, Floor[StringLength[w]/2.0]}];
lastHalf[w_String] := StringTake[w, {-Floor[StringLength[w]/2.0], -1}];
words = Select[words, firstHalf[#] == lastHalf[#] &];
WordCloud[words, WordOrientation -> "HorizontalVertical"]
When finding bogus word pairs, comparing grammatical and agrammatical phrases we get a larger inner product for the grammatical. How would you satisfy the Reduplication Requirement, phonetically? Why are yob and boy valid but not amora, in the original list?
notPalindromes = Select[WoRdyLisT, # != StringReverse[#] &];
conceptNet = NetModel["ConceptNet Numberbatch Word Vectors V17.06"];
WordBogusPair[w1_String, w2_String] :=
w1 <> " " <> w2 ->
Flatten[conceptNet[{w1}]] . Flatten[conceptNet[{w2}]];
PhraseBogusPair[phrase_String] :=
Apply[WordBogusPair, Flatten[StringSplit[phrase, " "]]]
wordPairs = Union[Drop[Map[# &,
{#, StringReverse[#],
PhraseBogusPair[# <> " " <> StringReverse[#]][[2]]} & /@
Select[notPalindromes,
DictionaryWordQ[StringReverse[#], IgnoreCase -> True] &]
], 1]];
innerProduct =
ToExpression /@
Select[Map[#[[3]] &, wordPairs[[2 ;; Length[wordPairs]]]], # > 0 &];
phraseBogusBound[bound_] := Select[wordPairs, #[[3]] > bound &]
sortReversibleWords =
Sort[phraseBogusBound[0.3], #1[[3]] < #2[[3]] &];
With[{length = Length[sortReversibleWords]}, Grid[
Prepend[
sortReversibleWords,
{"Word",
"Reverse",
"Inner Product"}],
Alignment -> Left,
Spacings -> {0, 0},
Background -> {{
{},
CMYKColor[0, 0, 0, 0],
{}},
Table[
CMYKColor[1 - (i/length), i/length, 0, 0, .1],
{i, 1, length + 1}]}]]
@Chase Marangu @Peter Cullen Burbery. How would you have Mathematica play audio when you press ⌘ S like macOS Notes plays? The Shift plus Return sound is high-pitched and vibrant.
Show[
ListPlot[
Table[
Labeled[{i,
wordPairs[[i]][[3]]},
wordPairs[[i]][[1]]],
{i, 1, Length[wordPairs]}]],
ImageSize -> Full]
BarChart[Map[#[[3]] &, sortReversibleWords],
ChartLabels -> Map[#[[1]] &, sortReversibleWords],
ChartStyle -> "Pastel",
BarSpacing -> 1,
ImageSize -> Full,
BarOrigin -> Left,
Epilog -> {Black, Thin, Line[{{0.3, 0}, {0.3, Length[yAxis]}}]},
FrameLabel -> "Reversible Words",
Frame -> True]
Is there a way to suppress all the output of our functions if need be? Like the opposite of https://reference.wolfram.com/language/ref/PrependTo.html? Have you found the indefinitely repeating color list for our word pair graphs - ColorData[100, "ColorList”]? What's the way to @ with Table - Flatten@Table[ColorData[i, "ColorList"], {i, 1, 43}]? And sometimes look at WSS22] Extracting linguistic relations fr. word embeddings&language models! [https://community.wolfram.com/groups/-/m/t/2575414?ppauth=PuBs9SdK. It's all about bogus words and non-bogus, more than I could have asked for.
Eve Eve. Malayalam Malayalam. Ara Ara. Mam Mam. Ono Ono. Tevet Tevet. Tet Tet.
Thank you for working with PalindromeQ, that is phenomenal. @Peter Cullen Burbery what's the feature request?
