https://github.com/jrincayc/ucblogo-code
Tip revision: e21e43605dee2b49f4701fde229cc65c445439b9 authored by Joshua Cogliati on 27 December 2019, 15:07:13 UTC
Merge pull request #19 from jrincayc/pre_release_6_1
Merge pull request #19 from jrincayc/pre_release_6_1
Tip revision: e21e436
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