Anonymous user
Canonicalize CIDR: Difference between revisions
m
→{{header|REXX}}: added a test for shifting.
m (more test cases to fit changes in task description) |
m (→{{header|REXX}}: added a test for shifting.) |
||
Line 319:
#= translate(#, , .) /*elide periods from IPv4 address nodes*/
$= /*initialize the to-be reassembled IPv4*/
if shift<=32 then /*perform shifting iff SHIFT ≤ 32 bits.*/
do j=1 for max( words(#), 4) /*process each of IP node, a min of 4. */
x= word( word(#, j) 0, 1) /*use a zero for omitted IP nodes. */
|