funds-cvs

funds-cvs@common-lisp.net

225 discussions

[funds-cvs] r218 - public_html
by abaine＠common-lisp.net 28 Apr '08

28 Apr '08

Author: abaine Date: Mon Apr 28 17:23:13 2008 New Revision: 218 Modified: public_html/index.html Log: Fixed a few validation problems in index.html Modified: public_html/index.html ============================================================================== --- public_html/index.html (original) +++ public_html/index.html Mon Apr 28 17:23:13 2008 @@ -1,11 +1,11 @@ <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> -<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"><head><title>Funds</title> - - - - - <link rel="stylesheet" type="text/css" href="style.css"> - <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1"></head><body> +<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"> +<head> + <title>Funds</title> + <link rel="stylesheet" type="text/css" href="style.css"/> + <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1"/> +</head> +<body> <div class="header"> <h1>Funds</h1> <h2>Functional Data Structures in Common Lisp</h2> @@ -14,8 +14,8 @@ <h3>Introduction</h3> <p>Funds provides portable, purely - functional, data structures in Common Lisp. Funds was developed as a <a - href="http://code.google.com/soc/2007/lispnyc/appinfo.html?csaid=F098323F679401F6">Google Summer of Code Project</a>. Read more about my motivation for developing funds, and a description of the effectiveness of using tree-backed data structures in my Google Summer of Code application: <a href="funds.pdf">funds.pdf</a>. Funds is open source software released under the <a href="http://www.apache.org/licenses/LICENSE-2.0"> Apache License</a>.</p> + functional data structures in Common Lisp. Funds was developed as a <a + href="http://code.google.com/soc/2007/lispnyc/appinfo.html?csaid=F098323F679401F6">Google Summer of Code Project</a>. Read more about my motivation for developing funds, and a description of the effectiveness of using tree-backed data structures in my Google Summer of Code application, <a href="funds.pdf">funds.pdf</a>. Funds is open source software released under the <a href="http://www.apache.org/licenses/LICENSE-2.0"> Apache License</a>.</p> <h3>Download</h3>

1 0

[funds-cvs] r217 - public_html
by abaine＠common-lisp.net 28 Apr '08

28 Apr '08

Author: abaine Date: Mon Apr 28 17:05:45 2008 New Revision: 217 Modified: public_html/index.html Log: Updated broken link to gsoc lispnyc page. Modified: public_html/index.html ============================================================================== --- public_html/index.html (original) +++ public_html/index.html Mon Apr 28 17:05:45 2008 @@ -15,8 +15,7 @@ <p>Funds provides portable, purely functional, data structures in Common Lisp. Funds was developed as a <a - href="http://code.google.com/soc/lispnyc/appinfo.html?csaid=F098323F679401F6"> - Google Summer of Code Project</a>. Read more about my motivation for developing funds, and a description of the effectiveness of using tree-backed data structures in my Google Summer of Code application: <a href="funds.pdf">funds.pdf</a>. Funds is open source software released under the <a href="http://www.apache.org/licenses/LICENSE-2.0"> Apache License</a>.</p> + href="http://code.google.com/soc/2007/lispnyc/appinfo.html?csaid=F098323F679401F6">Google Summer of Code Project</a>. Read more about my motivation for developing funds, and a description of the effectiveness of using tree-backed data structures in my Google Summer of Code application: <a href="funds.pdf">funds.pdf</a>. Funds is open source software released under the <a href="http://www.apache.org/licenses/LICENSE-2.0"> Apache License</a>.</p> <h3>Download</h3>

1 0

[funds-cvs] r216 - public_html
by abaine＠common-lisp.net 28 Apr '08

28 Apr '08

