mnalis/organicmaps
1
Fork 0
forked from organicmaps/organicmaps
Code Pull requests Activity

Merge pull request #2501 from ygorshenin/enhance-gen-samples-script

Browse source 
[search][quality] Enhancements to gen samples script
This commit is contained in:
mgsergio 2016-03-24 18:26:34 +04:00
commit d9e9b6d05a
1 changed files with 13 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
search/search_quality/gen-samples.lisp
View file

@ -2,7 +2,7 @@
exec /usr/local/bin/sbcl --noinform --quit --load $0 --end-toplevel-options "$@"
|#
; Silently loads :cl-json.
;;; Silently loads :cl-json.
(with-open-file (*standard-output* "/dev/null"
:direction :output
:if-exists :supersede)
@ -110,7 +110,18 @@ exec /usr/local/bin/sbcl --noinform --quit --load $0 --end-toplevel-options "$@"
(defsample query ,ls ,ps ,vs results)))
,@body))))
; Loads samples specification from standard input.
(defun power-set (seq)
(unless seq (return-from power-set '(())))
(let ((x (car seq))
(ps (power-set (cdr seq))))
(concatenate 'list ps (mapcar #'(lambda (xs) (cons x xs)) ps))))
(defun join-strings (strings)
"Joins a list of strings with spaces between them."
(with-output-to-string (s)
(format s "~{~a~^ ~}" strings)))
;;; Loads samples specification from standard input.
(load *standard-input*)
(format *error-output* "Num samples: ~a~%" (length *samples*))