# a [3 x 100K] piddle
$a = sequence 3, 100_000

[
 [ 0  1  2]
 [ 3  4  5]
 [ 6  7  8]
..
]

# create an extra [1 x 100K] piddle to hold the norms
$b = zeros 1, 100_1000

[
 [0]
 [0]
 [0]
..
]

# append $b to $a
$c = $a->append($b)

[
 [ 0  1  2  0]
 [ 3  4  5  0]
 [ 6  7  8  0]
..
]

# get the slices to the different cols
$col1 = $c->slice('0,:')
$col2 = $c->slice('1,:')
$col4 = $c->slice('3,:')

# calc the norms
$col4 .= (($col1 ** 2) + ($col2 ** 2)) ** 0.5

[
 [         0          1          2          1]
 [         3          4          5          5]
 [         6          7          8  9.2195445]
..
]

# or, do it all in one line

$b = $a->append(zeros 1, 100_000)
$norm = $b->slice('3,:')
$norm .= (($b->slice('0,:') ** 2) + ($b->slice('1,:') ** 2)) ** 0.5