dcコマンドで遊んでみた
dcコマンドってのがあります。lsを打ち間違えてやってしまうslコマンド的な・・・ってわけではなくて、れっきとした便利ツール。
逆ポーランド記法の計算機で、精度設定できたりマクロ使えたりします。
と言うわけでこのマクロとやらを試してみた。 ほぼお遊びなので、あんまり参考にはならないと思います。
とりあえず実行
$ dc
とすればインタプリタが起動します。インタプリタってもプロンプトとかなんにも表示されないけれど。
終了する時はqとタイプすればおっけーです。
簡単な計算をするときなんかは
$ dc -e '1 2 +p'
とかやって実行も可能。1+2の結果を表示します。
他にも、
$ dc filename
ってやってファイルの中身を実行するとかも出来ます。
$ dc file1 file2
みたいにすれば複数のファイルを実行する事も可能。先頭から順番に実行されるようです。
基本的な計算
とりあえず適当に数字を入力してスタックに積みます。
1 2
こんなん。改行区切りでもいいし、スペース区切りとかでも良い。
んで、スタックの中身を足したり引いたり。
+
例えばこれは足し算。四則演算の記号は**+-*/%%^**みたいなよくあるやつです。
計算した結果は
p
とすれば表示されます。
スタックの中身を全部みたいときは
f
で表示。上の方がスタックの先頭側です。
レジスタを使う
本題のマクロに入る前にレジスタについて。vimのレジスタとかなり似てる、かも。
sa
みたいにすると、スタックの先頭をaレジスタに移動しします。
レジスタの名前は文字とか数字とか記号とか諸々らしい。sbとかscとかやって使います。
aレジスタの中身は
la
とすれば取り出せます。同様にlbとかlcとかやれば他のレジスタからも出せる。
何度取り出しても中身は消えない。
マクロを使ってみる
んで本題、マクロ。
[1+]
みたいな感じでマクロを作れます。作ったマクロはスタックの先頭に入ります。
マクロはxコマンドで実行できます。
流れとしてはこんな感じ
2 # スタックに2を積む。 [1+] # 1を足す動作をマクロとしてスタックに積む。 x # 実行する。 p # 結果を確認する。 3 # 計算結果。
スタックに2を入れて、そんでもって先頭を1増やすマクロを作って、実行する。
まとめて書くと2[1+]xpって感じ。2 1+pで済むのに、長い。
xで実行するとスタックから消えてしまうので、実際はレジスタに入れて実行することになります。
[1+]sa # aレジスタに1増やすマクロを入れる。 2 # 2をスタックに積む。 la # aレジスタからマクロを取り出して、 x # 実行する。 lax # もっかい実行してみる。 p # 結果を確認してみる。 4 # これは計算結果。
こんな感じで。 レジスタに入れれば何度でも実行できる。
合計値を計算してみる
ちょっと高度な事をしてみよう。と言うわけで、スタックに積んだ値の合計を計算してみます。
とりあえず結論から。
[+z1<a]sa # マクロ作る 1 2 3 4 5 # 数字積む lax # 実行 p 15 # 結果
こんな感じ。ややっこい。
マクロを実行すると、とりあえず+でスタックの先頭二つを取り出して足します。
んでもってスタックの長さをzでスタックに積んで、その後に1を積む。
<で比較をして、スタックの先頭の方が小さければaレジスタの内容を実行。
みたいな流れで計算します。大分ややっこいね。
ポイントは比較してマクロを実行できる<でしょうか。
他にも!<とか>とか!>とか=とか!=とか。めっちゃあるので調べてください。
なんというか、アセンブリ言語のjgとかjlとかににている、かも?
マクロの内容を擬似コードっぽく表すと
function a(){ push(pop() + pop()); if(length() > 1){ a(); } } push(1); push(2); push(3); push(4); push(5); a(); print(pop());
的な感じ? 何だこの難解言語。
階乗を計算してみる
せっかくなので階乗も書いてみよう、と言うわけで。
[d1-d2<a*]sa 5 lax p
こんなん。何かもうbrainfu*kみたいになってる。
今度のマクロは実行されたらdを使ってスタックの先頭をコピーします。
コピーした値を1-でデクリメントします。
dでもっかい値をコピーして、2と<で比較。2以上なら再帰的に自分を呼び出す。
最後にレジスタの先頭二つを*でかけて終了。
dでスタックの先頭をコピーできるの、結構便利。なのかも。
これも擬似コードで表すと、
function a(){ copy(); push(pop() - 1); copy(); if(pop() > 2){ a(); } push(pop() * pop()); } push(5); print(pop());
大体こんなん。 分かり安くなった気がしない…。
スタックの中身はこんな感じで推移する、はず。
5 la x 5 [d 1 - d 2 <a *] x 5 d 1 - d 2 <a * 5 5 1 - d 2 <a * 5 4 d 2 <a * 5 4 4 2 <a * 5 4 d 1 - d 2 <a * * 5 4 4 1 - d 2 <a * * 5 4 3 d 2 <a * * 5 4 3 3 2 <a * * 5 4 3 d 1 - d 2 <a * * * 5 4 3 3 1 - d 2 <a * * * 5 4 3 2 d 2 <a * * * 5 4 3 2 2 2 <a * * * 5 4 3 2 d 1 - d 2 <a * * * * 5 4 3 2 2 1 - d 2 <a * * * * 5 4 3 2 d 2 <a * * * * 5 4 3 2 2 2 <a * * * * 5 4 3 2 * * * * 5 4 6 * * * 5 24 * * 120 *
うーん…。長い。
最後に*が残ってしまうのだけれど、これなんやろね。
平均
さっき作った合計値を利用して
[+z1<s]ss [zsx lsx lx /]sa 1 2 3 4 5 lax p
みたいな感じで平均を計算できる。
小数点以下の桁数は2kとか3kとかやって設定できます。
最大/最小
最大値は
[sx]sc # スタックの値をレジスタに移動するマクロ [n]sd # スタックの頭を消すマクロ [dlx<c dlx>d z1<m]sm 0sx 1 3 2 lmx lxp
こんなもんか？ 異様に面倒くさい感じになってしまった。
最小は最大値のコードを
[dlx>c dlx<d z1<m]sm
こんな感じにすればおっけー。
0sx
の部分を修正しないと多分ダメなので注意。
まあそんなわけで。 面白いけれど、少しでも複雑な計算となると実用的じゃない。面倒くさい。 awkのがいいかなぁ…。