funds-cvs

funds-cvs@common-lisp.net

225 discussions

[funds-cvs] r208 - trunk/funds
by abaine＠common-lisp.net 20 Aug '07

20 Aug '07

Author: abaine Date: Mon Aug 20 14:08:14 2007 New Revision: 208 Modified: trunk/funds/README Log: Superficial. Modified: trunk/funds/README ============================================================================== --- trunk/funds/README (original) +++ trunk/funds/README Mon Aug 20 14:08:14 2007 @@ -25,4 +25,4 @@ Make a symbolic link to the file funds/examples/funds-examples.asd visible to asdf. Type (asdf:operate 'asdf:load-op 'funds-examples). Now try -(solve p1) to see a functional sudoku solver at work. \ No newline at end of file +(solve p1) to see a functional sudoku solver at work.

1 0

[funds-cvs] r207 - trunk/funds
by abaine＠common-lisp.net 20 Aug '07

20 Aug '07

Author: abaine Date: Mon Aug 20 14:06:04 2007 New Revision: 207 Modified: trunk/funds/README Log: Added instructions for the solver. Modified: trunk/funds/README ============================================================================== --- trunk/funds/README (original) +++ trunk/funds/README Mon Aug 20 14:06:04 2007 @@ -20,3 +20,9 @@ To see the publicly exported symbols in package "FUNDS," look at the file funds/src/package.lisp. + +SEEING THE EXAMPLES + +Make a symbolic link to the file funds/examples/funds-examples.asd visible +to asdf. Type (asdf:operate 'asdf:load-op 'funds-examples). Now try +(solve p1) to see a functional sudoku solver at work. \ No newline at end of file

1 0

[funds-cvs] r206 - in trunk/funds: examples src/examples
by abaine＠common-lisp.net 20 Aug '07

20 Aug '07

Author: abaine Date: Mon Aug 20 14:04:09 2007 New Revision: 206 Added: trunk/funds/examples/ - copied from r205, trunk/funds/src/examples/ Removed: trunk/funds/src/examples/ Log: Moved examples to top-level directory.

1 0

[funds-cvs] r205 - trunk/funds/doc
by abaine＠common-lisp.net 20 Aug '07

20 Aug '07

Author: abaine Date: Mon Aug 20 14:01:17 2007 New Revision: 205 Removed: trunk/funds/doc/ Log: Deleted doc directory.

1 0

[funds-cvs] r204 - trunk/funds
by abaine＠common-lisp.net 20 Aug '07

20 Aug '07

Author: abaine Date: Mon Aug 20 14:00:19 2007 New Revision: 204 Modified: trunk/funds/README Log: Added pointer to latest version. Modified: trunk/funds/README ============================================================================== --- trunk/funds/README (original) +++ trunk/funds/README Mon Aug 20 14:00:19 2007 @@ -1,6 +1,9 @@ INSTALLING FUNDS +The latest version of funds is available at +http://common-lisp.net/project/funds. + Funds is designed to be loaded with asdf, available from http://cclan.cvs.sourceforge.net/*checkout*/cclan/asdf/asdf.lisp. Make a symbolic link to the file funds/src/funds.asd somewhere visible

1 0

[funds-cvs] r203 - trunk/funds/src/heap
by abaine＠common-lisp.net 20 Aug '07

20 Aug '07

Author: abaine Date: Mon Aug 20 13:57:41 2007 New Revision: 203 Modified: trunk/funds/src/heap/heap.lisp Log: Added all-important stitch-tree specializing on heap. Modified: trunk/funds/src/heap/heap.lisp ============================================================================== --- trunk/funds/src/heap/heap.lisp (original) +++ trunk/funds/src/heap/heap.lisp Mon Aug 20 13:57:41 2007 @@ -36,3 +36,10 @@ (defmethod tree-weight ((tree heap)) (heap-weight tree)) + +(defmethod stitch-tree ((tree heap) + &key (key (bt-key tree)) (value (bt-value tree)) left right) + (make-heap :priority key + :value value + :left left + :right right))

