opt.pub « ports « conf « core - doc - Systems documentation

about summary refs log tree commit diff stats

path: root/core/conf/ports/opt.pub

blob: 346b68813954acbf1162e246fb32badd9f418b66 (plain) (blame)

1 2	`untrusted comment: opt public key RWSE3ohX2g5d/Zmwm/W4S8ZzNNTjXE7bI8XmnpawKOnQ+MiVa7TD0YC9`

light .w { color: #bbbbbb } /* Text.Whitespace */ .highlight .mb { color: #0000DD; font-weight: bold } /* Literal.Number.Bin */ .highlight .mf { color: #0000DD; font-weight: bold } /* Literal.Number.Float */ .highlight .mh { color: #0000DD; font-weight: bold } /* Literal.Number.Hex */ .highlight .mi { color: #0000DD; font-weight: bold } /* Literal.Number.Integer */ .highlight .mo { color: #0000DD; font-weight: bold } /* Literal.Number.Oct */ .highlight .sa { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Affix */ .highlight .sb { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Backtick */ .highlight .sc { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Char */ .highlight .dl { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Delimiter */ .highlight .sd { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Doc */ .highlight .s2 { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Double */ .highlight .se { color: #0044dd; background-color: #fff0f0 } /* Literal.String.Escape */ .highlight .sh { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Heredoc */ .highlight .si { color: #3333bb; background-color: #fff0f0 } /* Literal.String.Interpol */ .highlight .sx { color: #22bb22; background-color: #f0fff0 } /* Literal.String.Other */ .highlight .sr { color: #008800; background-color: #fff0ff } /* Literal.String.Regex */ .highlight .s1 { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Single */ .highlight .ss { color: #aa6600; background-color: #fff0f0 } /* Literal.String.Symbol */ .highlight .bp { color: #003388 } /* Name.Builtin.Pseudo */ .highlight .fm { color: #0066bb; font-weight: bold } /* Name.Function.Magic */ .highlight .vc { color: #336699 } /* Name.Variable.Class */ .highlight .vg { color: #dd7700 } /* Name.Variable.Global */ .highlight .vi { color: #3333bb } /* Name.Variable.Instance */ .highlight .vm { color: #336699 } /* Name.Variable.Magic */ .highlight .il { color: #0000DD; font-weight: bold } /* Literal.Number.Integer.Long */

(define datum car)
(define children cdr)
(define make-tree cons)
(define (city x) (make-tree x '()))
(define (leaf? x) (null? (children x)))

(define world
  (make-tree
   'earth
   (list (make-tree
	  'united-states
	  (list (make-tree
		 'california
		 (list (city 'berkeley)
		       (city 'san-francisco)
		       (city 'palo-alto)
		       (city 'oakland)))
		(make-tree
		 'massachusetts
		 (list (city 'cambridge)
		       (city 'amherst)
		       (city 'boston)
		       (city 'sudbury)))
		(make-tree
		 'new-york
		 (list (city 'new-york)))))
	 (make-tree
	  'france
	  (list (city 'paris)
		(city 'lyon)
		(city 'marseilles))))))

(define (find-place place tree)
  (cond ((eq? place (datum tree)) (cons (datum tree) '()))
	((leaf? tree) '())
	(else (let ((try (find-subtree place (children tree))))
		(if (not (null? try))
		    (cons (datum tree) try)
		    '())))))

(define (find-subtree place nodes)
  (if (null? nodes)
      '()
      (let ((try (find-place place (car nodes))))
	(if (not (null? try))
	    try
	    (find-subtree place (cdr nodes))))))