Revision 9e69e3271e296b7a329e44150d9c1f4adf9ce442 authored by Joshua Cogliati on 29 October 2020, 01:34:09 UTC, committed by GitHub on 29 October 2020, 01:34:09 UTC
ISSUE-36: Handle command line arguments across environments.
2 parent s 12004aa + 09a7358
Raw File
mdarray
;;; -*- logo -*-

to mdarray :sizes [:origin 1]
local "array
make "array (array first :sizes :origin)
if not emptyp bf :sizes ~
   [for [i :origin [:origin + (first :sizes) - 1]] ~
        [setitem :i :array (mdarray bf :sizes :origin)]]
output :array
end

bury "mdarray
back to top