Skip to main content

Browse the archive

https://github.com/jrincayc/ucblogo-code
20 August 2021, 06:23:13 UTC
Revision 5afb248a0a147ea979fec61685ab805ae89466f7 authored by Barak A. Pearlmutter on 19 October 2019, 14:51:53 UTC, committed by Barak A. Pearlmutter on 22 July 2020, 19:36:14 UTC 
make logolib/ more atomic; single copy of contents; UTF-8
1 parent 90ab668
Raw File
Tip revision: 5afb248a0a147ea979fec61685ab805ae89466f7 authored by Barak A. Pearlmutter on 19 October 2019, 14:51:53 UTC
make logolib/ more atomic; single copy of contents; UTF-8
Tip revision: 5afb248
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