Skip to main content

Browse the archive

Revision 165b3d78388b6debb1861147fd48c7411f092758 authored by Joshua J. Cogliati on 23 December 2019, 03:05:14 UTC, committed by Joshua J. Cogliati on 23 December 2019, 03:05:14 UTC 
Switching to using git version.
1 parent 2301804
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