funds-cvs August 2007

funds-cvs@common-lisp.net

1 participants
113 discussions

[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

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

20 Aug '07

Author: abaine Date: Mon Aug 20 12:58:18 2007 New Revision: 198 Modified: trunk/funds/src/f-array.lisp Log: Added f-array-count, f-array-count-if, map-f-array, and f-array-as-list; also added initial-element keyword to make-f-array. Modified: trunk/funds/src/f-array.lisp ============================================================================== --- trunk/funds/src/f-array.lisp (original) +++ trunk/funds/src/f-array.lisp Mon Aug 20 12:58:18 2007 @@ -1,7 +1,7 @@ (in-package :funds) -(defun make-f-array (size &key (initial-contents nil)) +(defun make-f-array (size &key (initial-contents nil) (initial-element nil)) "A functional array of the given size with the given initial contents." (let ((length (length initial-contents))) (labels ((f (start end) @@ -11,7 +11,7 @@ (make-instance 'binary-tree :key midpoint :value (if (< start length) (elt initial-contents midpoint) - nil) + initial-element) :left (f start midpoint) :right (f (1+ midpoint) end)))))) (f 0 size)))) @@ -32,3 +32,22 @@ amount (f (bt-right tree) (1+ (bt-key tree)))))) (f array 0))) + +(defun f-array-count (item f-array &key (key #'identity) (test #'eql)) + (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)) + (tree-count-if pred f-array + :key #'(lambda (tree) + (funcall key (bt-value tree))))) + +(defun map-f-array (function f-array) + (map-tree #'(lambda (tree) + (funcall function (bt-value tree))) + f-array)) + +(defun f-array-as-list (f-array) + (mapcar #'cdr (tree-as-alist f-array)))

1 0

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

20 Aug '07

Author: abaine Date: Mon Aug 20 12:57:15 2007 New Revision: 197 Modified: trunk/funds/src/package.lisp Log: Exported f-array-as-list. Modified: trunk/funds/src/package.lisp ============================================================================== --- trunk/funds/src/package.lisp (original) +++ trunk/funds/src/package.lisp Mon Aug 20 12:57:15 2007 @@ -75,6 +75,7 @@ :f-array-elt :f-array-replace :f-array-size + :f-array-as-list :f-array-count :f-array-count-if :map-f-array))

1 0

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

20 Aug '07

Author: abaine Date: Mon Aug 20 12:40:01 2007 New Revision: 196 Modified: trunk/funds/src/package.lisp Log: Exported f-array-count f-array-count-if map-f-array. Modified: trunk/funds/src/package.lisp ============================================================================== --- trunk/funds/src/package.lisp (original) +++ trunk/funds/src/package.lisp Mon Aug 20 12:40:01 2007 @@ -74,4 +74,7 @@ :make-f-array :f-array-elt :f-array-replace - :f-array-size)) + :f-array-size + :f-array-count + :f-array-count-if + :map-f-array))

1 0

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

20 Aug '07

Author: abaine Date: Mon Aug 20 12:36:37 2007 New Revision: 195 Modified: trunk/funds/src/stack.lisp Log: Added stack-count and stack-count-if. Modified: trunk/funds/src/stack.lisp ============================================================================== --- trunk/funds/src/stack.lisp (original) +++ trunk/funds/src/stack.lisp Mon Aug 20 12:36:37 2007 @@ -58,4 +58,10 @@ (defun stack-as-list (stack) "This function is here in case the implementation of stack changes from what it is now, a list." - stack) \ No newline at end of file + stack) + +(defun stack-count (item stack &key (key #'identity) (test #'eql)) + (count item stack :key key :test test)) + +(defun stack-count-if (predicate stack &key (key #'identity)) + (count-if predicate stack :key key))

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

funds-cvs August 2007