View fern.lisp
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;;; Last modified: 2014-05-31 11:11:23 tkych | |
;;==================================================================== | |
;; Plot Fern | |
;;==================================================================== | |
;; | |
;; Usage | |
;; ----- | |
;; | |
;; * (load (compile-file "./fern.lisp")) |
View check-digest.lisp
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;;; Last modified : 2013-02-19 22:33:54 tkych | |
;;==================================================================== | |
;; Check Digest | |
;;==================================================================== | |
(ql:quickload :ironclad) | |
(defun check-digest (file-spec digest-name check-sum) | |
(loop |
View minimum-prompt.el
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;;; Last modified : 2013-02-21 20:11:37 tkych | |
;;==================================================================== | |
;; Minimum Prompt for Eshell | |
;;==================================================================== | |
;; Only when working-directory or user-name is changed, displays it. | |
;; Note: | |
;; If more than 2 eshells are opened and switched them, | |
;; working-directory may be displayed without changing working-directory. |
View oop-fp-eieio-example.el
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;;; Last modified : 2013-03-14 22:05:30 tkych | |
;; Coursera, Programming-Languages, Week8, OOP vs FP | |
;; Generic function model OOP by EIEIO | |
;; M-x ielm ; Inferior Emacs Lisp Mode | |
;; ELISP> (load "oop-fp-eieio-example.el") | |
;;==================================================================== |
View oop-fp-clos-example.lisp
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;;; Last modified : 2013-03-14 22:00:40 tkych | |
;; Coursera, Programming-Languages, Week8, OOP vs FP | |
;; Generic function model OOP by CLOS | |
;; CL-REPL> (load "oop-fp-clos-example.lisp") | |
;;==================================================================== | |
;; Adding Operations or Variants |
View morse.lisp
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;;; Last modified : 2013-05-31 18:03:49 tkych | |
;; Usage: | |
;; (string-to-morse "Samuel") | |
;; => "... ._ __ .._ . ._.." | |
;; (morse-to-string "__ ___ ._. ... .") | |
;; => "MORSE" | |
;; (string-to-morse "Samuel Morse") | |
;; => error!! #\Space can't be converted into morse code. |
View lisp-templete.lisp
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;;; Last modified : 2013-05-28 12:08:22 tkych | |
;;==================================================================== | |
;; Template for Lisp File | |
;;==================================================================== | |
(in-package :cl-user) | |
(ql:quickload :simple-date-time) |
View minimum-feed-reader.lisp
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;;; Last modified : 2013-08-17 21:01:33 tkych | |
;; Example for cl-feed-parser (https://github.com/tkych/cl-feed-parser) | |
;; Usage: | |
;; ------ | |
;; * (defparameter f "http://www.whitehouse.gov/feed/press") | |
;; * (show-entry-titles f) | |
;; * (read-nth-entry 2 f) |
View fukushima-monitor.lisp
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;;; Last modified: 2013-09-18 20:24:02 tkych | |
;; This script is in the public domain. | |
;; Latest version is available at https://gist.github.com/tkych/6509285 | |
;;==================================================================== | |
;; Radiation Monitor for Fukushima Daiichi Nuclear Power Station | |
;;==================================================================== | |
;; |
View hello-world.lisp
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/local/bin/sbcl --script | |
;; Print "Hello World" to stdout without numbers, characters and strings in Common Lisp. | |
;; | |
;; c.f. http://codeiq.hatenablog.com/entry/2013/09/25/163547 | |
;; | |
;; Usage: | |
;; $ chmod u+x hello-world.lisp | |
;; $ ./hello-world.lisp |
OlderNewer