# HG changeset patch
# User Tuomo Valkonen <tuomov@iki.fi>
# Date 1588967253 18000
# Node ID 63849571a046b03e894829ae85cbf8835236aa30
# Parent  0253c58818129461fd4ab66efe1c6d9393f1b20a
norm₁

diff -r 0253c5881812 -r 63849571a046 src/Util.jl
--- a/src/Util.jl	Fri May 08 14:46:41 2020 -0500
+++ b/src/Util.jl	Fri May 08 14:47:33 2020 -0500
@@ -12,6 +12,7 @@
 
 export map_first_slice!,
        reduce_first_slice,
+       norm₁,
        norm₂,
        γnorm₂,
        norm₂w,
@@ -135,6 +136,14 @@
     return √(norm₂²(y))
 end
 
+@inline function norm₁(y)
+    accum=0
+    for i=1:length(y)
+        @inbounds accum=accum+abs(y[i])
+    end
+    return accum
+end
+
 @inline function γnorm₂(y, γ)
     hubersq = xsq -> begin
         x=√xsq