Skip to main content

Browse the archive

https://github.com/jrincayc/ucblogo-code
19 February 2023, 21:27:03 UTC
Revision c098f066371da0164257fd6bcc80c76096706a0a authored by Joshua J. Cogliati on 24 December 2019, 04:04:55 UTC, committed by Joshua J. Cogliati on 24 December 2019, 04:04:55 UTC 
Fixing some minor problems with readme.
1 parent 4474c66
Raw File
Tip revision: c098f066371da0164257fd6bcc80c76096706a0a authored by Joshua J. Cogliati on 24 December 2019, 04:04:55 UTC
Fixing some minor problems with readme.
Tip revision: c098f06
find 
;;; -*- logo -*-

to find :find.template :template.list [:template.number 1] ~
        [:template.lists (list :template.list)]
if emptyp :template.list [op []]
if apply :find.template (list first :template.list) [op first :template.list]
op (find :find.template bf :template.list :template.number+1)
end

to ?rest [:which 1]
output bf item :which :template.lists
end

bury [find ?rest]
back to top