Commit 821bf3cf authored by Liam M. Healy's avatar Liam M. Healy
Browse files

Add list-no-key function

parent 1cdadad0
;; Sample sets of values from a low-discrepancy (quasi-random) sequence
;; Liam Healy 2011-06-06 09:42:22EDT low-discrepancy-sequence.lisp
;; Time-stamp: <2014-06-20 17:30:34EDT low-discrepancy-sequence.lisp>
;; Time-stamp: <2014-06-28 21:17:21EDT low-discrepancy-sequence.lisp>
;; Copyright 2011, 2013, 2014 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
......@@ -20,7 +20,7 @@
(in-package :antik)
(export '(low-discrepancy-sample apply-to-arguments))
(export '(low-discrepancy-sample apply-to-arguments list-no-key))
(defun val-from-range (val min max)
(+ min (* val (- max min))))
......@@ -34,6 +34,10 @@
do (gsl:qrng-get gen vec)
collect (grid:copy vec :grid-type grid-type :element-type 'double-float))))
(defun list-no-key (&rest args)
"Make a list of the values without the keywords."
(loop for (key val) on args by #'cddr collect val))
(defun low-discrepancy-sample (count make-function &rest parameters)
"Call the make function to generate a set of objects with the
parameters sampled according to a low-discrepancy sequence. Each
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment