Skip to content

Instantly share code, notes, and snippets.

@kuwa72

kuwa72/27-q6.sh

Created February 15, 2017 05:11
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save kuwa72/ac0c921111bb857e68476dd8c4e3c214 to your computer and use it in GitHub Desktop.
Save kuwa72/ac0c921111bb857e68476dd8c4e3c214 to your computer and use it in GitHub Desktop.
Download ZIP
Emacsシェル芸サンプル(27回Q6) https://blog.ueda.asia/?p=9309
Raw
27-q6.sh
echo 1 | emacs -Q --batch --insert /dev/stdin --eval '(let ((bs (substring (buffer-string) 0 1))) (defun x (i s) (if (< i 10) (progn (princ (concat s "\n"))(x (+ i 1) (concat s bs))))) (x 0 bs) )'
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment