8 lines
261 B
APL
8 lines
261 B
APL
∇ Q_sequence;seq;size
|
||
size←100000
|
||
seq←{⍵,+/⍵[(1+⍴⍵)-¯2↑⍵]}⍣(size-2)⊢1 1
|
||
|
||
⎕←'The first 10 terms are:', seq[⍳10]
|
||
⎕←'The 1000th term is:', seq[1000]
|
||
⎕←(+/ 2>/seq),'terms were preceded by a larger term.'
|
||
∇
|