Re: [math-fun] Is there a name for permutations that preserve no consecutive pairs?
I was only checking for identical digraphs. But I hadn't thought to check for *sets* of two consecutive letters. I think cinematographer and megachiropteran have no identical digraphs, but they both have the consecutive pair {M,E} (if not others). —Dan
Out[105]= {"ra"} --rwg
Shouldn't that read "mc" ? Or have I misunderstood RWG notation ... WFL On 8/19/17, Dan Asimov <dasimov@earthlink.net> wrote:
Maybe the Daily Mail used "peninsulas" as a verb, but not to worry: No newspaper would ever do that.
From: Bill Gosper <billgosper@gmail.com>
On 2017-08-18 13:21, Dan Asimov wrote:
Don't know a name for this, other than "well-mixed anagrams".
megachiropteran cinematographer
—Dan Or not. In[105]:= unshuf["megachiropteran", "cinematographer"]
Out[105]= {"ra"} --rwg Gack. The Daily Mail just used peninsulas as a verb.
Bill Gosper wrote:
----- I find them surprisingly tricky to eyeball correctly.
Although I caught this one. --rwg
E.g., unshuf[a_String, b_String] := StringCases[a ~~ "¢" ~~ b, ___ ~~ x_ ~~ y_ ~~ ___ ~~ "¢" ~~ ___ ~~ x_ ~~ y_ ~~ ___ :> x ~~ y]
TableForm[{#, unshuf @@ #} & /@ {{"aniseed oils", "loin disease"}, {"disanimate", "mediastina"}, {"pericleans", "linespacer"}, {"scalyanteaters", "transacetylase"}, {"laborintensive", "inventoriables"}, {"pleonastic", "pointlaces"}, {"celeritous", "reticulose"}, {"linesofcredit", "selfdirection"}, {"nitrosamines", "nestorianism"}, {"crucible steel", "electric blues"}, {"blueshirt", "thuribles"}, {"cornmeals", "macrolens"}, {"cathartine", "anthracite"}, {"treelawns", "waterlens"}, {"dipstream", "predatism"}}, TableSpacing -> {1, 49}]
aniseed oils loin disease oi
disanimate mediastina di
pericleans linespacer er
scalyanteaters transacetylase an
laborintensive inventoriables ve
pleonastic pointlaces
celeritous reticulose
linesofcredit selfdirection di
nitrosamines nestorianism es
crucible steel electric blues el
blueshirt thuribles es
cornmeals macrolens
cathartine anthracite th
treelawns waterlens ns
dipstream predatism re
redtapism spermatid
ammonolytic commonality on
partleading plantigrade ad
astonished dositheans he
alicesfern craneflies es
discrepate pederastic
forcertain refraction
camelspider premedicals ls
bestarred redbreast ed
apostlebird pilotsbread
Uh-oh --- what have I started ?! WFL On 8/19/17, Dan Asimov <dasimov@earthlink.net> wrote:
I was only checking for identical digraphs. But I hadn't thought to check for *sets* of two consecutive letters.
I think cinematographer and megachiropteran have no identical digraphs, but they both have the consecutive pair {M,E} (if not others).
—Dan
Out[105]= {"ra"} --rwg
Shouldn't that read "mc" ? Or have I misunderstood RWG notation ... WFL
On 8/19/17, Dan Asimov <dasimov@earthlink.net> wrote:
Maybe the Daily Mail used "peninsulas" as a verb, but not to worry: No newspaper would ever do that.
From: Bill Gosper <billgosper@gmail.com>
On 2017-08-18 13:21, Dan Asimov wrote:
Don't know a name for this, other than "well-mixed anagrams".
megachiropteran cinematographer
—Dan Or not. In[105]:= unshuf["megachiropteran", "cinematographer"]
Out[105]= {"ra"} --rwg Gack. The Daily Mail just used peninsulas as a verb.
Bill Gosper wrote:
----- I find them surprisingly tricky to eyeball correctly.
Although I caught this one. --rwg
E.g., unshuf[a_String, b_String] := StringCases[a ~~ "¢" ~~ b, ___ ~~ x_ ~~ y_ ~~ ___ ~~ "¢" ~~ ___ ~~ x_ ~~ y_ ~~ ___ :> x ~~ y]
TableForm[{#, unshuf @@ #} & /@ {{"aniseed oils", "loin disease"}, {"disanimate", "mediastina"}, {"pericleans", "linespacer"}, {"scalyanteaters", "transacetylase"}, {"laborintensive", "inventoriables"}, {"pleonastic", "pointlaces"}, {"celeritous", "reticulose"}, {"linesofcredit", "selfdirection"}, {"nitrosamines", "nestorianism"}, {"crucible steel", "electric blues"}, {"blueshirt", "thuribles"}, {"cornmeals", "macrolens"}, {"cathartine", "anthracite"}, {"treelawns", "waterlens"}, {"dipstream", "predatism"}}, TableSpacing -> {1, 49}]
aniseed oils loin disease oi
disanimate mediastina di
pericleans linespacer er
scalyanteaters transacetylase an
laborintensive inventoriables ve
pleonastic pointlaces
celeritous reticulose
linesofcredit selfdirection di
nitrosamines nestorianism es
crucible steel electric blues el
blueshirt thuribles es
cornmeals macrolens
cathartine anthracite th
treelawns waterlens ns
dipstream predatism re
redtapism spermatid
ammonolytic commonality on
partleading plantigrade ad
astonished dositheans he
alicesfern craneflies es
discrepate pederastic
forcertain refraction
camelspider premedicals ls
bestarred redbreast ed
apostlebird pilotsbread
_______________________________________________ math-fun mailing list math-fun@mailman.xmission.com https://mailman.xmission.com/cgi-bin/mailman/listinfo/math-fun
On 19/08/2017 02:16, Dan Asimov wrote:
I was only checking for identical digraphs. But I hadn't thought to check for *sets* of two consecutive letters.
I think cinematographer and megachiropteran have no identical digraphs, but they both have the consecutive pair {M,E} (if not others).
I feel like I'm missing some joke everyone else is in on, but: cinematogRApher megachiropteRAn -- g
Gareth, you've confused the two A's. The "a" near the end of "megachiropteran" is actually the FIRST "a" in "cinematographer", not the second. :-) Jim Propp On Sat, Aug 19, 2017 at 7:14 AM, Gareth McCaughan < gareth.mccaughan@pobox.com> wrote:
On 19/08/2017 02:16, Dan Asimov wrote:
I was only checking for identical digraphs. But I hadn't thought to check for *sets* of two consecutive letters.
I think cinematographer and megachiropteran have no identical digraphs, but they both have the consecutive pair {M,E} (if not others).
I feel like I'm missing some joke everyone else is in on, but:
cinematogRApher megachiropteRAn
-- g
_______________________________________________ math-fun mailing list math-fun@mailman.xmission.com https://mailman.xmission.com/cgi-bin/mailman/listinfo/math-fun
participants (4)
-
Dan Asimov -
Fred Lunnon -
Gareth McCaughan -
James Propp