https://github.com/jrincayc/ucblogo-code
Tip revision: 9193bdc5ad3c6a6332421f14021317b66dcb9618 authored by Joshua J. Cogliati on 14 December 2020, 03:39:19 UTC
Bumping version to 6.2 (and 6.2pre in configure.ac)
Bumping version to 6.2 (and 6.2pre in configure.ac)
Tip revision: 9193bdc
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]