Rosetta Code

Cycles of a permutation: Difference between revisions

Page Discussion

Cycles of a permutation (view source)

Revision as of 15:09, 14 May 2022

1,999 bytes removed ,  2 years ago
m
→‎{{header|Phix}}: better constants, camelCase->under_scores, eliminated 15s, added a tagstart builtin
m (→‎{{header|Phix}}: better constants, camelCase->under_scores, eliminated 15s, added a tagstart builtin)
Line 342:
<!--<lang Phix>(phixonline)-->
<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
<span style="color: #0080807060A8;">functionrequires</span> <span style="color: #0000000000FF;">smallestFirst(</span><span style="color: #0000FF008000;">("1.0.2"</span><span style="color: #0040800000FF;">sequence)</span> <span style="color: #000000000080;">cycle</span><span font-style="color: #0000FFitalic;">-- (tagstart)</span>
<span style="color: #000000008080;">ordersfunction</span> <span style="color: #0000FF000000;">&=smallest_first</span> <span style="color: #0000000000FF;">order(</span><span style="color: #0000FF004080;">(sequence</span> <span style="color: #000000;">cycycle</span><span style="color: #0000FF;">)</span>▼
<span style="color: #000080;font-style:italic;">-- Rearrange a cycle so the lowest element is first.</span>
<span style="color: #004080;">integer</span> <span style="color: #000000;">mdx</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">smallest</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cycle</span><span style="color: #0000FF;">,</span><span style="color: #004600;">true</span><span style="color: #0000FF;">)</span>
<span style="color: #008080;">return</span> <span style="color: #000000;">cycle</span><span style="color: #0000FF;">[</span><span style="color: #000000;">mdx</span><span style="color: #0000FF;">..$]</span> <span style="color: #0000FF;">&</span> <span style="color: #000000;">cycle</span><span style="color: #0000FF;">[</span><span style="color: #000000;">1</span><span style="color: #0000FF;">..</span><span style="color: #000000;">mdx</span><span style="color: #0000FF;">-</span><span style="color: #000000;">1</span><span style="color: #0000FF;">]</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
<span style="color: #008080;">function</span> <span style="color: #000000;">oneLineToStringone_line_to_string</span><span style="color: #0000FF;">(</span><span style="color: #004080;">sequence</span> <span style="color: #000000;">olone_line</span><span style="color: #0000FF;">)</span>
<span style="color: #000080;font-style:italic;">-- Converts a list in one line notation to a space separated string.</span>
<span style="color: #008080;">return</span> <span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #000000;">olone_line</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" "</span><span style="color: #0000FF;">,</span><span style="color: #000000;">fmt</span><span style="color: #0000FF;">:=</span><span style="color: #008000;">"%d"</span><span style="color: #0000FF;">)</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
<span style="color: #008080;">function</span> <span style="color: #000000;">cyclesToStringcycles_to_string</span><span style="color: #0000FF;">(</span><span style="color: #004080;">sequence</span> <span style="color: #000000;">cycles</span><span style="color: #0000FF;">)</span>
<span style="color: #000080;font-style:italic;">-- Converts a list in cycle notation to a string where each cycle
-- is space separated and enclosed in parentheses.</span>
<span style="color: #008080;">return</span> <span style="color: #0000007060A8;">cycles2join</span> <span style="color: #0000FF;">=(</span> <span style="color: #7060A8;">appendapply</span><span style="color: #0000FF;">(</span><span style="color: #000000004600;">cycles2true</span><span style="color: #0000FF;">,</span><span style="color: #0080007060A8;">"("join</span> <span style="color: #0000FF;">&,{</span> <span style="color: #7060A8000000;">joincycles</span><span style="color: #0000FF;">(,{</span><span style="color: #000000008000;">cycle" "</span><span style="color: #0000FF;">},{</span><span style="color: #000000008000;">fmt" "</span><span style="color: #0000FF;">:=},{</span><span style="color: #008000;">"%d"</span><span style="color: #0000FF;">}}),</span><span style="color: #000000;">fmt</span><span style="color: #0000FF;">&:=</span> <span style="color: #008000;">"(%s)"</span><span style="color: #0000FF;">)</span>▼
<span style="color: #004080;">sequence</span> <span style="color: #000000;">cycles2</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{}</span>▼
<span style="color: #008080;">for</span> <span style="color: #000000;">cycle</span> <span style="color: #008080;">in</span> <span style="color: #000000;">cycles</span> <span style="color: #008080;">do</span>▼
▲ <span style="color: #000000;">cycles2</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">append</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cycles2</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"("</span> <span style="color: #0000FF;">&</span> <span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cycle</span><span style="color: #0000FF;">,</span><span style="color: #000000;">fmt</span><span style="color: #0000FF;">:=</span><span style="color: #008000;">"%d"</span><span style="color: #0000FF;">)</span> <span style="color: #0000FF;">&</span> <span style="color: #008000;">")"</span><span style="color: #0000FF;">)</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
<span style="color: #008080;">return</span> <span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cycles2</span><span style="color: #0000FF;">)</span>▼
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
<span style="color: #008080;">function</span> <span style="color: #000000;">oneLineNotationone_line_notation</span><span style="color: #0000FF;">(</span><span style="color: #004080;">stringsequence</span> <span style="color: #000000;">s</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">t</span><span style="color: #0000FF;">)</span>
<span style="color: #000080;font-style:italic;">-- Returns a list in one line notation derived from two strings s and t.</span>
<span style="color: #004080;">sequenceinteger</span> <span style="color: #000000;">resl</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">repeatlength</span><span style="color: #0000FF;">(</span><span style="color: #000000;">0</span><span style="color: #0000FF;">,</span><span style="color: #000000;">15s</span><span style="color: #0000FF;">)</span>
<span style="color: #008080004080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #000000;">15</span> <span style="color: #008080;">dosequence</span> <span style="color: #000000;">res</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">findrepeat</span><span style="color: #0000FF;">(</span><span style="color: #000000;">t0</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">],</span><span style="color: #000000;">sl</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
<span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">151</span> <span style="color: #008080;">to</span> <span style="color: #000000;">1l</span> <span style="color: #008080;">bydo</span> <span style="color: #000000;">res</span><span style="color: #0000FF;">-[</span><span style="color: #000000;">1i</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">find</span><span style="color: #0000FF;">(</span><span style="color: #000000;">t</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">],</span><span style="color: #000000;">s</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">doend</span> <span style="color: #008080;">for</span>
<span style="color: #7060A8008080;">printffor</span> <span style="color: #0000FF000000;">(i</span><span style="color: #0000000000FF;">1=</span><span style="color: #0000FF000000;">,l</span> <span style="color: #008000008080;">"%s\n\n"to</span> <span style="color: #0000FF000000;">,{1</span> <span style="color: #000000008080;">cyclesToStringby</span> <span style="color: #0000FF;">(-</span><span style="color: #000000;">cycles21</span> <span style="color: #0000FF008080;">)})do</span>▼
<span style="color: #008080;">if</span> <span style="color: #000000;">res</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]!=</span><span style="color: #000000;">i</span> <span style="color: #008080;">then</span> <span style="color: #008080;">exit</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
<span style="color: #000000;">res</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">res</span><span style="color: #0000FF;">[</span><span style="color: #000000;">1</span><span style="color: #0000FF;">..-</span><span style="color: #000000;">2</span><span style="color: #0000FF;">]</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
<span style="color: #008080;">return</span> <span style="color: #000000;">res</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
<span style="color: #008080;">function</span> <span style="color: #000000;">cycleNotationcycle_notation</span><span style="color: #0000FF;">(</span><span style="color: #004080;">string</span> <span style="color: #000000;">s</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">t</span><span style="color: #0000FF;">)</span>
<span style="color: #000080;font-style:italic;">-- Returns a list in cycle notation derived from two strings s and t.</span>
<span style="color: #004080;">sequence</span> <span style="color: #000000;">used</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">repeat</span><span style="color: #0000FF;">(</span><span style="color: #004600;">false</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">15s</span><span style="color: #0000FF;">)),</span>
<span style="color: #000000;">cycles</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{}</span>
<span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">15used</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span>
<span style="color: #008080;">if</span> <span style="color: #008080;">not</span> <span style="color: #000000;">used</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]</span> <span style="color: #008080;">then</span>
<span style="color: #004080;">sequence</span> <span style="color: #000000;">cycle</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{}</span>▼
<span style="color: #000000;">used</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #004600;">true</span>
<span style="color: #004080;">integer</span> <span style="color: #000000;">ix</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">find</span><span style="color: #0000FF;">(</span><span style="color: #000000;">s</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">],</span><span style="color: #000000;">t</span><span style="color: #0000FF;">)</span>
<span style="color: #008080;">if</span> <span style="color: #000000;">iix</span><span style="color: #0000FF;">!=</span><span style="color: #000000;">ixi</span> <span style="color: #008080;">then</span>
<span style="color: #004080;">sequence</span> <span style="color: #000000;">cycle</span> <span style="color: #0000FF;">&=</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">i</span><span style="color: #0000FF;">}</span>
<span style="color: #008080;">while</span> <span style="color: #004600;">true</span> <span style="color: #008080;">do</span>
<span style="color: #000000;">cycle</span> <span style="color: #0000FF;">&=</span> <span style="color: #000000;">ix</span>
<span style="color: #000000;">used</span><span style="color: #0000FF;">[</span><span style="color: #000000;">ix</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #004600;">true</span>
<span style="color: #000000;">ix</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">find</span><span style="color: #0000FF;">(</span><span style="color: #000000;">s</span><span style="color: #0000FF;">[</span><span style="color: #000000;">ix</span><span style="color: #0000FF;">],</span><span style="color: #000000;">t</span><span style="color: #0000FF;">)</span>
<span style="color: #008080;">if</span> <span style="color: #000000;">cycleix</span><span style="color: #0000FF;">[</span><span style="color: #000000;">1</span><span style="color: #0000FF;">]==</span><span style="color: #000000;">ixi</span> <span style="color: #008080;">then</span>
<span style="color: #000000;">cycle</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">smallestFirstsmallest_first</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cycle</span><span style="color: #0000FF;">)</span>
<span style="color: #000000;">cycles</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">append</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cycles</span><span style="color: #0000FF;">,</span><span style="color: #000000;">cycle</span><span style="color: #0000FF;">)</span>
<span style="color: #008080;">exit</span>
Line 401 ⟶ 398:
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
<span style="color: #008080;">function</span> <span style="color: #000000;">oneLineInverseone_line_inverse</span><span style="color: #0000FF;">(</span><span style="color: #004080;">sequence</span> <span style="color: #000000;">oneLineone_line</span><span style="color: #0000FF;">)</span>
<span style="color: #000080;font-style:italic;">-- Converts a list in one line notation to its inverse.</span>
<span style="color: #004080;">stringinteger</span> <span style="color: #000000;">sl</span> <span style="color: #0000FF;">=</span> <span style="color: #0080007060A8;">"ABCDEFGHIJKLMNO"length</span><span style="color: #0000FF;">,(</span> <span style="color: #000000;">tone_line</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">s)</span>
<span style="color: #008080004080;">forstring</span> <span style="color: #000000;">is</span> <span style="color: #0000FF;">=</span> <span style="color: #0000007060A8;">1repeat</span> <span style="color: #0080800000FF;">to(</span> <span style="color: #7060A8008000;">length' '</span><span style="color: #0000FF;">(,</span><span style="color: #000000;">oneLinel</span><span style="color: #0000FF;">),</span> <span style="color: #008080;">do</span>
<span style="color: #000000;">s</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]t</span> <span style="color: #0000FF;">=</span> <span style="color: #0000007060A8;">oneLinetagstart</span><span style="color: #0000FF;">[(</span><span style="color: #000000008000;">i'A'</span><span style="color: #0000FF;">]+,</span><span style="color: #008000000000;">'A'l</span><span style="color: #0000FF;">-</span><span style="color: #000000;">1)</span>
▲ <span style="color: #008080;">for</span> <span style="color: #000000;">cyclei</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">into</span> <span style="color: #000000;">cyclesl</span> <span style="color: #008080;">do</span>
<span style="color: #004080000000;">sequences</span> <span style="color: #0000000000FF;">cy[</span> <span style="color: #0000FF000000;">=i</span> <span style="color: #0000000000FF;">cycleNotation]</span> <span style="color: #0000FF;">(=</span> <span style="color: #000000;">lettersone_line</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">],+</span> <span style="color: #000000008000;">letters'A'</span><span style="color: #0000FF;">[-</span><span style="color: #000000;">j</span><span style="color: #0000FF;">])1</span>▼
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
<span style="color: #008080;">return</span> <span style="color: #000000;">oneLineNotationone_line_notation</span><span style="color: #0000FF;">(</span><span style="color: #000000;">s</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">t</span><span style="color: #0000FF;">)</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
<span style="color: #008080;">function</span> <span style="color: #000000;">cycleInversecycle_inverse</span><span style="color: #0000FF;">(</span><span style="color: #004080;">sequence</span> <span style="color: #000000;">cycles</span><span style="color: #0000FF;">)</span>
<span style="color: #000080;font-style:italic;">-- Converts a list of cycles to its inverse.</span>
<span style="color: #004080;">sequence</span> <span style="color: #000000;">cycles2</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">repeat</span><span style="color: #0000FF;">(</span><span style="color: #000000;">0</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cycles</span><span style="color: #0000FF;">))</span>
Line 420 ⟶ 419:
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
<span style="color: #008080;">function</span> <span style="color: #000000;">oneLinePermuteone_line_permute</span><span style="color: #0000FF;">(</span><span style="color: #004080;">string</span> <span style="color: #000000;">s</span><span style="color: #0000FF;">,</span> <span style="color: #004080;">sequence</span> <span style="color: #000000;">perm</span><span style="color: #0000FF;">)</span>
<span style="color: #000080;font-style:italic;">-- Permutes a string using perm in one line notation.</span>
<span style="color: #004080;">string</span> <span style="color: #000000;">t</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">s</span>
<span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">perm</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span> <span style="color: #000000;">t</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">s</span><span style="color: #0000FF;">[</span><span style="color: #000000;">perm</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]]</span> <span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
<span style="color: #008080;">return</span> <span style="color: #000000;">t</span>
<span style="color: #000080;font-style:italic;">--alternative one-liner:
-- return reinstate(s,tagset(length(perm)),extract(s,perm))</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
<span style="color: #008080;">function</span> <span style="color: #000000;">cyclePermutecycle_permute</span><span style="color: #0000FF;">(</span><span style="color: #004080;">string</span> <span style="color: #000000;">s</span><span style="color: #0000FF;">,</span> <span style="color: #004080;">sequence</span> <span style="color: #000000;">cycles</span><span style="color: #0000FF;">)</span>
<span style="color: #000080;font-style:italic;">-- Permutes a string using perm in cycle notation.</span>
<span style="color: #004080;">sequence</span> <span style="color: #000000;">t</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">repeat</span><span style="color: #0000FF;">(</span><span style="color: #008000;">""</span><span style="color: #0000FF;">,</span><span style="color: #000000;">15</span><span style="color: #0000FF;">)s</span>
<span style="color: #008080;">for</span> <span style="color: #000000;">cycle</span> <span style="color: #008080;">in</span> <span style="color: #000000;">cycles</span> <span style="color: #008080;">do</span>
<span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cycle</span><span style="color: #0000FF;">)-</span><span style="color: #000000;">1</span> <span style="color: #008080;">do</span>
Line 436 ⟶ 437:
<span style="color: #000000;">t</span><span style="color: #0000FF;">[</span><span style="color: #000000;">cycle</span><span style="color: #0000FF;">[</span><span style="color: #000000;">1</span><span style="color: #0000FF;">]]</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">s</span><span style="color: #0000FF;">[</span><span style="color: #000000;">cycle</span><span style="color: #0000FF;">[$]]</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
<span style="color: #008080;">forreturn</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #000000;">15</span> <span style="color: #008080;">dot</span>
<span style="color: #008080;">if</span> <span style="color: #000000;">t</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]=</span><span style="color: #008000;">""</span> <span style="color: #008080;">then</span> <span style="color: #000000;">t</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">s</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>▼
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
<span style="color: #008080;">return</span> <span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #000000;">t</span><span style="color: #0000FF;">,</span><span style="color: #008000;">""</span><span style="color: #0000FF;">)</span>▼
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
<span style="color: #008080;">function</span> <span style="color: #000000;">cycleCombinecycle_combine</span><span style="color: #0000FF;">(</span><span style="color: #004080;">sequence</span> <span style="color: #000000;">cycles1</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">cycles2</span><span style="color: #0000FF;">)</span>
<span style="color: #000080;font-style:italic;">// Returns a single perm in cycle notation resulting
// from applying cycles1 first and then cycles2.</span>
<span style="color: #004080;">stringinteger</span> <span style="color: #000000;">sm</span> <span style="color: #0000FF;">=</span> <span style="color: #0080007060A8;">max</span><span style="ABCDEFGHIJKLMNOcolor: #0000FF;">(</span><span style="color: #7060A8;">max</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">flatten</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cycles1</span><span style="color: #0000FF;">)),</span>
<span style="color: #000000;">t</span> <span style="color: #0000FF;">=</span> <span style="color: #0000007060A8;">cyclePermutemax</span><span style="color: #0000FF;">(</span><span style="color: #0000007060A8;">sflatten</span><span style="color: #0000FF;">,(</span> <span style="color: #000000;">cycles1</span><span style="color: #0000FF;">)))</span>
<span style="color: #004080;">string</span> <span style="color: #000000;">ts</span> <span style="color: #0000FF;">=</span> <span style="color: #0000007060A8;">cyclePermutetagstart</span><span style="color: #0000FF;">(</span><span style="color: #000000008000;">t'A'</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">cycles2m</span><span style="color: #0000FF;">),</span>
<span style="color: #008080000000;">returnt</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">cycleNotationcycle_permute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">s</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">tcycles1</span><span style="color: #0000FF;">)</span>
<span style="color: #000000;">t</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">cycle_permute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">t</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">cycles2</span><span style="color: #0000FF;">)</span>
▲ <span style="color: #008080;">return</span> <span style="color: #7060A8000000;">joincycle_notation</span><span style="color: #0000FF;">(</span><span style="color: #000000;">ts</span><span style="color: #0000FF;">,</span> <span style="color: #008000000000;">""t</span><span style="color: #0000FF;">)</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
<span style="color: #008080;">function</span> <span style="color: #000000;">oneLineToCycleone_line_to_cycle</span><span style="color: #0000FF;">(</span><span style="color: #004080;">sequence</span> <span style="color: #000000;">oneLineone_line</span><span style="color: #0000FF;">)</span>
<span style="color: #000080;font-style:italic;">// Converts a list in one line notation to cycle notation.</span>
<span style="color: #004080;">stringinteger</span> <span style="color: #000000;">sl</span> <span style="color: #0000FF;">=</span> <span style="color: #0080007060A8;">"ABCDEFGHIJKLMNO"length</span><span style="color: #0000FF;">,(</span> <span style="color: #000000;">tone_line</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">s)</span>
<span style="color: #008080004080;">forstring</span> <span style="color: #000000;">is</span> <span style="color: #0000FF;">=</span> <span style="color: #0000007060A8;">1tagstart</span> <span style="color: #0080800000FF;">to(</span> <span style="color: #7060A8008000;">length'A'</span><span style="color: #0000FF;">(,</span><span style="color: #000000;">oneLinel</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do,</span>
<span style="color: #000000;">t</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]t</span> <span style="color: #0000FF;">=</span> <span style="color: #0000007060A8;">oneLinerepeat</span><span style="color: #0000FF;">[(</span><span style="color: #000000008000;">i' '</span><span style="color: #0000FF;">]+,</span><span style="color: #008000000000;">'A'l</span><span style="color: #0000FF;">-</span><span style="color: #000000;">1)</span>
<span style="color: #008080;">for</span> <span style="color: #000000;">ji</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #000000;">7l</span> <span style="color: #008080;">do</span>▼
<span style="color: #004080;">integer</span> <span style="color: #000000;">it</span> <span style="color: #0000FF;">=[</span> <span style="color: #008080000000;">iffi</span><span style="color: #0000FF;">(]</span><span style="color: #000000;">j</span><span style="color: #0000FF;">=</span> <span style="color: #000000;">1one_line</span> <span style="color: #0000FF;">?[</span> <span style="color: #000000;">7i</span> <span style="color: #0000FF;">:]+</span> <span style="color: #000000008000;">j'A'</span><span style="color: #0000FF;">-</span><span style="color: #000000;">1</span><span style="color: #0000FF;">)</span>▼
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
<span style="color: #008080;">return</span> <span style="color: #000000;">cycleNotationcycle_notation</span><span style="color: #0000FF;">(</span><span style="color: #000000;">s</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">t</span><span style="color: #0000FF;">)</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
<span style="color: #008080;">function</span> <span style="color: #000000;">cycleToOneLinecycle_to_one_line</span><span style="color: #0000FF;">(</span><span style="color: #004080;">sequence</span> <span style="color: #000000;">cycles</span><span style="color: #0000FF;">)</span>
<span style="color: #000080;font-style:italic;">-- Converts a list in cycle notation to one line notation.</span>
<span style="color: #004080;">string</span> <span style="color: #000000;">s</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">tagstart</span><span style="color: #0000FF;">(</span><span style="color: #008000;">'A'</span><span style="ABCDEFGHIJKLMNOcolor: #0000FF;">,</span><span style="color: #7060A8;">max</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">flatten</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cycles</span><span style="color: #0000FF;">))),</span>
<span style="color: #000000;">t</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">cyclePermutecycle_permute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">s</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">cycles</span><span style="color: #0000FF;">)</span>
<span style="color: #008080;">return</span> <span style="color: #000000;">oneLineNotationone_line_notation</span><span style="color: #0000FF;">(</span><span style="color: #000000;">s</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">t</span><span style="color: #0000FF;">)</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
<span style="color: #008080;">function</span> <span style="color: #000000;">ordercycle_order</span><span style="color: #0000FF;">(</span><span style="color: #004080;">sequence</span> <span style="color: #000000;">cycles</span><span style="color: #0000FF;">)</span>
<span style="color: #000080;font-style:italic;">-- Returns the order of a permutation.</span>
<span style="color: #008080;">return</span> <span style="color: #7060A8;">lcm</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">apply</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cycles</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">length</span><span style="color: #0000FF;">))</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
<span style="color: #008080;">function</span> <span style="color: #000000;">signaturecycle_signature</span><span style="color: #0000FF;">(</span><span style="color: #004080;">sequence</span> <span style="color: #000000;">cycles</span><span style="color: #0000FF;">)</span>
<span style="color: #000080;font-style:italic;">-- Returns the signature of a permutation.</span>
<span style="color: #008080;">return</span> <span style="color: #7060A8;">even</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">sum</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">apply</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">apply</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cycles</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">length</span><span style="color: #0000FF;">),</span><span style="color: #7060A8;">even</span><span style="color: #0000FF;">)))*</span><span style="color: #000000;">2</span><span style="color: #0000FF;">-</span><span style="color: #000000;">1</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
<span style="color: #008080;">constant</span> <span style="color: #000000;">lettersDAYS</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{</span>
<span style="color: #008000000000;">"HANDYCOILSERUPT"MON</span> <span style="color: #0000FF;">,:=</span> <span style="color: #000080008000;font-">"HANDYCOILSERUPT"</span><span style="color:italic #0000FF;">// Monday,</span>
<span style="color: #008000000000;">"SPOILUNDERYACHT"TUE</span> <span style="color: #0000FF;">,:=</span> <span style="color: #000080008000;font-">"SPOILUNDERYACHT"</span><span style="color:italic #0000FF;">// Tuesday,</span>
<span style="color: #008000000000;">"DRAINSTYLEPOUCH"WED</span> <span style="color: #0000FF;">,:=</span> <span style="color: #000080008000;font-">"DRAINSTYLEPOUCH"</span><span style="color:italic #0000FF;">// Wednesday,</span>
<span style="color: #008000000000;">"DITCHSYRUPALONE"THU</span> <span style="color: #0000FF;">,:=</span> <span style="color: #000080008000;font-">"DITCHSYRUPALONE"</span><span style="color:italic #0000FF;">// Thursday,</span>
<span style="color: #008000000000;">"SOAPYTHIRDUNCLE"FRI</span> <span style="color: #0000FF;">,:=</span> <span style="color: #000080008000;font-">"SOAPYTHIRDUNCLE"</span><span style="color:italic #0000FF;">// Friday,</span>
<span style="color: #008000000000;">"SHINEPARTYCLOUD"SAT</span> <span style="color: #0000FF;">,:=</span> <span style="color: #000080008000;font-">"SHINEPARTYCLOUD"</span><span style="color:italic #0000FF;">// Saturday,</span>
<span style="color: #008000000000;">"RADIOLUNCHTYPES"SUN</span> <span style="color: #0000800000FF;font-">:=</span> <span style="color:italic #008000;">// Sunday"RADIOLUNCHTYPES"</span>
<span style="color: #0000FF;">}</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"On Thursdays Alf and Betty should rearrange their letters using these cycles:\n"</span><span style="color: #0000FF;">)</span>
<span style="color: #004080;">sequence</span> <span style="color: #000000;">cyclescycle_wt</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">cycleNotationcycle_notation</span><span style="color: #0000FF;">(</span><span style="color: #000000;">lettersWED</span><span style="color: #0000FF;">[</span><span style="color: #000000;">3</span><span style="color: #0000FF;">],</span> <span style="color: #000000;">letters</span><span style="color: #0000FF;">[</span><span style="color: #000000;">4THU</span><span style="color: #0000FF;">])</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"%s\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">cyclesToStringcycles_to_string</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cyclescycle_wt</span><span style="color: #0000FF;">)})</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"So that %s becomes %s\n\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">lettersWED</span><span style="color: #0000FF;">[</span><span style="color: #000000;">3</span><span style="color: #0000FF;">],</span><span style="color: #000000;">cyclePermutecycle_permute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">lettersWED</span><span style="color: #0000FF;">[</span><span style="color: #000000;">3</span><span style="color: #0000FF;">],</span> <span style="color: #000000;">cyclescycle_wt</span><span style="color: #0000FF;">)})</span>
<span style="color: #004080;">sequence</span> <span style="color: #000000;">oneLineone_line</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">cycleToOneLinecycle_to_one_line</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cyclescycle_wt</span><span style="color: #0000FF;">)</span>
<span style="color: #7060A8;">assert</span><span style="color: #0000FF;">(</span><span style="color: #000000;">oneLineToCycleone_line_to_cycle</span><span style="color: #0000FF;">(</span><span style="color: #000000;">oneLineone_line</span><span style="color: #0000FF;">)==</span><span style="color: #000000;">cyclescycle_wt</span><span style="color: #0000FF;">)</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"Or they could use the one line notation:\n%s\n\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">oneLineToStringone_line_to_string</span><span style="color: #0000FF;">(</span><span style="color: #000000;">oneLineone_line</span><span style="color: #0000FF;">)})</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"To revert to the Wednesday arrangement they should use these cycles:\n"</span><span style="color: #0000FF;">)</span>
<span style="color: #0040807060A8;">sequenceprintf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cycles21</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"%s\n\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">cycles_to_string</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cycleInversecycle_inverse</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cyclescycle_wt</span><span style="color: #0000FF;">))})</span>
▲ <span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"%s\n\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">cyclesToString</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cycles2</span><span style="color: #0000FF;">)})</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"Or with the one line notation:\n"</span><span style="color: #0000FF;">)</span>
<span style="color: #004080;">sequence</span> <span style="color: #000000;">oneLine2one_line2</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">oneLineInverseone_line_inverse</span><span style="color: #0000FF;">(</span><span style="color: #000000;">oneLineone_line</span><span style="color: #0000FF;">)</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"%s\n"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">oneLineToStringone_line_to_string</span><span style="color: #0000FF;">(</span><span style="color: #000000;">oneLine2one_line2</span><span style="color: #0000FF;">))</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"So that %s becomes %s\n\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">lettersTHU</span><span style="color: #0000FF;">[</span><span style="color: #000000;">4</span><span style="color: #0000FF;">],</span><span style="color: #000000;">oneLinePermuteone_line_permute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">lettersTHU</span><span style="color: #0000FF;">[</span><span style="color: #000000;">4</span><span style="color: #0000FF;">],</span> <span style="color: #000000;">oneLine2one_line2</span><span style="color: #0000FF;">)})</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"Starting with the Sunday arrangement and applying each of the daily arrangements\n"</span><span style="color: #0000FF;">)</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"consecutively, the arrangements will be:\n\n"</span><span style="color: #0000FF;">)</span>
<span style="color: #0080807060A8;">constantprintf</span> <span style="color: #000000;">days</span> <span style="color: #0000FF;">=(</span> <span style="color: #0000FF000000;">{</span><span style="color: #008000;">"Mon"1</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"Tue"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"Wed%s\n\n"</span><span style="color: #0000FF;">,{(</span> <span style="color: #008000000000;">"Thu"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"Fri"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"Sat"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"Sun"SUN</span><span style="color: #0000FF;">)})</span>
<span style="color: #7060A8004080;">printfsequence</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1signatures</span> <span style="color: #0000FF;">,=</span><span style="color: #008000;">" %s\n\n"</span><span style="color: #0000FF;">,{(},</span> <span style="color: #000000;">lettersorders</span> <span style="color: #0000FF;">[=</span><span style="color: #000000;">7</span><span style="color: #0000FF;">]){})</span>
<span style="color: #008080004080;">forinteger</span> <span style="color: #000000;">jyesterday</span> <span style="color: #0000FF;">=</span> <span style="color: #0000007060A8;">1length</span> <span style="color: #0080800000FF;">to(</span> <span style="color: #000000;">7DAYS</span> <span style="color: #0080800000FF;">do)</span>
<span style="color: #004080008080;">stringfor</span> <span style="color: #000000;">crtoday</span> <span style="color: #0000FF;">=</span> <span style="color: #008080000000;">iff1</span><span style="color: #0000FF;">(</span><span style="color: #000000008080;">jto</span><span style="color: #0000FF;">>=</span><span style="color: #0000007060A8;">6length</span><span style="color: #0000FF;">?(</span><span style="color: #008000000000;">"\n"DAYS</span><span style="color: #0000FF;">:)</span><span style="color: #008000;">""</span><span style="color: #0000FF008080;">)do</span>
<span style="color: #004080;">integerstring</span> <span style="color: #000000;">itd</span> <span style="color: #0000FF;">=</span> <span style="color: #008080000000;">iffDAYS</span><span style="color: #0000FF;">([</span><span style="color: #000000;">jtoday</span><span style="color: #0000FF;">=],</span> <span style="color: #000000;">1yd</span> <span style="color: #0000FF;">?</span><span style="color: #000000;">7</span><span style="color: #0000FF;">:</span><span style="color: #000000;">jDAYS</span><span style="color: #0000FF;">-[</span><span style="color: #000000;">1yesterday</span><span style="color: #0000FF;">)]</span>
<span style="color: #004080;">sequence</span> <span style="color: #000000;">ol</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">oneLineNotationone_line_notation</span><span style="color: #0000FF;">(</span><span style="color: #000000;">lettersyd</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">],</span> <span style="color: #000000;">letterstd</span><span style="color: #0000FF;">[</span><span style="color: #000000;">j</span><span style="color: #0000FF;">]),</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"%s: %s%s\n"</span><span style="color: #0000FF000000;">,{cy</span><span style="color: #000000;">days</span><span style="color: #0000FF;">[</span><span style="color: #000000;">j</span><span style="color: #0000FF;">],</span><span style="color: #000000;">oneLinePermutecycle_notation</span><span style="color: #0000FF;">(</span><span style="color: #000000;">letters</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">],</span> <span style="color: #000000;">olyd</span><span style="color: #0000FF;">),</span><span style="color: #000000;">crtd</span><span style="color: #0000FF;">})</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" %s\n : %s\n\n"</span><span style="color: #0000FF;">,{</span><span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #000000;">daystd</span><span style="color: #0000FF;">),</span><span style="color: #7060A8000000;">joinone_line_permute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">signaturesyd</span><span style="color: #0000FF;">,</span><span style="color: #000000;">fmt</span><span style="color: #0000FF;">:=</span><span style="color: #008000;">"%2d "ol</span><span style="color: #0000FF;">)})</span>▼
▲ <span style="color: #008080;">if</span> <span style="color: #000000;">ttoday</span><span style="color: #0000FF;">[>=</span><span style="color: #0000007060A8;">ifind</span><span style="color: #0000FF;">]=(</span><span style="color: #008000000000;">""SAT</span> <span style="color: #0080800000FF;">then,</span> <span style="color: #000000;">tDAYS</span><span style="color: #0000FF;">[)</span> <span style="color: #000000008080;">ithen</span> <span style="color: #0000FF7060A8;">]printf</span> <span style="color: #0000FF;">=(</span> <span style="color: #000000;">s1</span><span style="color: #0000FF;">[,</span><span style="color: #000000008000;">i"\n"</span><span style="color: #0000FF;">])</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
▲ <span style="color: #000000;">signatures</span> <span style="color: #0040800000FF;">sequence&=</span> <span style="color: #000000;">cyclecycle_signature</span> <span style="color: #0000FF;">=(</span><span style="color: #000000;">cy</span><span style="color: #0000FF;">{})</span>
▲ <span style="color: #008080000000;">returnorders</span> <span style="color: #7060A80000FF;">&=</span> <span style="color: #000000;">joincycle_order</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cycles2cy</span><span style="color: #0000FF;">)</span>
▲ <span style="color: #004080;">sequence</span> <span style="color: #000000;">cycles2yesterday</span> <span style="color: #0000FF;">:=</span> <span style="color: #0000FF000000;">{}today</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"To go from Wednesday to Friday in a single step they should use these cycles:\n"</span><span style="color: #0000FF;">)</span>
<span style="color: #004080;">sequence</span> <span style="color: #000000;">cycles3cycles_tf</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">cycleNotationcycle_notation</span><span style="color: #0000FF;">(</span><span style="color: #000000;">lettersTHU</span><span style="color: #0000FF;">[</span><span style="color: #000000;">4</span><span style="color: #0000FF;">],</span> <span style="color: #000000;">letters</span><span style="color: #0000FF;">[</span><span style="color: #000000;">5FRI</span><span style="color: #0000FF;">]),</span>
<span style="color: #000000;">cycles4cycles_wf</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">cycleCombinecycle_combine</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cyclescycle_wt</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">cycles3cycles_tf</span><span style="color: #0000FF;">)</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"%s\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">cyclesToStringcycles_to_string</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cycles4cycles_wf</span><span style="color: #0000FF;">)})</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"So that %s becomes %s\n\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">lettersWED</span><span style="color: #0000FF;">[</span><span style="color: #000000;">3</span><span style="color: #0000FF;">],</span><span style="color: #000000;">cyclePermutecycle_permute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">lettersWED</span><span style="color: #0000FF;">[</span><span style="color: #000000;">3</span><span style="color: #0000FF;">],</span> <span style="color: #000000;">cycles4cycles_wf</span><span style="color: #0000FF;">)})</span>
<span style="color: #004080008080;">sequenceconstant</span> <span style="color: #000000;">signaturesFMT</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF008000;">{},</span> <span style="color: #000000;">orders</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{}</span>
These are the %s of the permutations:
▲ <span style="color: #008080;">for</span> <span style="color: #000000;">j</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #000000;">7</span> <span style="color: #008080;">do</span>
Mon Tue Wed Thu Fri Sat Sun
▲ <span style="color: #004080;">integer</span> <span style="color: #000000;">i</span> <span style="color: #0000FF;">=</span> <span style="color: #008080;">iff</span><span style="color: #0000FF;">(</span><span style="color: #000000;">j</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #0000FF;">?</span> <span style="color: #000000;">7</span> <span style="color: #0000FF;">:</span> <span style="color: #000000;">j</span><span style="color: #0000FF;">-</span><span style="color: #000000;">1</span><span style="color: #0000FF;">)</span>
%s
▲ <span style="color: #004080;">sequence</span> <span style="color: #000000;">cy</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">cycleNotation</span><span style="color: #0000FF;">(</span><span style="color: #000000;">letters</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">],</span> <span style="color: #000000;">letters</span><span style="color: #0000FF;">[</span><span style="color: #000000;">j</span><span style="color: #0000FF;">])</span>
<span style="color: #000000;">signatures</span> <span style="color: #0000FF;">&=</span> <span style="color: #000000;">signature</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cy</span><span style="color: #0000FF;">)</span>
▲ <span style="color: #000000;">orders</span> <span style="color: #0000FF;">&=</span> <span style="color: #000000;">order</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cy</span><span style="color: #0000FF;">)</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
▲ <span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"These are the signatures of the permutations:\n"</span><span style="color: #0000FF;">)</span>
▲ <span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" %s\n %s\n\n"</span><span style="color: #0000FF;">,{</span><span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #000000;">days</span><span style="color: #0000FF;">),</span><span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #000000;">signatures</span><span style="color: #0000FF;">,</span><span style="color: #000000;">fmt</span><span style="color: #0000FF;">:=</span><span style="color: #008000;">"%2d "</span><span style="color: #0000FF;">)})</span>
"""</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"These are the orders of the permutations:\n"</span><span style="color: #0000FF;">)</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000000000;">" %s\n %s\n\n"FMT</span><span style="color: #0000FF;">,{</span><span style="color: #7060A8008000;">join</span><span style="color: #0000FF;signatures">(</span><span style="color: #000000;">days</span><span style="color: #0000FF;">),</span><span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #000000;">orderssignatures</span><span style="color: #0000FF;">,</span><span style="color: #000000;">fmt</span><span style="color: #0000FF;">:=</span><span style="color: #008000;">"%3d2d "</span><span style="color: #0000FF;">)})</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">FMT</span><span style="color: #0000FF;">,{</span><span style="color: #008000;">"orders"</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #000000;">orders</span><span style="color: #0000FF;">,</span><span style="color: #000000;">fmt</span><span style="color: #0000FF;">:=</span><span style="color: #008000;">"%3d"</span><span style="color: #0000FF;">)})</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"Applying the Friday cycle to a string 10 times:\n\n"</span><span style="color: #0000FF;">)</span>
Line 541 ⟶ 542:
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" %s\n\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">prev</span><span style="color: #0000FF;">})</span>
<span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #000000;">10</span> <span style="color: #008080;">do</span>
<span style="color: #004080;">string</span> <span style="color: #000000;">crprev</span> <span style="color: #0000FF;">=</span> <span style="color: #008080000000;">iffcycle_permute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">iprev</span><span style="color: #0000FF;">>=,</span><span style="color: #000000;">9</span><span style="color: #0000FF;">?</span><span style="color: #008000;">"\n"</span><span style="color: #0000FF;">:</span><span style="color: #008000;">""cycles_tf</span><span style="color: #0000FF;">)</span>
<span style="color: #0000007060A8;">prevprintf</span> <span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #000000008000;">cyclePermute"%2d %s\n"</span><span style="color: #0000FF;">(,{</span><span style="color: #000000;">previ</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">cycles3prev</span><span style="color: #0000FF;">})</span>
<span style="color: #7060A8008080;">printfif</span> <span style="color: #0000FF000000;">(i</span><span style="color: #0000000000FF;">1>=</span><span style="color: #0000FF000000;">,9</span> <span style="color: #008000008080;">then</span> <span style="%2dcolor: %s%s\n#7060A8;">printf</span><span style="color: #0000FF;">,{(</span><span style="color: #000000;">i1</span><span style="color: #0000FF;">,</span><span style="color: #000000008000;">prev"\n"</span><span style="color: #0000FF;">,)</span> <span style="color: #000000008080;">crend</span> <span style="color: #0000FF008080;">})if</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
<!--</lang>-->
Output identical to Julia/Wren
 
=={{header|Python}}==
{{trans|Julia}}
Petelomax
7,806

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/320606"