Robert Smith committed 8c1a9c4

Add PERM-EJECT to experimental functions.

Comments (0)

Files changed (1)


                 (last-to-position (1+ (perm-size perm))
+(defun perm-eject (perm)
+  "Remove the largest element of a permutation."
+  ;; Here, we are going to do it the ugly way.
+  (let* ((size (perm-size perm))
+         (new-spec (remove size (perm.spec perm))))
+    (%make-perm :spec new-spec)))
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.