Skip to main content

Browse the archive

https://github.com/jrincayc/ucblogo-code
23 January 2022, 03:23:30 UTC
Revision 168b244b2d5b278792c9ad0051b3f4e67e97eefc authored by Barak A. Pearlmutter on 16 February 2018, 15:19:42 UTC, committed by Barak A. Pearlmutter on 22 July 2020, 19:33:19 UTC 
update autotooling
1 parent df59393
Raw File
Tip revision: 168b244b2d5b278792c9ad0051b3f4e67e97eefc authored by Barak A. Pearlmutter on 16 February 2018, 15:19:42 UTC
update autotooling
Tip revision: 168b244
filter 
;;; -*- logo -*-

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

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

bury [filter ?rest]
back to top