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
map
;;; -*- logo -*-
to map :map.template [:template.lists] 2
op map1 :template.lists 1
end
to map1 :template.lists :template.number
if emptyp first :template.lists [output first :template.lists]
output combine (apply :map.template firsts :template.lists) ~
(map1 bfs :template.lists :template.number+1)
end
to ?rest [:which 1]
output bf item :which :template.lists
end
bury [map map1 ?rest]