From 691852373230c490c1607b0c6b93ff55b6b57392 Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Mon, 21 Sep 2009 19:53:58 +0200 Subject: [PATCH] examples for using CL-VARIATES. Looks really good, EXCEPT FOR THE FRIGGING LICENSE! Signed-off-by: AJ Rossini --- TODO.lisp | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) diff --git a/TODO.lisp b/TODO.lisp index 5a4cfb9..42175ab 100644 --- a/TODO.lisp +++ b/TODO.lisp @@ -1,6 +1,6 @@ ;;; -*- mode: lisp -*- -;;; Time-stamp: <2009-09-19 23:08:58 tony> +;;; Time-stamp: <2009-09-21 19:51:17 tony> ;;; Creation: <2008-09-08 08:06:30 tony> ;;; File: TODO.lisp ;;; Author: AJ Rossini @@ -137,6 +137,18 @@ (random-seed state) (loop for i from 1 to 10 collect (random-range state 0 10)) +(setf (random-seed state) 44) +(loop for i from 1 to 10 collect + (random-range state 0 10)) + + +(setf (random-seed state) 44) +(random-seed state) +(loop for i from 1 to 10 collect + (normal-random state 0 1)) +(setf (random-seed state) 44) +(loop for i from 1 to 10 collect + (normal-random state 0 1)) @@ -144,6 +156,3 @@ ;;; experiments with LLA (in-package :cl-user) (asdf:oos 'asdf:load-op 'lla) - - - -- 2.11.4.GIT