From 1ccac39e6a9115869b1027094fe1a2f1940198bf Mon Sep 17 00:00:00 2001
From: Rafael Schouten <rafaelschouten@gmail.com>
Date: Wed, 29 May 2024 17:56:55 +0200
Subject: [PATCH] use indexing rather than broadcast in Array (#170)

* use indexing rather than broadcast

* also add collect method

* handle zero dimensional
---
 src/array.jl | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/src/array.jl b/src/array.jl
index e81d827..b0a958c 100644
--- a/src/array.jl
+++ b/src/array.jl
@@ -3,6 +3,7 @@ macro implement_array_methods(t)
     t = esc(t)
     quote
         Base.Array(a::$t) = $_Array(a)
+        Base.collect(a::$t) = $_Array(a)
         Base.copyto!(dest::$t, source::AbstractArray) = $_copyto!(dest, source)
         Base.copyto!(dest::AbstractArray, source::$t) = $_copyto!(dest, source)
         Base.copyto!(dest::$t, source::$t) = $_copyto!(dest, source)
@@ -46,11 +47,8 @@ macro implement_array_methods(t)
 end
 
 # Use broadcast to copy to a new Array
-function _Array(a::AbstractArray{T,N}) where {T,N}
-    dest = Array{T,N}(undef, size(a))
-    dest .= a
-    return dest
-end
+_Array(a::AbstractArray{T,N}) where {T,N} = a[ntuple(_ -> :, Val{N}())...]
+_Array(a::AbstractArray{T,0}) where {T} = fill(a[])
 
 # Use broadcast to copy
 function _copyto!(dest::AbstractArray{<:Any,N}, source::AbstractArray{<:Any,N}) where {N}