Direct function: Difference between revisions

Revision as of 12:22, 21 September 2021

Revision as of 01:09, 15 December 2021

Line 364:

{| class="wikitable"

|- bgcolorstyle="vertical-align:top; background-color:#ffffff;"

| {{sxhl|1=

|-

|- bgcolor="#ffffff"

| <pre>

sieve←{

4≥⍵:⍵⍴0 0 1 1

Line 376 ⟶ 374:

{r<q←b⍳1:b⊣b[⍵]←1 ⋄ b[q,q×⍸b↑⍨⌈n÷q]←0 ⋄ ∇ ⍵,q}p

}

|2=apl}}

| {{sxhl|1=

</pre>

| <pre>

∇ b←sieve1 n;i;m;p;q;r

:If 4≥n ⋄ b←n⍴0 0 1 1 ⋄ :Return ⋄ :EndIf

Line 390 ⟶ 387:

b[p]←1

∇

|2=apl}}

| {{sxhl|1=

</pre>

| <pre>

∇ b←sieve2 n;i;m;p;q;r

→L10 ⍴⍨ 4<n ⋄ b←n⍴0 0 1 1 ⋄ →0

Line 409 ⟶ 405:

b[p]←1

∇

|2=apl}}

</pre>

|}