I am ruby

> (map (lambda (x) (* x x)) '(1 2 3 4))
(1 4 9 16)
irb(main):001> [1, 2, 3, 4].map {|x| x * x}
=> [1, 4, 9, 16]

Ruby == Matz Lispって事で、ruby 1.4.X, 1.6.X時代は多用してきてたけど、class なんて考えるだけ無駄とばかり頑無視してたんだ。Try rubyって事で、Matz本を 20年ぶりぐらいに開いてみたよ。 そしたら、しおり代りに馬券が挟まっていた。

新潟11レース 単勝 2 アイアムルビー (まつもとゆきひろ matz)

Matzさんのサイン入り。多分、世界にひとつしか無い珍品であります。 そのMatzさんは、 rubyを開発した動機を尋ねられて、pythonのオブジェクト指向が中途半端だったからと 答るのが、常らしい。

777 + 888 と言う何の変哲もない式が(777とかは、正月だから縁起の良い奴を選んだ)、正式には、

irb(main):001> 777.+(888)
=> 1665

こういう事らしい。メソッドに + だ とか ? や ! はたまた <=> (その姿から宇宙船という愛称がある) なんて記号が 取り入れられてるもの、好印象だ。

pythonで出来る事はrubyでも可能なはず。まずは構文木。pythonには不得手な 一行野郎を、さりげなく使ってます。

ob$ ruby --dump=parsetree -e '777 + 888'
@ ProgramNode (location: (1,0)-(1,9))
+-- locals: []
+-- statements:
    @ StatementsNode (location: (1,0)-(1,9))
    +-- body: (length: 1)
        +-- @ CallNode (location: (1,0)-(1,9))
            +-- CallNodeFlags: nil
            +-- receiver:
            |   @ IntegerNode (location: (1,0)-(1,3))
            |   +-- IntegerBaseFlags: decimal
            |   +-- value: 777
            +-- call_operator_loc: nil
            +-- name: :+
            +-- message_loc: (1,4)-(1,5) = "+"
            +-- opening_loc: nil
            +-- arguments:
            |   @ ArgumentsNode (location: (1,6)-(1,9))
            |   +-- ArgumentsNodeFlags: nil
            |   +-- arguments: (length: 1)
            |       +-- @ IntegerNode (location: (1,6)-(1,9))
            |           +-- IntegerBaseFlags: decimal
            |           +-- value: 888
            +-- closing_loc: nil
            +-- block: nil

そして、compile.cでコンパイルされた、VMの実行コード。

ob$ ruby --dump=insn -e '777 + 888'
== disasm: #<ISeq:<main>@-e:1 (1,0)-(1,9)>
0000 putobject                  777                       (   1)[Li]
0002 putobject                  888
0004 opt_plus                   <calldata!mid:+, argc:1, ARGS_SIMPLE>[CcCr]
0006 leave

笹田先生の説明によれば、数字の演算命令(+, -, <, 等)は高速化の為、特化命令を 用意してるらしい。通常のメソッドは、send命令で処理するらしい。gaucheのVMでは 同様な思想で、融合命令を設けているとか。下層の部分では泥臭い努力をしてるんだね。

VMは最初forthのごとくスタックマシンだったけど最近はgccの内部の表現のように RTLになってるらしい。いわゆるレジスタマシンね。

Ruby 2.6にJITコンパイラをマージしました からベンチマークのコードを頂いてきて、負荷試験してみる。

sakae@lu:tmp$ cat bm.rb
require "benchmark"

def calculate(a, b, n = 10_000_000)
  i = 0
  c = 0
  while i < n
    a = a * 16807 % 2147483647
    b = b * 48271 % 2147483647
    c += 1 if (a & 0xffff) == (b & 0xffff)
    i += 1
  end
  c
end

Benchmark.bm do |x|
  x.report("calculate") do |times|
    calculate(65, 8921)
  end
end

現代のruby(4.0.0)と江戸末期のruby(1.8.7)の対決。

sakae@lu:tmp$ ruby bm.rb
               user     system      total        real
calculate  0.862045   0.000000   0.862045 (  0.862135)

sakae@lu:tmp$ ~/GZ/MINE/bin/ruby bm.rb
      user     system      total        real
  5.790000   0.000000   5.790000 (  5.796307)

ちょいとgdbしたくなった。何処にBPを置くか？ 確実に止めるならシステムコールだな。 これならrubyの内部構造を知らなくても大丈夫だろう。

ruby語が確実にシステムコールを利用してる関数を想像する。きっとgets/puts あたりが、 read/writeシステムコールを呼び出しているに違いない。その方針でやってみる。

どうでもいいけど、OpenBSDのlibcには、getsが無い。stdinから無制限にread出来ちゃうのは 重大なセキュリティー脅威になるからだ。

DESCRIPTION
       Never use this function.

       gets()  reads  a  line from stdin into the buffer pointed to by s until
       either a terminating newline or EOF, which it replaces with a null byte
       ('\0').  No check for buffer overrun is performed (see BUGS below).

リナのマニュアルでgetsを引くと、絶対に使うなって書いてる。有るから使っちゃうんだぞ。 でも過去のしがらみを大事にしてるって事ですかね。安全なfgetsを使えとな。

sakae@lu:ruby-1.8.7$ gdb -q ruby
Reading symbols from ruby...
(gdb) b read
Breakpoint 1 at 0x11f70 (5 locations)
(gdb) r -e 'puts(gets)'
Starting program: /tmp/ruby-1.8.7/ruby -e 'puts(gets)'
  :
(gdb) bt
#0  __GI___libc_read (fd=0, buf=0x5555556bdad0, nbytes=1024)
    at ../sysdeps/unix/sysv/linux/read.c:25
#1  0x00007ffff7c927a5 in _IO_new_file_underflow (
    fp=0x7ffff7e038e0 <_IO_2_1_stdin_>) at ./libio/libioP.h:1030