Author: abaine Date: Mon Apr 28 16:58:01 2008 New Revision: 216 Modified: public_html/index.html Log: Edited index.html to refer to funds.pdf. Modified: public_html/index.html ============================================================================== --- public_html/index.html (original) +++ public_html/index.html Mon Apr 28 16:58:01 2008 @@ -13,37 +13,14 @@ <h3>Introduction</h3> - <p>The goal of the Funds project is to provide portable, purely - functional, efficient data structures written in Common Lisp. Funds - is open source software released under the - <a href="http://www.apache.org/licenses/LICENSE-2.0"> - Apache License - </a>.</p> - - <h3>Mailing Lists</h3> - <ul> - <li> - <a href="http://www.common-lisp.net/mailman/listinfo/funds-devel"> - funds-devel</a><br>for developers</li> - <li> - <a href="http://www.common-lisp.net/mailman/listinfo/funds-cvs"> - funds-cvs</a><br>Subversion log feed.</li> - <li> - <a href="http://www.common-lisp.net/mailman/listinfo/funds-announce"> - funds-announce</a><br>for announcements.</li> - - </ul> + <p>Funds provides portable, purely + functional, data structures in Common Lisp. Funds was developed as a <a + href="http://code.google.com/soc/lispnyc/appinfo.html?csaid=F098323F679401F6"> + Google Summer of Code Project</a>. Read more about my motivation for developing funds, and a description of the effectiveness of using tree-backed data structures in my Google Summer of Code application: <a href="funds.pdf">funds.pdf</a>. Funds is open source software released under the <a href="http://www.apache.org/licenses/LICENSE-2.0"> Apache License</a>.</p> <h3>Download</h3> - <p>Funds is under active development as a <a - href="http://code.google.com/soc/lispnyc/appinfo.html?csaid=F098323F679401F6"> - Google Summer of Code Project</a>. The current release is the google summer of -code submission: <a href="funds-gsoc-snapshot.tar.gz"> funds-gsoc-snapshot.tar.gz</a> -. Further releases can be expected before the end of the summer. In the meantime, -more recent sources are available from the subversion repository. - - </p> + <p>The current release of Funds is here: <a href="funds.tar.gz"> funds.tar.gz</a>.</p> <h3>Project members</h3> <ul> @@ -55,7 +32,7 @@ <p>You can <a href="http://common-lisp.net/websvn/listing.php?repname=funds"> - browse our Subversion repository</a> or download the current development + browse the Subversion repository</a> or download the current development tree via anonymous SVN, as described <a href="http://common-lisp.net/faq.shtml">here</a></p> <div class="footer">

1 0

[funds-cvs] r215 - public_html
by abaine＠common-lisp.net 28 Apr '08

28 Apr '08

Author: abaine Date: Mon Apr 28 16:50:17 2008 New Revision: 215 Added: public_html/funds.pdf (contents, props changed) Log: Added funds.pdf Added: public_html/funds.pdf ============================================================================== Binary file. No diff available.

1 0

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

28 Aug '07

