diff options
| author | Tom Smeding <t.j.smeding@uu.nl> | 2024-05-14 13:01:22 +0200 |
|---|---|---|
| committer | Tom Smeding <t.j.smeding@uu.nl> | 2024-05-14 13:01:22 +0200 |
| commit | d0b8d7c8935dc1bf6fbb09c752707a82bc066808 (patch) | |
| tree | a6cb8897bb201c87e1d8d2dd333b16781f8f6695 /src/Data/Array/Mixed.hs | |
| parent | b17676f566bc178be3eff4351a61b6368bdb9fe7 (diff) | |
rev1
Diffstat (limited to 'src/Data/Array/Mixed.hs')
| -rw-r--r-- | src/Data/Array/Mixed.hs | 3 |
1 files changed, 3 insertions, 0 deletions
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) |