Hatena::ブログ(Diary)

エンジニアのソフトウェア的愛情 このページをアンテナに追加 RSSフィード Twitter

2017-04-18

ビットをもっと自由自在に扱える言語

Elixir を学んでいます。


ビットをもっと自由自在に扱えるようにしてみた

7 年ほど前にビット操作を支援するコードを C++ で書いたことがあります。


ビットをもっと自由自在に扱える言語

同じようなこと、それ以上のことが Elixir は言語として用意されています。20 年前の自分に教えてやりたかった。

# color.exs

defmodule Color do
  def from16to24(bitmap) do
    (for << r::5, g::6, b::5 <- bitmap >>, do: <<r::5, 0::3, g::6, 0::2, b::5, 0::3>>) |> Enum.join
  end

  def from24to16(bitmap) do
    (for << r::5, _::3, g::6, _::2, b::5, _::3 <- bitmap >>, do: <<r::5, g::6, b::5>>) |> Enum.join
  end
end

iex で実行。

$ iex
iex> c "color.exs"
iex> Color.from16to24 <<0xffff::16>> 
<<248, 252, 248>>
iex> Color.from24to16 <<255, 255, 255>>
<<255, 255>>

元祖ビットをもっと自由自在に扱える言語

Erlang でも。

% color.erl

-module(color).
-export([from16to24/1, from24to16/1]).

from16to24(Bitmap) ->
  << <<R:5, 0:3, G:6, 0:2, B:5, 0:3>> || <<R:5, G:6, B:5>> <= Bitmap >>.

from24to16(Bitmap) ->
  << <<R:5, G:6, B:5>> || <<R:5, _:3, G:6, _:2, B:5, _:3>> <= Bitmap >>.

erl で実行。

$ erl
> c(color).
> color:from16to24(<<255, 255, 255, 255>>).
<<"øüøøüø">>
> color:from24to16(<<255, 255, 255>>).     
<<"ÿÿ">>

文字として表示できる値の場合に文字として表示してしまうのやめて欲しいぞ。

> <<R:5, G:6, B:5>> = color:from24to16(<<255, 255, 255>>), io:format("~p~n", [[R, G, B]]).
[31,63,31]
ok

いつか読むはずっと読まない:リンの眼、クウィルの手

2017-04-17

Redis Pub/Sub in Elixir 覚書

Exredis を使っています。

defmodule Subscribe do
  def sub(channel) do
    {:ok ,client_sub} = Exredis.Sub.start_link
    pid = Kernel.self

    Exredis.Sub.subscribe(client_sub, channel, fn msg ->
      send(pid, msg)
    end)

    receive do
      {:subscribed, ^channel, _pid} ->
        IO.puts "OK"
    end

    loop(channel)
  end

  def loop(channel) do
    receive do
      {:message, ^channel, message, _pid} ->
        IO.puts message
        loop(channel)
    end
  end
end


どこかで起動しておく。Redis も起動しておく。

> Subscribe.sub("test")
OK

Pub 。

> import Exredis
> Exredis.Api.publish(client, "test", "Hello")

こんな風に表示されます。

> Subscribe.sub("test")
OK
Hello

Ruby でも。

require 'redis'

r = Redis.new
r.publish('test', 'Hello')

> Subscribe.sub("test")
OK
Hello
Hello

2017-03-30

RPN in Elixir

# Rpn.eval "3 1 - 2.1 +"
# => 4.1

defmodule Rpn do
  def eval(expression) do
    eval(tokenize(expression), [])
  end

  defp eval([], [result]), do: result
  defp eval(["+"|tokens], [rhs, lhs|stack]), do: eval(tokens, [lhs + rhs | stack])
  defp eval(["-"|tokens], [rhs, lhs|stack]), do: eval(tokens, [lhs - rhs | stack])
  defp eval(["*"|tokens], [rhs, lhs|stack]), do: eval(tokens, [lhs * rhs | stack])
  defp eval(["/"|tokens], [rhs, lhs|stack]), do: eval(tokens, [lhs / rhs | stack])
  defp eval([value|tokens], stack), do: eval(tokens, [value | stack])

  defp tokenize(expression) do
    tokens = Regex.scan( ~r/(?<op>[\+\-\*\/])|(?<float>\d+\.\d+)|(?<int>\d+)/, expression, capture: ["op", "int", "float"])
    Enum.map(
      tokens,
      fn
        ([op, "", ""]) -> op
        (["", int, ""]) -> String.to_integer(int)
        (["", "", float]) -> String.to_float(float)
      end
    )
  end
end

Regex.scan/3 がいささかトリッキー。使い方が合っているのか判断がつかない。

2017-03-06

span

練習

% span.pro

:- module(span, [span/2]).

span(From, From, [From]) :- !.
span(From, To, [From|Span]) :-
  From < To,
  From1 is From + 1,
  span(From1, To, Span),
  !.
% span-test.pro

:- include(span).

main :-
  span(1, 10, S),
  format("~p~n", [S]),
  halt.

実行。

$ gprolog --consult-file span-test.pro --entry-goal main
[1,2,3,4,5,6,7,8,9,10]

通常使うには between で充分なのだけれど。

$ gprolog
| ?- findall(N, between(1, 10, N), NS).
NS = [1,2,3,4,5,6,7,8,9,10]
yes

2017-02-21

Prolog で特殊文字をリテラルに書く

\x で始まり \ で終えます。末尾があることに注意。

例:バックスペース(0x08)を出力しています。

$ gprolog
| ?- format("~s\x08\~s~n", ["ABc", "CDE"]).
ABCDE