Skip to content

Surely There Must Be a Better Way ...

Vector 7:1, page 120

programming techniques humour

Transcribed from the printed issue; not yet reviewed. Read it in the PDF of the issue, page 120

Code fragment recently excavated and much pored over ...

  RC←⍎(1↓⍋(4800,5052)∊⍎∆ADMIN)⊃(('EEV') ('EV'))

We believe that this is meant to execute EV if ∆ADMIN='5052 ', otherwise execute EEV. Suggestions for simplification welcome!

P.S. The following fragment from John Preston (Saladin) via Bob Poate (MicroAPL):

  23817 ⎕INT 33

This closes a network print file, which will otherwise sit on the print queue until you exit from APL to the DOS prompt. Thanks.