「ハッカーというのは自分で“ハッカー”と名乗るのではなくて、いろいろやっているうちに人からそう呼ばれるもの」
「遊び心がある(playful)ことがハックの条件の1つです」
和田先生のマサチューセッツ工科大学時代の研究仲間に、こんな人がいたそうだ。その人は、エレベータに乗り込むなり操作盤のパネルを開いてパチパチとスイッチを切り替え、1階から9階まで必ずノンストップで上がってしまい、1日の作業を終えて帰宅する際には、必ず自分の端末からエレベータを自分のいる階に呼び寄せてしまう。かっけー。
「ハッカーというのは自分で“ハッカー”と名乗るのではなくて、いろいろやっているうちに人からそう呼ばれるもの」
「遊び心がある(playful)ことがハックの条件の1つです」
和田先生のマサチューセッツ工科大学時代の研究仲間に、こんな人がいたそうだ。その人は、エレベータに乗り込むなり操作盤のパネルを開いてパチパチとスイッチを切り替え、1階から9階まで必ずノンストップで上がってしまい、1日の作業を終えて帰宅する際には、必ず自分の端末からエレベータを自分のいる階に呼び寄せてしまう。かっけー。
/* http://developers.slashdot.org/comments.pl?sid=33602&cid=3636102 */
public interface MessageStrategy {
public void sendMessage();
}
public abstract class AbstractStrategyFactory {
public abstract MessageStrategy createStrategy(MessageBody mb);
}
public class MessageBody {
Object payload;
public Object getPayload() {
return payload;
}
public void configure(Object obj) {
payload = obj;
}
public void send(MessageStrategy ms) {
ms.sendMessage();
}
}
public class DefaultFactory extends AbstractStrategyFactory {
private DefaultFactory() {;}
static DefaultFactory instance;
public static AbstractStrategyFactory getInstance() {
if (instance==null) instance = new DefaultFactory();
return instance;
}
public MessageStrategy createStrategy(final MessageBody mb) {
return new MessageStrategy() {
MessageBody body = mb;
public void sendMessage() {
Object obj = body.getPayload();
System.out.println((String)obj);
}
};
}
}
public class HelloWorld {
public static void main(String[] args) {
MessageBody mb = new MessageBody();
mb.configure("Hello World!");
AbstractStrategyFactory asf = DefaultFactory.getInstance();
MessageStrategy strategy = asf.createStrategy(mb);
mb.send(strategy);
}
}
| Key | 定義 | コメント |
| C-M-@, C-M-SPC | mark-sexp | これでS式をマークできるので、切り取ったりコピーしたりする |
| C-M-h | mark-defun | 関数をマーク |
| C-M-f, C-M-b | forward-sexp, backward-sexp | S式単位で移動 |
| C-M-t | transpose-sexp | M-t のS式版 |
| C-x n d | narrow-to-defun | 現在の関数以外を不可視に。defun の奥深くからでも可能 |
| M-( | insert-parentheses | 括弧を挿入し、カーソルをその間に移動(□) |
| M-TAB | lisp-complete-symbol | 補完 |
| C-M-a | beginning-of-defun | 関数定義の先頭へ |
| Esc C-delete | backward-kill-sexp | 前の S 式を削除 |
| C-M-k | kill-sexp | S 式 をkill |
| C-c C-e | eval-expression | S式の評価 |
| C-x C-e | eval-last-sexp | 直前のS式の評価 |
| C-c C-r | eval-region | リージョン内のS式の評価 |
| コマンド | 動作 |
| C-x C-e | カーソルのS式を評価 |
| C-c C-e | カーソルのS式を含むトップレベルのS式を評価 |
| C-c C-l | ファイルをロード |
| C-c C-r | リージョンを評価 |
| C-c C-z | Schemeのインタプリタが動いているバッファへフォーカスを移動 |