1 0

[funds-cvs] r202 - trunk/funds/src
by abaine＠common-lisp.net 20 Aug '07

20 Aug '07

Author: abaine Date: Mon Aug 20 13:56:51 2007 New Revision: 202 Modified: trunk/funds/src/queue.lisp Log: Superficial. Modified: trunk/funds/src/queue.lisp ============================================================================== --- trunk/funds/src/queue.lisp (original) +++ trunk/funds/src/queue.lisp Mon Aug 20 13:56:51 2007 @@ -67,7 +67,7 @@ "The elements in the given queue, returned as a list, in the order they would be dequeued from the given queue." (mapcar #'cdr (sort (tree-as-alist (queue-heap q)) - #'< :key #'car))) + #'< :key #'car))) (defun queue-count (item q &key (key #'identity) (test #'eql)) "The number of elements in the given queue that satisfy the test."

1 0

[funds-cvs] r201 - trunk/funds
by abaine＠common-lisp.net 20 Aug '07

20 Aug '07

Author: abaine Date: Mon Aug 20 13:54:19 2007 New Revision: 201 Modified: trunk/funds/README Log: Removed test instructions because there are no more tests. Modified: trunk/funds/README ============================================================================== --- trunk/funds/README (original) +++ trunk/funds/README Mon Aug 20 13:54:19 2007 @@ -16,21 +16,4 @@ > (asdf:operate 'asdf:load-op 'funds) To see the publicly exported symbols in package "FUNDS," look at the -file funds/src/package.lisp. - -RUNNING THE TESTS - -Funds' test suite uses lisp-unit, a unit test framework available from -http://www.cs.northwestern.edu/academics/courses/325/programs/lisp-unit.lisp. -Because lisp-unit is small and stable, it is included with funds. - -Make a symbolic link to funds/tests/funds-tests.asd somewhere visible -to asdf. As above, this would be: - - prompt $ cd /somewhere/in/*central-registry* - prompt $ ln -s /path/to/funds/tests/funds-tests.asd . - -Now type at a lisp prompt: - - > (asdf:operate 'asdf:load-op 'funds-tests) - > (lisp-unit:run-all-tests :funds-tests) +file funds/src/package.lisp.

1 0

[funds-cvs] r200 - in trunk/funds: . tests
by abaine＠common-lisp.net 20 Aug '07

20 Aug '07

Author: abaine Date: Mon Aug 20 13:11:46 2007 New Revision: 200 Removed: trunk/funds/issues.txt trunk/funds/tests/ Log: Deleted tests and issues.

1 0

[funds-cvs] r199 - trunk/funds/src
by abaine＠common-lisp.net 20 Aug '07

20 Aug '07

Author: abaine Date: Mon Aug 20 13:09:57 2007 New Revision: 199 Modified: trunk/funds/src/f-array.lisp Log: Documented f-array functions. Modified: trunk/funds/src/f-array.lisp ============================================================================== --- trunk/funds/src/f-array.lisp (original) +++ trunk/funds/src/f-array.lisp Mon Aug 20 13:09:57 2007 @@ -34,17 +34,21 @@ (f array 0))) (defun f-array-count (item f-array &key (key #'identity) (test #'eql)) + "The number of elements in the given f-array that satisfy the test." (tree-count item f-array :key #'(lambda (tree) (funcall key (bt-value tree))) :test test)) (defun f-array-count-if (pred f-array &key (key #'identity)) + "The number of elements in the given f-array that satisfy the test." (tree-count-if pred f-array :key #'(lambda (tree) (funcall key (bt-value tree))))) (defun map-f-array (function f-array) + "A new f-array whose elements are the results of the application +of the given function to the elements of the given f-array." (map-tree #'(lambda (tree) (funcall function (bt-value tree))) f-array))

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

funds-cvs