Daniel Alejandro Tapia SequentialDesign

Hofstadter on Lisp

In the mid-80s, while reading through my roommate's collection of Scientific American back issues, I encountered this introduction to Lisp written by Douglas Hofstadter. I found it very charming at the time, and provide it here (somewhat illegally) for the edification of a new generation of Lispers.

In a testament to the timelessness of Lisp, you can still run all the examples below in emacs if you install these aliases:

(defalias 'plus #'+)
(defalias 'quotient #'/)
(defalias 'times #'*)
(defalias 'difference #'-)

	require "csv"
	require "progress_bar"

	input_file = "movie_subtitles_en_new.txt"
	output_dir = "split_files"
	Dir.mkdir(output_dir) unless Dir.exist?(output_dir)

	# configuration
	MIN_PHRASE_LEN = 2
	MAX_PHRASE_LEN = 7

	installing lem

	go here and click on the right download. mine was under AMD64 and across from linux
	https://www.sbcl.org/platform-table.html

	cd to the folder you downloaded it to
	cd Downloads/

	decompress the file you downloaded. it has the sbcl binary
	bzip2 -cd sbcl-2.4.10-x86-64-linux-binary.tar.bz2 \| tar xvf -

	xrandr --output HDMI-1 --below DP-1 --auto
	xrandr --setmonitor Virtual-0 1920/531x2160/598+0+0 DP-1,HDMI-1


	xrandr --output HDMI-1 --below DP-1 --auto
	xrandr --setmonitor Virtual-0 1920/531x2160/598+0+0 DP-1,HDMI-1

	https://github.com/stumpwm/stumpwm

	mkdir builds
	cd builds

	uname -m

	http://sbcl.org/platform-table.html

	wget http://prdownloads.sourceforge.net/sbcl/sbcl-2.4.1-x86-64-linux-binary.tar.bz2


	(progn
	(define-key key-translation-map [?\C-h] [?\C-?])
	(define-key key-translation-map [?\M-h] [?\M-\d])
	;; (define-key key-translation-map (kbd "C-M-h") (kbd "C-S-<backspace>"))
	;;(keymap-global-set "C-h" #'backward-delete-char)
	;;(keymap-global-set "M-h" #'backward-kill-word)
	(global-set-key (kbd "M-o") #'other-window)
	(global-set-key (kbd "M-H") #'mark-paragraph)
	(global-set-key (kbd "C-M-S-h") #'mark-defun)

	(defcfg)

	(defsrc
	spc
	h
	i
	e
	a
	t
	n

	(defcfg)

	(defsrc
	spc
	h
	i
	e
	a
	t
	n

	(defcfg)

	(defsrc
	spc
	h
	i
	e
	a
	t
	n