Skip to main content

Browse the archive

https://github.com/jrincayc/ucblogo-code
26 January 2024, 08:32:23 UTC
Revision e3a4d12a46d901da73743b105438891ed0f48504 authored by Joshua Cogliati on 26 October 2019, 02:34:26 UTC, committed by GitHub on 26 October 2019, 02:34:26 UTC 
Merge pull request #3 from jrincayc/fix_segfault
 
One is used to store pointers as well, so needs to be size of pointer.
2 parent s 160e994 + efcf4dd
Raw File
Tip revision: e3a4d12a46d901da73743b105438891ed0f48504 authored by Joshua Cogliati on 26 October 2019, 02:34:26 UTC
Merge pull request #3 from jrincayc/fix_segfault
Tip revision: e3a4d12
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]
back to top