IBM 5110 User Manual page 43

Apl
Table of Contents

Advertisement

38
To delete leading blanks from a character string:
\/DLBt::[I]V
' O J
Z~"DLB
A
[1]
Z~(-l+{A='
')\O)'A
'iJ
DI...B .
:1,2:.'3 ,
LI·~,:;
,
To join vectors and print results as a single, sorted vector:
V...JOINt::[]::tV
V Zf·A ...JOIN B; T
[lJ
Z~T['T~A/BJ
V
foli··:1. 0
3 :I,
!,:,:j
b
'1
At ••
Bi-:l.~.=i
"('
~:,:;
"')
r)
,,:
..
A'_
(.) ..J()IN B
1 2 2 2 3 5 5 6 7 10 15
V...JDIN:l.t::[]J'V
'iJ
Zf·A ,.JOINt B; T
[lJ
Z~T['T~A/B]
'iJ
(~)
.JOINt B
15 10 7 6 5 5 3 2 2 2 1

Advertisement

Table of Contents
loading

Table of Contents