zickです。
R6RSを読んでいると、ふと思ったのですが、
「これは○○言語などと同様である」といった感じで登場する、
Scheme以外の他のプログラミング言語の数が、
R5RSと比べて増えている気がしました。
で、気になったので各言語の登場回数を数えて見ました。
(ただし、謝辞と参考文献は除いています。)
| 言語 | R5RS | R6RS |
| Snobol | 1 | 0 |
| APL | 3 | 0 |
| Pascal | 3 | 0 |
| Haskell | 1 | 4 |
| Algol | 5 | 3 |
| Common Lisp | 6 | 3 |
| ML | 2 | 3 |
| C | 2 | 2 |
| Python | 0 | 3 |
| Smalltalk | 0 | 4 |
| C# | 0 | 3 |
| Ruby | 0 | 4 |
| 合計 | 23 | 29 |
登場する言語の種類でみたら、R5RSが8種類、R6RSが9種類。
登場回数で見たら、R5RSが23回、R6RSが29回。
やはり増えているようです。
しかし、APLやSnobolが登場しなくなり、RubyやPythonが登場したというのは分かるのですが、
なんで今更になってSmalltalkが登場したのでしょうか。謎です。
以前、日記で、pslispについて、
つまり、目標はプリンタで動かすことなんですが、 現状ではGhostscriptでしか動作を確認していません。
と書いていたら、koguroさんが実際に動かしてくれました。
pslispをPSプリンタに出してみた
簡単なリスト操作で6分かかったというのがなんとも生々しいですが、
普通に印刷できているようで感動しました。
koguroさん、ありがとうございます。
昨日はPostScriptでLispインタプリタをつくり、それを用いLispインタプリタをつくりました。
そして今日は、PostScriptでつくったLispインタプリタを用い、PostScriptインタプリタをつくりました。
実際にpslispで動かす際には改行を空白に置き換え、1行で記述してください。
PostScriptをつくったといっても、もちろんそのごく一部だけで、
図形も何も描けません。ただ計算ができるだけで、
実際につくったのは以下の機能だけです。
上記のソースを利用してPostScriptのプログラムを書くには次のように、
(postscript ‘(プログラム))
を評価します。
(PostScriptインタプリタのソースの最後に実際にこれが記述してあります。)
(postscript '(
/fact
{
dup 0 eq
{
pop 1
}
{
dup 1 sub fact mul
} ifelse
} def
10 fact
))
ここでは10の階乗を求めるPostScriptのプログラムを書いています。
「PostScriptの1トークン = Lispの1シンボル」として読み込ませているので、
トークンとトークンの間には必ず空白を入れる必要があります。
全くもって使い道のないものをつくってしまいましたが、
大学の試験が近づいていることから逃避することによって発生するエネルギーを、
プログラミングによって発散した結果、生まれてしまったかわいそうなプログラムなので、
どうか生暖かい目で見守ってください。
zickです。
最近、巷(*)ではLisp(Scheme?)を実装するのが流行っているようで。
その流れにのっとって私も変なものをつくってみました。
***PostScriptで書いたlisp***
名前はまだないのですが、仮にpslispと呼びます。
このpslispはPostScriptで書いたLispインタプリタです。
単に式を評価するだけではなく、その値を図示してくれる優れもの(?)です。
実は去年の4月ごろにほぼ完成していたんですが、
条件分岐などを加え、再帰が使えるようになりました。
***pslispで書いたlisp***
pslispで動かすためにエスケープ文字を付加し、改行を消しているためカオスなことになってます。
(追記)
はてなブックマークにて指摘がありました。
yshl (と)が対応していればエスケープは無くていいし、文字列中で改行できるので、もっと読みやすくなるはず。
ありがとうございます。お陰でずいぶん読みやすくなりました。
改行の方は面倒なのでまた今度で(笑)
まあ、これだけ見てもなんのことやらといった感じですが、
自分で書いたlispインタプリタの上でさらに、
lispインタプリタが動いていると考えると、なかなか感慨深いものです。
—
なんでまたPostScriptなのかというと、
「PostScriptってチューリング完全らしいよ」
「ってことはプリンタでLispを動かすことができるんですか!?」
という会話をし、そのまま勢いでつくったというだけです。
相変わらず何も考えていません(笑)
つまり、目標はプリンタで動かすことなんですが、
現状ではGhostscriptでしか動作を確認していません。
レーザプリンタなどで動作確認をしてくれたら嬉しい……ですが、プリンタの安全は保障しかねます。
(*)巷の人たち
zickです。
なんと今日でNScLisperをつくり始めてから1年(と1日)が経ちました!
わーい わーい
去年、どんな心境でNScLisperをつくったのか。
それがどういう形でリリカルLispに繋がったのか。
当時の貴重な資料(といっても私の日記ですが)が見つかったので公開します。
zickです。
リリカル☆Lispの通販特典としていた
『あどばんすど NScLisper オフィシャルガイド』
を一般公開しようかと思います。
こちらからご自由にお持ち帰り下さい。
内容はNScripterでのLispインタプリタの作り方をかなり大雑把に書いてあるという感じです。
テキトーなことを書いてあるので鵜呑みにしないようにしてください(笑)
お久しぶりです。zickです。
数日前、『Lispの歌』という言葉を目にし、一体何なのかと思ったら、
『かっこうの歌』のことだったんですね。(「かっこう→括弧」という洒落)
某所でネタとしてLisperが実際に歌った由緒正しきモノだそうです。
—
話は変わりますが、相変わらずErlang触ってます。
それで、今はソケットの勉強をしているのですが、
練習という名目で毒電波(SSTP)を飛ばしてみました。
即席で作った怪しげなスクリプトを読み込んで、それに基づいてErlangがSSTPを飛ばします。
毒電波を飛ばしているErlangの関数はこんな感じです。
send_and_receive(Str) ->
{ok,Sock} = gen_tcp:connect("localhost", 9801, [binary, {packet, 0}]),
ok = gen_tcp:send(Sock, Str),
receive_data(Sock, []).
receive_data(Sock, SoFar) ->
receive
{tcp,Sock,Bin} ->
receive_data(Sock, [Bin|SoFar]);
{tcp_closed,Sock} ->
list_to_binary(lists:reverse(SoFar))
end.
send_sstp(Body, Ver, Retry) ->
Header = "SEND SSTP/"++Ver++"\r\n"
"Sender: "++?SENDER++"\r\n"
++Body++
"Charset: "++?CHAR_SET++"\r\n\r\n",
case {Retry, send_and_receive(Header)} of
{true, <<"SSTP/1.1 409",_/binary>>} ->
timer:sleep(2000),
send_sstp(Body, Ver, Retry);
{_, Any} ->
Any
end.
怪しげなスクリプトはこんな感じ。
%ラベルは*から始まり、命令は^から始まります %字句は全て改行区切りという不気味な作りです(笑) *start \h\s0電波、\w8届いた？ 届いた 届いてない わからない ^list_speak 届いた arrive ^eq_jump わからない not_understand ^eq_jump \h\s0それじゃあ、もう一度送るね\w8…\w8…そりゃ！ ^next_speak start ^jump *arrive \u\s0いや、むしろErlangから毒電波がこっちに届いてるんだけど ^normal_speak ^exit *not_understand \h\s0聞くは一時の恥、聞かぬは一生の恥。わからないことは悪いことじゃないよ\uどーでもいい\e ^normal_speak ^exit
毎度のことながらzickです。
FreeBSDにErlangを入れたのでそのときのメモを残しておきます。
最初、portsから入れようとしたんですが、
失敗したので、ソースからmakeすることにしました。
———-
FreeBSDへのErlangのインストール
———-
0)JDKをインストール
$ pkg_add diablo-jdk-freebsd6-1.5.0.06.00.tbz
1)Erlangのソースを入手
2)ファイルを展開し、 lib/odbc/c_src/odbcserver.c の冒頭に次の行を追加
#include <netinet/in.h>
3)gmake
4)gmake install
———-
さほど難しいことではないのかもしれませんが、
普段Windowsばかり使っている私にはなかなか堪えました。
しかし、何でJavaが必要なんでしょうかね。
こんどはFreeBSDにESDLを入れようとしているんですが、
なかなか上手くいかず、苦労しています。
zickです。
11月2日の日記で書いたとおり、ESDLを入れたのですが、
せっかくなんで簡単なゲームを作ってみました。
昔からよくあるエアホッケーみたいなゲームですが、
LAN上の二台のマシンで対戦ができます。
(ただし、上の画像では一つのマシンで二つ立ち上げています)
ネットワークプログラミングなんてろくにやったことのない私ですが、
思いつくままに書いたら何故かうまく動きました。Erlang万歳！
しかし、ESDLって文字表示できないんですね。
数字を表示するため画像を準備するはめになりました。
本格的にゲームを作るのはちょっと面倒かもしれません。