O'Halloran numbers: Difference between revisions

m
→‎{{header|Phix}}: x,y,z a bit nicer than i,j,k. "no point checking 1,2,1 or 2,1,1" note added
m (→‎{{header|Phix}}: oops, a false that should be 0)
m (→‎{{header|Phix}}: x,y,z a bit nicer than i,j,k. "no point checking 1,2,1 or 2,1,1" note added)
Line 64:
 
=={{header|Phix}}==
Since we are going to check {1,1,2}, there is no point checking {1,2,1} or {2,1,1} etc.
<!--<syntaxhighlight lang="phix">(phixonline)-->
<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
Line 69 ⟶ 70:
<span style="color: #004080;">sequence</span> <span style="color: #000000;">areas</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: #000000;">5</span><span style="color: #0000FF;">)&</span><span style="color: #7060A8;">tagset</span><span style="color: #0000FF;">(</span><span style="color: #000000;">max_area</span><span style="color: #0000FF;">,</span><span style="color: #000000;">6</span><span style="color: #0000FF;">)</span>
<span style="color: #008080;">for</span> <span style="color: #000000;">ix</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #000000;">max_area</span> <span style="color: #008080;">do</span>
<span style="color: #008080;">if</span> <span style="color: #7060A8;">odd</span><span style="color: #0000FF;">(</span><span style="color: #000000;">ix</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">then</span> <span style="color: #000000;">areas</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: #000000;">0</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
<span style="color: #008080;">for</span> <span style="color: #000000;">jy</span><span style="color: #0000FF;">=</span><span style="color: #000000;">ix</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">floor</span><span style="color: #0000FF;">(</span><span style="color: #000000;">half_max</span><span style="color: #0000FF;">/</span><span style="color: #000000;">ix</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span>
<span style="color: #008080;">for</span> <span style="color: #000000;">kz</span><span style="color: #0000FF;">=</span><span style="color: #000000;">jy</span> <span style="color: #008080;">to</span> <span style="color: #000000;">half_max</span> <span style="color: #008080;">do</span>
<span style="color: #004080;">integeratom</span> <span style="color: #000000;">area</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">2</span> <span style="color: #0000FF;">*</span> <span style="color: #0000FF;">(</span><span style="color: #000000;">ix</span> <span style="color: #0000FF;">*</span> <span style="color: #000000;">jy</span> <span style="color: #0000FF;">+</span> <span style="color: #000000;">ix</span> <span style="color: #0000FF;">*</span> <span style="color: #000000;">kz</span> <span style="color: #0000FF;">+</span> <span style="color: #000000;">jy</span> <span style="color: #0000FF;">*</span> <span style="color: #000000;">kz</span><span style="color: #0000FF;">)</span>
<span style="color: #008080;">if</span> <span style="color: #000000;">area</span> <span style="color: #0000FF;">></span> <span style="color: #000000;">max_area</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;">areas</span><span style="color: #0000FF;">[</span><span style="color: #000000;">area</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">0</span>
7,820

edits