16 lines
443 B
APL
16 lines
443 B
APL
|
task←{
|
|||
|
|
facs ← ⍸0=⍳|⊢
|
|||
|
|
aritm ← (0=≢|+/)∘facs
|
|||
|
|
comp ← 2<(≢facs)
|
|||
|
|
aritms ← ⍸aritm¨⍳15000
|
|||
|
|
|
|||
|
|
⎕←'First 100 arithmetic numbers:'
|
|||
|
|
⎕←10 10⍴aritms
|
|||
|
|
{
|
|||
|
|
⎕←''
|
|||
|
|
⎕←'The ',(⍕⍵),'th arithmetic number: ',(⍕aritms[⍵])
|
|||
|
|
ncomps ← +/comp¨⍵↑aritms
|
|||
|
|
⎕←'Of the first ',(⍕⍵),' arithmetic numbers, ',(⍕ncomps),' are composite.'
|
|||
|
|
}¨10*3 4
|
|||
|
|
}
|