Decode
Decode (⊥), also called Base, is a dyadic primitive function which evaluates the right argument in terms of the radix system defined by the left argument. Some implementations add monadic usage to this function, where the left argument defaults to the scalar 2. Decode is the inverse of Encode ⊤ with the same left argument X, when X is a non-scalar array and the right argument is a valid representation of a number in the radix system defined by X.
APL model
Decode can be viewed as calculating the "digit values" defined by the radix system, followed by inner product. The digit values are found by product scan. Note that the first number of the radix is ignored; it is there simply to be consistent with Encode.
0 24 60⊥∘.=⍨⍳3 ⍝ 1 day is 24 hours = 1440 minutes, 1 hour is 60 minutes
1440 60 1
⌽×\1,⌽1↓0 24 60 ⍝ The digit values of radix 0 24 60
1440 60 1
If the left argument is a scalar number, it is converted to a vector filled with that number.
10⊥∘.=⍨⍳3 ⍝ Base 10
100 10 1
⌽×\1,⌽1↓3⍴10
100 10 1
The resulting model looks like this:
Decode←{
(⌽×\1,⌽(1↓(≢⍵)⍴⊢)⍤1⊢⍺)+.×⍵
}
Examples
A common use case is to convert from base-N digits to an integer, usually in base 2 or 10.
10⊥1 2 3 4 5 ⍝ Base 10
12345
2⊥1 0 1 0 1 ⍝ Base 2
21
But since the left and right argument's values are not restricted in any way, X⊥Y with scalar X can also be thought as evaluating the polynomial Y at given value X. For example, evaluating at can be done as follows:
¯3⊥2 0 0 3 1 ⍝ Polynomial terms are written highest first, and absent terms are written as 0 154
Decode can be also used to convert from a measure given in a hierarchy of units to the smallest unit. For example, given that 1 day = 24 hours, 1 hour = 60 minutes, and 1 minute = 60 seconds, how many seconds is 2 days, 10 hours, 34 minutes, and 19 seconds?
0 24 60 60⊥2 10 34 19 210859
Decode can be also found in many idioms. Some of the simple and useful ones are reproduced here:
⎕←M←3 4⍴⍳12
1 2 3 4
5 6 7 8
9 10 11 12
⍝ 1⊥ is sum over the first axis (+⌿)
1⊥3 1 4 1 5 9
23
1⊥M
15 18 21 24
⍝ 0⊥ is last item over the first axis (⊢⌿), or last major cell
0⊥3 1 4 1 5 9
9
0⊥M
9 10 11 12
⍝ ⊥⍨ on a boolean vector counts trailing ones
⊥⍨1 1 0 1 1 1
3
External links
Lesson
Documentation
- Dyalog
- APLX
- J Dictionary, NuVoc (as
#.)