8 lines
221 B
APL
8 lines
221 B
APL
|
task←{
|
|||
|
|
totient ← 1+.=⍳∨⊢
|
|||
|
|
prime ← totient=-∘1
|
|||
|
|
|
|||
|
|
⎕←'Index' 'Totient' 'Prime',(⊢⍪totient¨,[÷2]prime¨)⍳25
|
|||
|
|
{⎕←'There are' (+/prime¨⍳⍵) 'primes below' ⍵}¨100 1000 10000
|
|||
|
|
}
|