#2  0x00007ffff7c955d2 in __GI__IO_default_uflow (
    fp=0x7ffff7e038e0 <_IO_2_1_stdin_>) at ./libio/libioP.h:1030
#3  0x000055555559448e in appendline (fptr=fptr@entry=0x5555556a4840,
    delim=delim@entry=10, strp=strp@entry=0x7fffffffc150) at io.c:1569
#4  0x00005555555946e4 in rb_io_getline_fast (fptr=0x5555556a4840,
    delim=delim@entry=10 '\n') at io.c:1665
#5  0x0000555555597b64 in rb_io_gets (io=<optimized out>) at io.c:1755
#6  argf_getline (argc=argc@entry=0, argv=argv@entry=0x0) at io.c:4613
#7  0x0000555555597c2b in rb_f_gets (argc=0, argv=0x0) at io.c:4680
#8  0x0000555555575e2b in rb_call0 (klass=klass@entry=140737352567120,
    recv=recv@entry=140737352557240, id=id@entry=7721, oid=7721,
    argc=<optimized out>, argc@entry=0, argv=argv@entry=0x0,
    body=<optimized out>, flags=<optimized out>) at eval.c:5899
#9  0x00005555555760f3 in rb_call (klass=<optimized out>,
    recv=recv@entry=140737352557240, mid=7721, argc=argc@entry=0,
    argv=argv@entry=0x0, scope=scope@entry=2, self=140737352557240)
    at eval.c:6146
#10 0x00005555555713a2 in rb_eval (self=self@entry=140737352557240,
    n=<optimized out>) at eval.c:3513
#11 0x00005555555733b5 in rb_eval (self=self@entry=140737352557240,
    n=n@entry=0x7ffff7e5ccf8) at eval.c:3502
#12 0x000055555557dc8d in eval_node (node=0x7ffff7e5ccf8, self=140737352557240)
    at eval.c:1436
#13 ruby_exec_internal () at eval.c:1642
#14 0x000055555557dd2d in ruby_exec () at eval.c:1662
#15 ruby_run () at eval.c:1672
#16 0x00005555555668bb in main (argc=3, argv=0x7fffffffdd78,
    envp=<optimized out>) at main.c:48
(gdb) c
Continuing.
hello
hello
[Inferior 1 (process 17118) exited normally]

どうやら目論見は当ったみたいだけど、一つ疑問が有る。readシステムコールって もっと沢山ヒットしてもよさそうなのに、ピンポイントでgetsでヒットした？

上記の1.8.7はリナ上で動く。しかしリナは32Bitを切り捨ててしまってるからなあ。FreeBSDの 32Bit版はどうか？ –without-gcc オプションを付けてgccと縁を切ってみたけど 途中でエラーになってしまった。gccにベッタリなんだな。

そこで目を付けたのはパパがMatzであるmrubyだ。組み込み方面を目指しているんで、 gccベッタリと言う事はあるまい。OpenBSDのportsを覗いてみる。

