019f8fd211
git-subtree-dir: users/wpcarro git-subtree-mainline:464bbcb15cgit-subtree-split:24f5a642afChange-Id: I6105b3762b79126b3488359c95978cadb3efa789
102 lines
3.1 KiB
EmacsLisp
102 lines
3.1 KiB
EmacsLisp
;;; stack.el --- Working with stacks in Elisp -*- lexical-binding: t -*-
|
|
|
|
;; Author: William Carroll <wpcarro@gmail.com>
|
|
;; Version: 0.0.1
|
|
;; URL: https://git.wpcarro.dev/wpcarro/briefcase
|
|
;; Package-Requires: ((emacs "25.1"))
|
|
|
|
;;; Commentary:
|
|
;; A stack is a LIFO queue.
|
|
;; The design goal here is to expose an intuitive API for working with stacks in
|
|
;; non-mutative way.
|
|
;;
|
|
;; TODO: Consider naming a Functor instance "Mappable."
|
|
;; TODO: Consider naming a Foldable instance "Reduceable."
|
|
;;
|
|
;; TODO: Consider implementing an instance for Mappable.
|
|
;; TODO: Consider implementing an instance for Reduceable.
|
|
|
|
;;; Code:
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Dependencies
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(require 'list)
|
|
(require '>)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Create
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(cl-defstruct stack xs)
|
|
|
|
(defun stack-new ()
|
|
"Create an empty stack."
|
|
(make-stack :xs '()))
|
|
|
|
(defun stack-from-list (xs)
|
|
"Create a new stack from the list, `XS'."
|
|
(list-reduce (stack-new) #'stack-push xs))
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Read
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(defun stack-peek (xs)
|
|
"Look at the top element of `XS' without popping it off."
|
|
(->> xs
|
|
stack-xs
|
|
list-head))
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Update
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(defun stack-push (x xs)
|
|
"Push `X' on `XS'."
|
|
(struct-update stack
|
|
xs
|
|
(>-> (list-cons x))
|
|
xs))
|
|
|
|
;; TODO: How to return something like {(list-head xs), (list-tail xs)} in Elixir
|
|
;; TODO: How to handle popping from empty stacks?
|
|
(defun stack-pop (xs)
|
|
"Return the stack, `XS', without the top element.
|
|
Since I cannot figure out a nice way of return tuples in Elisp, if you want to
|
|
look at the first element, use `stack-peek' before running `stack-pop'."
|
|
(struct-update stack
|
|
xs
|
|
(>-> list-tail)
|
|
xs))
|
|
|
|
(defun stack-map-top (f xs)
|
|
"Apply F to the top element of XS."
|
|
(->> xs
|
|
stack-pop
|
|
(stack-push (funcall f (stack-peek xs)))))
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Miscellaneous
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(defun stack-to-list (xs)
|
|
"Return XS as a list.
|
|
The round-trip property of `stack-from-list' and `stack-to-list' should hold."
|
|
(->> xs
|
|
stack-xs
|
|
list-reverse))
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Predicates
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
;; TODO: Create a macro that wraps `cl-defstruct' that automatically creates
|
|
;; things like `new', `instance?'.
|
|
(defun stack-instance? (xs)
|
|
"Return t if XS is a stack."
|
|
(stack-p xs))
|
|
|
|
(provide 'stack)
|
|
;;; stack.el ends here
|