funds-cvs July 2007

funds-cvs@common-lisp.net

1 participants
65 discussions

[funds-cvs] r41 - trunk/funds/src/stack
by abaine＠common-lisp.net 02 Jul '07

02 Jul '07

Author: abaine Date: Mon Jul 2 18:59:43 2007 New Revision: 41 Modified: trunk/funds/src/stack/stack.lisp Log: Switched the order of stack-push arguments. Modified: trunk/funds/src/stack/stack.lisp ============================================================================== --- trunk/funds/src/stack/stack.lisp (original) +++ trunk/funds/src/stack/stack.lisp Mon Jul 2 18:59:43 2007 @@ -5,7 +5,7 @@ "An empty stack." nil) -(defun stack-push (item stack) +(defun stack-push (stack item) "The stack that results when the given item is pushed onto the given stack." (cons item stack))

1 0

[funds-cvs] r40 - trunk/funds/src
by abaine＠common-lisp.net 02 Jul '07

02 Jul '07

Author: abaine Date: Mon Jul 2 18:58:55 2007 New Revision: 40 Modified: trunk/funds/src/funds.asd Log: Rearranged modules in funds.asd. Modified: trunk/funds/src/funds.asd ============================================================================== --- trunk/funds/src/funds.asd (original) +++ trunk/funds/src/funds.asd Mon Jul 2 18:58:55 2007 @@ -10,11 +10,11 @@ (defsystem funds :serial t - :components ((:module trees + :components ((:file "package") + (:module trees :serial t :components ((:file "package") (:file "avl-tree"))) (:module stack :serial t - :components ((:file "stack"))) - (:file "package"))) + :components ((:file "stack")))))

1 0

[funds-cvs] r39 - trunk/funds/src
by abaine＠common-lisp.net 02 Jul '07

02 Jul '07

Author: abaine Date: Mon Jul 2 18:40:44 2007 New Revision: 39 Modified: trunk/funds/src/funds.asd Log: Added stack module to system definition. Modified: trunk/funds/src/funds.asd ============================================================================== --- trunk/funds/src/funds.asd (original) +++ trunk/funds/src/funds.asd Mon Jul 2 18:40:44 2007 @@ -13,5 +13,8 @@ :components ((:module trees :serial t :components ((:file "package") - (:file "avl-tree"))) + (:file "avl-tree"))) + (:module stack + :serial t + :components ((:file "stack"))) (:file "package")))

1 0

[funds-cvs] r38 - trunk/funds/src
by abaine＠common-lisp.net 02 Jul '07

02 Jul '07

Author: abaine Date: Mon Jul 2 18:39:54 2007 New Revision: 38 Modified: trunk/funds/src/package.lisp Log: Added stack functions to funds public API. Modified: trunk/funds/src/package.lisp ============================================================================== --- trunk/funds/src/package.lisp (original) +++ trunk/funds/src/package.lisp Mon Jul 2 18:39:54 2007 @@ -2,4 +2,9 @@ (in-package :cl-user) (defpackage :funds - (:use :common-lisp)) + (:use :common-lisp) + (:export :make-stack + :stack-length + :stack-push + :stack-pop + :stack-empty-p))

1 0

[funds-cvs] r37 - trunk/funds/src/stack
by abaine＠common-lisp.net 02 Jul '07

02 Jul '07

Author: abaine Date: Mon Jul 2 18:39:22 2007 New Revision: 37 Added: trunk/funds/src/stack/ trunk/funds/src/stack/stack.lisp Log: Initial version of stack. Added: trunk/funds/src/stack/stack.lisp ============================================================================== --- (empty file) +++ trunk/funds/src/stack/stack.lisp Mon Jul 2 18:39:22 2007 @@ -0,0 +1,30 @@ + +(in-package :funds) + +(defun make-stack () + "An empty stack." + nil) + +(defun stack-push (item stack) + "The stack that results when the given item is pushed onto the given stack." + (cons item stack)) + +(defun stack-pop (stack) + "The stack that results when the top item is popped off the given stack." + (cdr stack)) + +(defun stack-top (stack) + "The top item on the given stack." + (car stack)) + +(defun stack-empty-p (stack) + "Whether the given stack is empty." + (null stack)) + +(defun stack-length (stack) + "The number of items on this stack; note that this is an O(n) operation." + (labels ((f (stack accum) + (if (stack-empty-p stack) + accum + (f (stack-pop stack) (1+ accum))))) + (f stack 0)))

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

funds-cvs July 2007