Author: abaine Date: Mon Aug 27 21:04:23 2007 New Revision: 214 Modified: trunk/funds/src/dictionary.lisp Log: Fixed faulty dictionary-from-alist. Modified: trunk/funds/src/dictionary.lisp ============================================================================== --- trunk/funds/src/dictionary.lisp (original) +++ trunk/funds/src/dictionary.lisp Mon Aug 27 21:04:23 2007 @@ -57,8 +57,8 @@ (f (bt-right tree)))))) (f (dict-tree d)))) -(defun dictionary-from-alist (alist) +(defun dictionary-from-alist (alist &key (test #'eql) (hash #'sxhash)) (reduce #'(lambda (d pair) (dictionary-add d (car pair) (cdr pair))) alist - :initial-value (make-dictionary))) \ No newline at end of file + :initial-value (make-dictionary :test test :hash hash))) \ No newline at end of file

1 0

[funds-cvs] r213 - trunk/funds/examples
by abaine＠common-lisp.net 21 Aug '07

21 Aug '07

Author: abaine Date: Tue Aug 21 13:30:41 2007 New Revision: 213 Modified: trunk/funds/examples/sudoku.lisp Log: Eliminated un-needed functions from solver. Modified: trunk/funds/examples/sudoku.lisp ============================================================================== --- trunk/funds/examples/sudoku.lisp (original) +++ trunk/funds/examples/sudoku.lisp Tue Aug 21 13:30:41 2007 @@ -46,15 +46,10 @@ (round (expt (puzzle-size puzzle) 3)))) (defun puzzle-solved-p (puzzle) - (= (round (expt (puzzle-size puzzle) 2)) - (tree-count +true+ (puzzle-tree puzzle) :key #'bt-value :test #'=))) - -(defun puzzle-solvable-p (puzzle) (let ((size (puzzle-size puzzle))) - (iter (for f in x-y-z-functions) - (always (iter (for x below size) - (always (iter (for y below size) - (always (group-solvable puzzle f x y))))))))) + (= (round (expt size 2)) + (tree-count +true+ (puzzle-tree + puzzle) :key #'bt-value :test #'=)))) (defun fill-true (puzzle i j k) (fill-falses (set-to-true puzzle i j k) i j k)) @@ -190,21 +185,6 @@ (mod x order)) k))) -(defun group-solved (puzzle x-y-z-function x y) - (let ((size (puzzle-size puzzle))) - (= 1 (iter (for z below size) - (count (elt-true-p (multiple-value-call - #'puzzle-elt puzzle - (funcall x-y-z-function x y z size)))))))) - -(defun group-solvable (puzzle x-y-z-function x y) - (let ((size (puzzle-size puzzle))) - (iter (for z below size) - (for elt = (multiple-value-call #'puzzle-elt - puzzle (funcall x-y-z-function x y z size))) - (thereis (or (elt-unknown-p elt) - (elt-true-p elt)))))) - (defvar x-y-z-functions (list #'i-j-k-coordinates #'i-k-j-coordinates #'j-k-i-coordinates

1 0

[funds-cvs] r212 - trunk/funds/examples
by abaine＠common-lisp.net 21 Aug '07

21 Aug '07

Author: abaine Date: Tue Aug 21 08:32:48 2007 New Revision: 212 Modified: trunk/funds/examples/sudoku.lisp Log: Fixed solver (!) and made pretty printer. Modified: trunk/funds/examples/sudoku.lisp ============================================================================== --- trunk/funds/examples/sudoku.lisp (original) +++ trunk/funds/examples/sudoku.lisp Tue Aug 21 08:32:48 2007 @@ -126,7 +126,7 @@ ""))))))))) (defun puzzle-solve (puzzle) - (if (puzzle-complete-p puzzle) + (if (puzzle-solved-p puzzle) puzzle (iter (for f in x-y-z-functions) (for (values x y n) = (best-group puzzle f)) @@ -209,3 +209,49 @@ #'i-k-j-coordinates #'j-k-i-coordinates #'b-k-x-coordinates)) + +(defun print-sudoku (list) + (let* ((size (length list)) + (order (order size))) + (labels ((f (result list i) + (if (null list) + result + (f (concatenate 'string result + (if (zerop (mod i order)) + (filler-string size) + "") + (row-as-string (first list))) + (rest list) + (1+ i))))) + (concatenate 'string (f (format nil "~%") list 0) + (filler-string size))))) + +(defun row-as-string (row) + (let* ((size (length row)) + (order (order size))) + (labels ((f (result list i) + (if (null list) + result + (f (concatenate 'string result + (if (zerop (mod i order)) + "| " + "") + (format nil "~2A" (if (zerop (first list)) + "" + (first list)))) + (rest list) + (1+ i))))) + (concatenate 'string (format nil "~%") (f "" row 0) "|")))) + +(defun filler-string (size) + (let ((order (order size))) + (labels ((f (result i) + (if (= i size) + result + (f (concatenate 'string result + (if (zerop (mod i order)) + "+-" + "") + "--") + (1+ i))))) + (concatenate 'string (format nil "~%") (f "" 0) "+"))))

1 0

[funds-cvs] r211 - tags/funds-gsoc-snapshot
by abaine＠common-lisp.net 20 Aug '07

20 Aug '07

Author: abaine Date: Mon Aug 20 14:41:54 2007 New Revision: 211 Added: tags/funds-gsoc-snapshot/ - copied from r210, trunk/funds/ Log: Tagging the google summer of code release.

1 0

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

20 Aug '07

Author: abaine Date: Mon Aug 20 14:34:51 2007 New Revision: 210 Added: public_html/ - copied from r209, trunk/public_html/ Removed: trunk/public_html/ Log: Moved web-page to top-level of repository; there was no reason for it to be included in trunk.

1 0

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

20 Aug '07

Author: abaine Date: Mon Aug 20 14:30:57 2007 New Revision: 209 Modified: trunk/public_html/index.html Log: Updated homepage to include gsoc snapshot. Modified: trunk/public_html/index.html ============================================================================== --- trunk/public_html/index.html (original) +++ trunk/public_html/index.html Mon Aug 20 14:30:57 2007 @@ -36,12 +36,12 @@ <h3>Download</h3> - <p>This project has not released any files. It is under active - development as a <a + <p>Funds is under active development as a <a href="http://code.google.com/soc/lispnyc/appinfo.html?csaid=F098323F679401F6"> - Google Summer of Code Project</a>, and a release is planned for - August 20, 2007. In the meantime, the sources are available from - subversion repository. + Google Summer of Code Project</a>. The current release is the google summer of +code submission: <a href="funds-gsoc-snapshot.tar.gz"> funds-gsoc-snapshot.tar.gz</a> +. Further releases can be expected before the end of the summer. In the meantime, +more recent sources are available from the subversion repository. </p>

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