Pell numbers: Difference between revisions

Pell numbers (view source)

Revision as of 01:44, 8 March 2022

1,373 bytes removed , 2 years ago

m

→‎{{header|Phix}}: actualy use the previously generated pell numbers for the near isoceles triangles

Petelomax

7,803

edits

Revision as of 22:09, 7 March 2022 (view source) Thundergnat (talk \| contribs) m (→‎{{header\|Raku}}: typos) ← Older edit		Revision as of 01:44, 8 March 2022 (view source) Petelomax (talk \| contribs) m (→‎{{header\|Phix}}: actualy use the previously generated pell numbers for the near isoceles triangles) Newer edit →
Line 429: <span style="color: #004080;">sequence</span> <span style="color: #000000;">p</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">0</span><span style="color: #0000FF;">,</span><span style="color: #000000;">1</span><span style="color: #0000FF;">},</span> <span style="color: #000000;">pl</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">2</span><span style="color: #0000FF;">,</span><span style="color: #000000;">2</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;">2</span> <span style="color: #008080;">to</span> <span style="color: #000000;">4041</span> <span style="color: #008080;">do</span> <span style="color: #000000;">p</span> <span style="color: #0000FF;">&=</span> <span style="color: #000000;">2</span><span style="color: #0000FF;"></span><span style="color: #000000;">p</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]+</span><span style="color: #000000;">p</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">-</span><span style="color: #000000;">1</span><span style="color: #0000FF;">]</span> <span style="color: #000000;">pl</span> <span style="color: #0000FF;">&=</span> <span style="color: #000000;">2</span><span style="color: #0000FF;"></span><span style="color: #000000;">pl</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]+</span><span style="color: #000000;">pl</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">-</span><span style="color: #000000;">1</span><span style="color: #0000FF;">]</span> Line 462: <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;">"\nFirst 20 Newman-Shank-Williams numbers: %s\n"</span><span style="color: #0000FF;">,{</span><span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #000000;">nsw</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" "</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;">"\nFirst 20 near isosceles right triangles:\n"</span><span style="color: #0000FF;">)</span> <span style="color: #~~004080~~008080;">~~atom~~for</span> <span style="color: #000000;">i0i</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">~~0</span><span style="color: #0000FF;">,~~4</span> <span style="color: #~~000000~~008080;">~~i1</span> <span style="color: #0000FF;">=~~to</span> <span style="color: #000000;">~~1</span><span style="color: #0000FF;">,~~42</span> <span style="color: #~~000000~~008080;">i2</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">t</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">1</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">i</span> <span style="color: #0000FF;">=by</span> <span style="color: #000000;">2~~</span><span style="color: #0000FF;">,~~</span> <span style="color: #~~000000;">found</span> <span style="color: #0000FF;">=</span> <span style="color: #000000~~008080;">0do</span> <span style="color: #~~008080~~004080;">~~while~~atom</span> <span style="color: #000000;">~~found~~side</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">sum</span><span style="color: #0000FF;">(</span><span style="color: #000000;">20p</span><span style="color: #0000FF;">[</span><span style="color: #~~008080~~000000;">1</span><span style="color: #0000FF;">..</span><span style="color: #000000;">i</span><span style="color: #0000FF;">-</span><span style="color: #000000;">1</span><span style="color: #0000FF;">]),</span> <span style="color: #000000;">hypot</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">p</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">do]</span> <span style="color: #~~000000~~7060A8;">i2printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"[%d, %d, %d]\n"</span><span style="color: #0000FF;">,</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">i1side</span><span style="color: #0000FF;">*,</span><span style="color: #000000;">2side</span><span style="color: #0000FF;">+</span><span style="color: #000000;">i01</span><span style="color: #0000FF;">,</span><span style="color: #000000;">hypot</span><span style="color: #0000FF;">})</span> <span style="color: #008080;">~~if</span> <span style="color: #7060A8;">odd</span><span style="color: #0000FF;">(</span><span style="color: #000000;">i</span><span style="color: #0000FF;">)~~end</span> <span style="color: #008080;">~~then~~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;">"[%d, %d, %d]\n"</span><span style="color: #0000FF;">,</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">t</span><span style="color: #0000FF;">,</span><span style="color: #000000;">t</span><span style="color: #0000FF;">+</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">i2</span><span style="color: #0000FF;">})</span> ~~<span style="color: #000000;">found</span> <span style="color: #0000FF;">+=</span> <span style="color: #000000;">1</span>~~ ~~<span style="color: #008080;">end</span> <span style="color: #008080;">if</span>~~ ~~<span style="color: #000000;">t</span> <span style="color: #0000FF;">+=</span> <span style="color: #000000;">i2</span>~~ <span style="color: #0000FF;">{</span><span style="color: #000000;">i0</span><span style="color: #0000FF;">,</span><span style="color: #000000;">i1</span><span style="color: #0000FF;">}</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">i1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">i2</span><span style="color: #0000FF;">}</span> ~~<span style="color: #000000;">i</span> <span style="color: #0000FF;">+=</span> <span style="color: #000000;">1</span>~~ ~~<span style="color: #008080;">end</span> <span style="color: #008080;">while</span>~~ <!--</lang>--> {{out}}