mruby ISO standard って大書してあるからgccフリーって事でいいかな。

コンパイルするには、普通に動くrubyとbisonが必要とな。

do-build:
        cd ${WRKSRC} && ${SETENV} ${MAKE_ENV} ${RAKE} --verbose

出たなmakeのruby版であるrakae。しっかりと、ふつrubyのお世話になっております。 これは、試してみる鹿。まずは、河豚板の上で実験。この場所なら、どんな悪さを しても痕跡が残る事は無いからね。

mruby is the lightweight implementation of the Ruby language complying to (part
of) the ISO standard. Its syntax is Ruby 1.9 compatible.

mruby can be linked and embedded within your application. We provide the
interpreter program "mruby" and the interactive mruby shell "mirb" as examples.
You can also compile Ruby programs into compiled byte code using the mruby
compiler "mrbc".

こんな説明が出てた。楽しそうであります。非力なpicoラズパイ上で動く microPythonの対抗馬です。

Q: ハフマン符号の発生スクリプトをruby(3.4.6)で作成してください。 出力パターンは見易いように0を'.'で、1を'-'で表現してください。 インターフェースは、下記のようにおねがいします。

echo -n aaabbc | ruby gen.rb
a   3   --
b   2   .-
c   1   -.

rubyのコードと言えども、入出力は、stdin/stdoutにしておくのが、unix流だと 思うぞ。部品を提供するのが使命です。変に完成品にしちゃうと使い回しが 不便になるからね。

ChatGPT, Gemini, Grok の三者から回答を得たので、受け入れ試験してみる。

vm$ echo -n abbbbccddd | ruby chatgpt.rb
b   4   .
d   3   -.
a   1   --.
c   2   ---
vm$ echo -n abbbbccddd | ruby gemini.rb
b       4       .
d       3       -.
c       2       ---
a       1       --.
vm$ echo -n abbbbccddd | ruby grok.rb
b       4       .
d       3       -.
c       2       ---
a       1       --.

clude.aiにも参加してもらおうかな。色々な人(rubyist)が居れば更に楽しくなるぞ。

vm$ echo -n abbbbccddd | ruby clude.rb
b       4       .
d       3       -.
c       2       ---
a       1       --.

無料枠で登録したよ。一日の使用回数制限とか有りそうだから、ご意見番と思っておこう。

3人の結果が一致したら、まずは正しいだろう。人口衛星とかに搭載されてる コンピューターなんかでも、同じ手法を取ってるね(宇宙線による誤動作回避)。こういうのを多数決原理、 別名では民主主義といいます。

正しい答を導く質問力 なんて本を読んだ。

『正しい答えを導く質問力』を解説　―「質問力」はAI時代を勝ち抜く最強スキル こんな要約も著者によってなされていて、AI時代っぽい。社員研修のまとめとして 書かれたのかな。

トヨタの社内では、Whyを少くとも5回は繰り返して本質に迫れと教育されるそうだ。 これを愚直にやってしまうと、詰問調になってしまうんで、言葉を選べとの事。

どんな質問をしたらいいのか浮かばないとむきには、5W4Hから選べばいいそうな。 5Wの方はいいとして、4Hの方。How, How many, How long, How much。

これを覚えておけば、何なく質問を繰り出せるぞ。合コンでも会話が弾むはずだ。 会話って、質問、回答、質問、回答の連続だからね。

両方が耳に入って流れが理解できる。携帯で話している人を不快に思うのは、 案外、片方の話しか耳に入らないからでは、なかろうか。そう、たまに独り言を 言いながら歩いている人に遭遇するけど、危ない人って避けちゃうのは、こういうのが 有るからかも知れない。

ああ、余計な繰り言だった。AIへの上手な質問も、この本の範疇だ。 良い質問は、良い回答を引き出す。ガベージ・イン、ガベージ・アウトである。 プロンプトの例って、よく紹介されてるけど、そこから良い質問を見い出すのは 存外と難しいぞ。

あと、勧められたのは、複数のAIに質問をして、比較してみるってのも賢い 使い方らしい。ハルシネーションの防止にもなるしね。

GitHubで人気の言語ランキング「PythonがTypeScriptに抜かれた」ことの意味

確かに型が有ったら、勝手な捏造はしにくくなるだろう。確認も容易になるしね。

サバイバルTypeScript

This year's Index

Home