Skip to content

Instantly share code, notes, and snippets.

;;;; Last modified: 2013-11-25 19:53:40 tkych
;;====================================================================
;; Bit Tetris
;;====================================================================
;; - [Bit Tetris 〜 横へな 2012.7.25](http://nabetani.sakura.ne.jp/hena/ord2/)
;;--------------------------------------------------------------------
;;;; Last modified: 2013-11-24 23:17:22 tkych
;;====================================================================
;; Entropy Code
;;====================================================================
;; - [オフラインリアルタイムどう書く第8回の参考問題](http://qiita.com/Nabetani/items/24b9be4ee3bae4c89a95)
;; - [エントロピー符号 〜 横へな 2013.3.1 の参考問題](http://nabetani.sakura.ne.jp/hena/ord8entco/)
;; Code: Char
;;;; Last modified: 2013-11-24 15:17:19 tkych
;;====================================================================
;; Bit Amida
;;====================================================================
;; [第11回オフラインリアルタイムどう書くの問題](http://qiita.com/Nabetani/items/93cde1a6b7561426a3ac)
;; [ビットあみだくじ 〜 横へな 2013.6.1](http://nabetani.sakura.ne.jp/hena/ord11bitamida/)
;;;; Last modified: 2013-11-24 11:41:33 tkych
;;====================================================================
;; Sleeping Monsters
;;====================================================================
;; - [第14回オフラインリアルタイムどう書くの問題](http://qiita.com/Nabetani/items/0597bd3af481e5834ae1)
;; - [眠れるモンスターを狩る 〜 横へな 2013.9.28](http://nabetani.sakura.ne.jp/hena/ord14linedung/)
;;;; Last modified: 2013-11-24 15:25:47 tkych
;;====================================================================
;; electric noticeboard
;;====================================================================
;; [第15回オフラインリアルタイムどう書くの問題](http://qiita.com/Nabetani/items/cba03c96d1ea55f6e861)
;; [異星の電光掲示板](http://nabetani.sakura.ne.jp/hena/ord15elebubo/)
@tkych
tkych / hello-world.lisp
Created September 27, 2013 09:57
Print "Hello World" to stdout without numbers, characters and strings in Common Lisp. c.f. http://codeiq.hatenablog.com/entry/2013/09/25/163547
#!/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
@tkych
tkych / github-commit-stats.lisp
Last active July 15, 2020 10:32
This script shows github commit statistics as sparkline.
;;;; Last modified: 2013-09-18 07:21:52 tkych
;; This script is in the public domain.
;; Latest version is available at https://gist.github.com/tkych/6593401
;;====================================================================
;; GitHub Commit Statistics
;;====================================================================
;;
@tkych
tkych / fukushima-monitor.lisp
Last active December 22, 2015 17:58
Radiation Monitor for Fukushima Daiichi Nuclear Power Station: fetch the monitoring data from http://www.tepco.co.jp/en/nu/fukushima-np/f1/images/2013monitoring/f1-mp-tcnew-e.zip, and output data as sparkline.
;;;; 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
;;====================================================================
;;
@tkych
tkych / minimum-feed-reader.lisp
Last active December 21, 2015 05:19
Minimum-Feed-Reader, example for cl-feed-parser (https://github.com/tkych/cl-feed-parser)
;;;; 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)
@tkych
tkych / lisp-templete.lisp
Created May 28, 2013 03:11
Template for lisp file
;;;; Last modified : 2013-05-28 12:08:22 tkych
;;====================================================================
;; Template for Lisp File
;;====================================================================
(in-package :cl-user)
(ql:quickload :simple-date-time)