Skip to content

Instantly share code, notes, and snippets.

Avatar
🎧

KOBAYASHI Shigeru kosh04

🎧
View GitHub Profile
@miura1729
miura1729 / gist:5d25abb78b998aa974c7
Last active August 29, 2015 14:14
mruby backtrace
View gist:5d25abb78b998aa974c7
define mbt
set $p = mrb->c->ci
while ($p > mrb->c->cibase)
if (($p->proc->flags & 128) != 0 )
printf "0x%x C FUNCTION ", $p
output $p->proc->body.func
printf "\n"
else
set $irep = $p->proc->body.irep
set $filename = $irep->filename
@death
death / google-chart.lisp
Created January 18, 2010 04:31
A simple Google Chart wrapper for Common Lisp
View google-chart.lisp
;;;; A simple Google Chart wrapper for Common Lisp
;;;
;;; API reference: http://code.google.com/apis/chart/
;;;
;;; WARNING: Incomplete and buggy -- still has much to be done, e.g.:
;;;
;;; * more thorough testing (that won't be hard...)
;;;
;;; * handle spaces/newlines appropriately
@youz
youz / gist:467696
Created July 8, 2010 06:18
Tetrlang Interpreter for xyzzy
View gist:467696
;;; Tetrlang Interpreter for xyzzy
;;; 元ネタ
;;; わーい、テトリス言語 Tetrlang 完成したよー\(^o^)/
;;; http://d.hatena.ne.jp/athos/20100707/tetrlang
(defpackage :tetrlang
(:use :lisp :editor))
(in-package :tetrlang)
@snmsts
snmsts / somewrite.md
Created September 8, 2015 15:17
about getting a new job
View somewrite.md

一行で

サムライトで働きはじめた。リモートワークでcommon lispな会社。

辞めたこと

絶対条件ではないにしろ、継続してCommon Lispを仕事にしたい人生だと思っていた。前職もCommon Lispで生活してはいたものの、別言語案件が他人に行き自分にCommon Lisp案件が集まり…組織の中で独りになってしまっていた。チーム開発を経験したくて移ってきた。前職に残してきた案件には多少後ろ髪をひかれる思いはある。

決めたこと

だけど今後どう転ぶにしろ、人生に変化を入れようと思った。選択の良し悪しはまだ良くわからない。日本のCommon Lispコミュニティでそこそこの人が似た収入源に集中するの良くない…とも思うけれど考えるのは辞める。意味付けや後悔は後で考えることで、個人としての決めたのだという心持ちを記録しておきたい。精神衛生上悪くない。

期待すること

前と比べるカルチャーギャップは技術者どおしの風通しがとても良いということ。リモートワークでこれだけ情報共有ができるんだったらどうだったろうか…などと考えていたりした。Common Lispで生活するという観点でいくとここでは躓くところが見えやすいことや同じプロジェクトに対して複数の開発者がアサインされる文化というのがとても新鮮なのでなんだか嬉しい。あと自分のプロジェクトであるところのroswellのここでの浸透ぶりは思っていた以上だった。新人向けドキュメントのroswellのインストールが書いてあった。使える物を作っているという事を考えるとワクワクする。ここで欲しがられる物をここで枯らしていけばきっともっとCommon Lispが使われるはず。

抱負

ほのめかしたので省略。…家にずっといると前にも増して小汚くなりそうなので注意したい。

@miyamuko
miyamuko / gist:1026413
Created June 15, 2011 03:19
#xyzzy の calc.l を使って中置記法から前置記法(ポーランド記法)への変換
View gist:1026413
;; xyzzy の calc.l を使って中置記法から前置記法(ポーランド記法)への変換
;;
;; 参考:
;;
;; 中置記法から前置記法(ポーランド記法)への変換 - sketch code
;; http://d.hatena.ne.jp/ibaza/20070602/1180762871
;; based on ed::calc-string
(defun infix->prefix (string)
(let ((*read-default-float-format* 'double-float)
View iuny.lisp
;;; -*- Package: User; Syntax: Common-Lisp; Mode: Lisp; Base: 10 -*-
;;; unify.lisp
(in-package "USER")
;;; ****************************************************************
;;; Unification Algorithm ******************************************
;;; ****************************************************************
;;;
;;; Random implementations of unification.
@youz
youz / json-encode.l
Created November 2, 2011 08:22
json-encode.l #xyzzy
View json-encode.l
;;; -*- mode:lisp; package:json -*-
(in-package "json")
(export '(json-encode
write-json))
(defun json-encode (obj)
(with-output-to-string (s)
(write-json obj s)))
View craps.lisp
#!/usr/local/bin/sbcl --script
;;;; craps.lisp
;;;;
;;;; My submission to http://programmingpraxis.com/2011/11/04/craps/
;;;; Simulates games of Craps, outputs statistics; REQUIRES SBCL (*posix-argv*)
;;;; GRE, 11/4/11
(defun two-dice ()
"The sum of rolling two dice"
(+ (1+ (random 6)) (1+ (random 6))))
@skeeto
skeeto / with-alist-access.el
Last active October 9, 2015 10:05
A better alist macro
View with-alist-access.el
;;; with-alist-access.el --- a better alist macro
;; This is free and unencumbered software released into the public domain.
;;; Commentary:
;; Usage example:
;; (let ((student '((id . 1332412)
;; (name . ((first . "Student")
@kumar8600
kumar8600 / lingr-api-memo.md
Last active October 27, 2015 04:59
Lingr API メモ
View lingr-api-memo.md

ここでは、Lingr Bot APIについての情報を取り扱わず、Lingr APIについてのみ扱う。

参照