Skip to content

Instantly share code, notes, and snippets.

View t-sin's full-sized avatar
🆑

Shinichi Tanaka t-sin

🆑
View GitHub Profile
import inspect as ins
from sys import argv
import re
'''
引数のモジュール内のオブジェクトを分類して返す
## TODO
- メソッドは関数なのか?
@t-sin
t-sin / event-description.md
Last active February 28, 2018 14:30
もくもく会.lispのこと

Lisp系言語でもくもくとした会をやります。

目的

以下のようなケースを、場所を提供することで解決する:

  • Lispを勉強したいけど、一人だとなんだか勉強に集中できない
  • Lispでつくりたいものがあるけど、一人だとなんだかサボってしまう
  • Lispでごにょごにょしたいけど、わからないとき周りに質問したりしたい
  • Lispでなんかするけど、一人だとなんかイヤだ

Keybase proof

I hereby claim:

  • I am t-sin on github.
  • I am sin_clav (https://keybase.io/sin_clav) on keybase.
  • I have a public key ASCmyo5708rSditzGqw4VzsZoO5rQrf-tggNMRphR1173Ao

To claim this, I am signing this object:

@t-sin
t-sin / aozora-encodings.ros
Last active October 2, 2017 14:12
summarize aozora-bunko encodings
#!/bin/sh
#|-*- mode:lisp -*-|#
#| Scrapes and analyzes encodings of all text in aozora bunko.
exec ros -Q -- $0 "$@"
|#
(progn ;;init forms
(ros:ensure-asdf)
#+quicklisp (ql:quickload '(:alexandria
:dexador
:clss
@t-sin
t-sin / cldius.lisp
Created August 12, 2017 14:58
WIP: Gradius with Common Lisp
(in-package :cl-user)
(defpackage :cldius/main
(:use :cl)
(:export :main))
(in-package :cldius/main)
;;; configurations
(defparameter *window-width* 400)
(defparameter *window-height* 300)
@t-sin
t-sin / clodius.lisp
Last active August 11, 2017 16:23
RIP: CLOS gradius test
(in-package :cl-user)
(defpackage :clodius/main
(:use :cl))
(in-package :clodius/main)
;;; configurations
(defparameter *window-width* 400)
(defparameter *window-height* 300)
(in-package :cl-user)
(defpackage :bf.markdown
  (:use :cl :papyrus :named-readtables))
(in-package :bf.markdown)
(in-readtable :papyrus)

How to make your Brainf**k

What is Brainf**k?

@t-sin
t-sin / rosa-is-not-included-in-rosa-core.md
Last active June 1, 2017 02:11
自作パッケージがroswellのコアに含まれない問題について:解決しました
#!/bin/sh
#|-*- mode:lisp -*-|#
#| Add/Remove your project ASD file into quicklisp local-init
exec ros -Q -- $0 "$@"
|#
(progn ;;init forms
(ros:ensure-asdf))
(defpackage :ros.script.ros-tap.3704598400
(:use :cl))
~/code/inquisitor$ git log --oneline -n 1
756c1d0 Factors out BOM checking
~/code/inquisitor$ run-prove inquisitor-test.asd
To load "inquisitor-test":
Load 1 ASDF system:
inquisitor-test
; Loading "inquisitor-test"
1..16
✓ (:UTF-8 :UCS-2LE :UCS-2BE :UTF-16 :ISO-2022-JP :EUC-JP :CP932 :BIG5 :ISO-2022-TW :GB2312 :GB18030 :ISO-2022-CN :EUC-KR :JOHAB :ISO-2022-KR :ISO-8859-6 :CP1256 :ISO-8859-7 :CP1253 :ISO-8859-8 :CP1255 :ISO-8859-9 :CP1254 :ISO-8859-5 :KOI8-R :KOI8-U :CP866 :CP1251 :ISO-8859-2 :CP1250 :ISO-8859-13 :CP1257) is expected to be (:UTF-8 :UCS-2LE :UCS-2BE :UTF-16 :ISO-2022-JP :EUC-JP :CP932 :BIG5 :ISO-2022-TW :GB2312 :GB18030 :ISO-2022-CN :EUC-KR :JOHAB :ISO-2022-KR :ISO-8859-6 :CP1256 :ISO-8859-7 :CP1253 :ISO-8859-8 :CP1255 :ISO-8859-9 :CP1254 :ISO-8859-5 :KOI8-R :KOI8-U :CP866 :CP1251 :ISO-8859-2 :CP1250 :ISO-8859-13 :CP1257)