Erlang - 制御構文(case)、リスト内包表記

７つの言語 ７つの世界
原著

開発環境

• OS X El Capitan - Apple (OS)
• Emacs (Text Editor)
• Erlang (プログラミング言語)

７つの言語 ７つの世界 (Bruce A. Tate (著)、まつもとゆきひろ (監訳)、田和 勝 (翻訳)、オーム社)の第6章(Erlang)、6.3(2日目: 変身)、セルフスタディ2日目を取り組んでみる。

セルフスタディ2日目.

コード(Emacs)

-module(sample).
-export([get_value/2]).

get_value([], _) ->
    nothing;
get_value([{Key, Value}|Tail], Key1) -> case Key of Key1 ->
                                                Value;
                                            _  -> get_value(Tail, Key1) end.

入出力結果(Terminal, REPL(Read, Eval, Print, Loop))

$ erl
Eshell V7.3  (abort with ^G)
1> c(sample).
{ok,sample}
2> List = [{erlang, "a functional language"}, {ruby, "an OO languages"}].
[{erlang,"a functional language"},{ruby,"an OO languages"}]
3> sample:get_value(List, erlang).
"a functional language"
4> sample:get_value(List, ruby).
"an OO languages"
5> sample:get_value(List, scheme).
nothing
6> Items = [{item1, 2, 3}, {item2, 4, 5}].
[{item1,2,3},{item2,4,5}]
7> [{Item, Quantity * Price} || {Item, Quantity, Price} <- Items].
[{item1,6},{item2,20}]
8> *** Terminating erlang (nonode@nohost)
$