Skip to content

Instantly share code, notes, and snippets.

@rebolek
Created July 20, 2020 13:39
Show Gist options
  • Save rebolek/ae804b046359d856b9945805e9480daa to your computer and use it in GitHub Desktop.
Save rebolek/ae804b046359d856b9945805e9480daa to your computer and use it in GitHub Desktop.
array: func [
"Makes and initializes a series of a given size."
[catch]
size [integer! block!] "Size or block of sizes for each dimension"
/initial "Specify an initial value for all elements"
value {Initial value (will be called each time if a function)}
/local block rest
][
if block? size [
if tail? rest: next size [rest: none]
unless integer? set/any 'size pick size 1 [
throw-error 'script 'expect-arg reduce ['array 'size type? get/any 'size]
]
]
block: make block! size
case [
block? rest [
loop size [block: insert/only block array/initial rest :value]
]
series? :value [
loop size [block: insert/only block copy/deep value]
]
any-function? :value [
loop size [block: insert/only block value]
]
insert/dup block value size
]
head block
]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment