sebastiancarlos

; All my gist code is licensed under the MIT license.

(defun safe-char-name (char)
  "Return a printable representation of a character."
  (cond ((graphic-char-p char) (format nil "'~C'" char))
        (t (format nil "#\\~A" (char-name char)))))

(defun get-character-range ()
  "Generates a list of characters ASCII characters."
  (loop for code from 0 to 255

sebastiancarlos

; All my gist code is licensed under the MIT license.

(defun count-quicklisp-dependencies ()
  "Count the number of times each system is used as a dependency in Quicklisp."
  (let ((system-list-names (sort (mapcar #'ql-dist::name (ql:system-list)) 
                                 #'string<))
        (file "/tmp/deps.csv"))
    (with-open-file (out file 
                         :direction :output
                         :if-exists :supersede

sebastiancarlos

sebastiancarlos

(let ((factorial (PY (lambda (self n)
                       (if (<= n 1)
                         1
                         (* n (funcall self (- n 1)))))))
      (fibonacci (PY (lambda (self n)
                       (if (<= n 1)
                         n
                         (+ (funcall self (- n 1))
                            (funcall self (- n 2)))))))
      (ayy-lmao (PY (lambda (self ayy lmao)

sebastiancarlos

(defun PY (recursive-logic)
  "The 'Python combinator'. A variation of the 'Z combinator' which takes
   recursive lambdas with a 'self' recursive argument (hence 'python'),
   and any number of arguments. 
   How does it work? I have no fucking idea. Ask God."
  ((lambda (x) (funcall x x))
   (lambda (x) (lambda (&rest args)
                 (apply recursive-logic
                        (lambda (&rest inner-args)
                          (apply (funcall x x) inner-args))

sebastiancarlos

;; Deus Vult, Compilamus
;; The following code is compliant with the Holy See's ANSI Standard Of 2054.

:; Here's an example of a classic Lisp macro, ONCE-ONLY, which ensures
;; parameters to a Lisp macro are executed only once, along with a dense
;; explanation.

;; Example implementation of ONCE-ONLY
(defmacro do-primes ((var start end) &body body)
  (once-only (start end)

sebastiancarlos

"Quasiquotation in Lisp" (Bawden) - Appendix A

• This plaintext file was created by OCR from the original PDF file.
• Source: https://3e8.org/pub/scheme/doc/Quasiquotation%20in%20Lisp%20(Bawden).pdf
• Note from "1. Introduction": The backquote character (`) introduces a quasiquotation, just as the ordinary quote character (') introduces an ordinary quotation.

This appendix contains a correct S-expression quasiquotation expansion

sebastiancarlos

#!/usr/bin/env swipl --quiet

% All my gist code is licensed under the MIT license.

:- use_module(library(clpfd)).

% ORIGINAL LYRICS:
% Looking for
% Girls who want boys
% Who like boys to be girls

sebastiancarlos

#! /usr/bin/env bash

# All my gist code is licensed under the MIT license.

# gutenberg-dl <search-term>
# - Download books from Project Gutenberg in plain text format
# - Actually uses "gutendex" to search for the download link. It seems to be
#   the current best third-party Gutemberg API
#   - Source: https://github.com/garethbjohnson/gutendex

sebastiancarlos

#! /usr/bin/env bash

# All my gist code is licensed under the MIT license.

# Add this somewhere in your .bashrc

# bkp
# - toggle a ".bkp" extension to a file(s)
function bkp () {
  # print usage on -h/--help or no arguments