apl>" <------------------------- sam078.txt ---------------------------->


apl>" <--- The Compress and Expand Functions --------------------------->


apl>(u # 1 0 1 1 0) / x # 2 3 5 7 11

2 5 7

apl>(~u) / x

3 11

apl>R 0 0 0 0 0 / x

0

apl>L # e # (d # c ^= ' ') / c # 'This is an example.'

Thisisanexample.


apl>d \ e

This is an example.

apl>1 1 0 1 \ [1] L # q # 3 4 R 'ABCDEFGHIJKL'

ABCD
EFGH
IJKL

ABCD
EFGH
    
IJKL

apl>1 1 0 1 `\ q

ABCD
EFGH
    
IJKL

apl>0 1 1 0 / q

BC
FG
JK

apl>1 0 1 / [1] q

ABCD
IJKL

apl>1 0 1 `/ q

ABCD
IJKL

apl>)off