Upgrade to Pro — share decks privately, control downloads, hide ads and more …

Elixir におけるリスト反転処理の実装を覗いてみよう

Elixir におけるリスト反転処理の実装を覗いてみよう

2019/07/01 【学生限定】Akatsuki Geek Live Vol.3【LT会:7/1(月)】 にて発表した資料です。

Shohei Kajihara

July 01, 2019
Tweet

Other Decks in Technology

Transcript

  1. Elixir とは Elixir とは プログラミング⾔語 関数型 動的型付け 不変性 (immutability) Erlang

    VM 上で動作 並⾏性 (concurrency) 耐障害性 (fault-tolerance) Erlang の関数を呼び出せる
  2. 不変性 不変性 予想外の値変更による実装ミスが起きにくくなる defmodule Sample do def foo() do bar

    = 1 if :rand.uniform() > 0.5 do bar = 2 IO.puts("Modified bar to 2!") end bar end end iex(1)> Sample.foo() Modified bar to 2! 1
  3. List の基本操作 List の基本操作 Lisp と同じく Car, Cdr, Cons 処理ができる

    Car: リストの先頭を取り出す Cdr: リストの残り部分を取り出す Cons: リストの先頭に要素を⾜す iex(3)> [head | _] = numbers iex(2)> head 1 iex(4)> [_ | tail] = numbers iex(4)> tail [2, 3] iex(5)> [0 | numbers] [0, 1, 2, 3]
  4. 解決策1: 本を読む 解決策1: 本を読む The Beam Book ( ) Erlang

    VM の中⾝が紹介されている (プロセス、スケジューラ、型システム、... ) 無料で読める(ただし英語) 書籍は著者視点による説明 説明の順序にストーリーがあるので⼊⾨に最適 公式ドキュメントなどより先に書籍にあたるのが おすすめ https://github.com/happi/theBeamBook
  5. Erlang VM の型システム Erlang VM の型システム 64 ( または32) bits

    で 1 word 末尾 2 bits ( あるいはもっと) で型を表現 リストは「アドレス + 01 」という形の 1 word 00 Header (on heap) CP (on stack) 01 List (cons) 10 boxed 00 11 Pid
  6. Enum.reverse/1 の実装 Enum.reverse/1 の実装 簡単なやつだけ Elixir レイヤーで定義 結局、Erlang のコードを呼び出している @spec

    reverse(t) :: list def reverse([]), do: [] def reverse([_] = list), do: list def reverse([element1, element2]), do: [element2, element1] def reverse([element1, element2 | rest]), do: :lists.reverse(rest, [element2, element1])
  7. lists:reverse/2 の実装 lists:reverse/2 の実装 結局、C ⾔語実装の Built in Funciton (BIF)

    を呼び出し ている %% Shadowed by erl_bif_types: lists:reverse/2 -spec reverse(List1, Tail) -> List2 when List1 :: [T], Tail :: term(), List2 :: [T], T :: term(). reverse(_, _) -> erlang:nif_error(undef).
  8. lists_reverse_2 ( 抜粋) lists_reverse_2 ( 抜粋) CAR, CDR, CONS をやっているらしい

    (説明は後で図⽰) while (alloc_top < alloc_end) { // リストをポインタ化する Eterm *pair = list_val(list); // 確保したヒープ領域の先頭を [ リストの先頭 | 反転済みリスト ] に tail = CONS(alloc_top, CAR(pair), tail); // 続きは Cdr から list = CDR(pair); ASSERT(is_list(list) || is_nil(list)); // 2 words 分ヒープ領域のへのポインタを進める alloc_top += 2; }
  9. リスト操作のマクロ リスト操作のマクロ CAR, CDR, CONS の定義(説明は割愛) #define TAG_PRIMARY_LIST 0x1 //

    01 の⾜し算でポインタをリストに、引き算でリストをポインタに #define _unchecked_make_list(x) ((Uint)(x) + TAG_PRIMARY_LIST) #define _unchecked_list_val(x) ((Eterm*) ((x) - TAG_PRIMARY_LIST) // ポインタの指すアドレスに値を仕舞ったのちリストにする #define CONS(hp, car, cdr) \ (CAR(hp)=(car), CDR(hp)=(cdr), make_list(hp)) // ポインタの指すアドレスが CAR, その隣が CDR #define CAR(x) ((x)[0]) #define CDR(x) ((x)[1])