From d0b8d7c8935dc1bf6fbb09c752707a82bc066808 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Tue, 14 May 2024 13:01:22 +0200 Subject: rev1 --- src/Data/Array/Mixed.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/Data/Array/Mixed.hs') diff --git a/src/Data/Array/Mixed.hs b/src/Data/Array/Mixed.hs index 2b6bfe2..0351beb 100644 --- a/src/Data/Array/Mixed.hs +++ b/src/Data/Array/Mixed.hs @@ -411,3 +411,6 @@ empty sh slice :: [(Int, Int)] -> XArray sh a -> XArray sh a slice ivs (XArray arr) = XArray (S.slice ivs arr) + +rev1 :: XArray (n : sh) a -> XArray (n : sh) a +rev1 (XArray arr) = XArray (S.rev [0] arr) -- cgit v1.2.3-70-g09d2