mog project

$ sbt test
(略)
[info] Passed: Total 4, Failed 0, Errors 0, Passed 4
[success] Total time: 48 s, completed Jan 11, 2014 1:35:59 AM
$ sbt 'set parallelExecution in Test := true' test
(略)
[info] test1 should
[error] x insert 100 records and delete 1 record
[error]    'Some(96)' is not Some with value '99' (RedisConnectionSpec.scala:27)
(略)
[error] Failed: Total 4, Failed 4, Errors 0, Passed 0
[error] Failed tests:
[error]         com.github.mogproject.dockersbttest.example.RedisConnectionSpec1
[error]         com.github.mogproject.dockersbttest.example.RedisConnectionSpec2
[error]         com.github.mogproject.dockersbttest.example.RedisConnectionSpec3
[error]         com.github.mogproject.dockersbttest.example.RedisConnectionSpec4
[error] (test:test) sbt.TestsFailedException: Tests unsuccessful
[error] Total time: 14 s, completed Jan 11, 2014 1:37:52 AM
$ redis-cli set 'foo' 'bar'
OK
$ sbt test
(略)
[info] test1 should
[error] x insert 100 records and delete 1 record
[error]    'Some(100)' is not Some with value '99' (RedisConnectionSpec.scala:27)
(略)
[error] Failed: Total 4, Failed 4, Errors 0, Passed 0
[error] Failed tests:
[error]         com.github.mogproject.dockersbttest.example.RedisConnectionSpec4
[error]         com.github.mogproject.dockersbttest.example.RedisConnectionSpec3
[error]         com.github.mogproject.dockersbttest.example.RedisConnectionSpec2
[error]         com.github.mogproject.dockersbttest.example.RedisConnectionSpec1
[error] (test:test) sbt.TestsFailedException: Tests unsuccessful
[error] Total time: 46 s, completed Jan 11, 2014 1:39:52 AM
$ redis-cli del 'foo'
(integer) 1

docker_sbt_test.py REPOSITORY[:TAG] [options]

Options:
  -h, --help            show this help message and exit
  -d DIR, --dir=DIR     path to the sbt project directory in the container
  -s SETUP, --setup=SETUP
                        commands to be executed in the shell before testing
$ ./docker_sbt_test.py local/sbt-test --dir /workspace/docker-sbt-test/example --setup " \
rm -fr /workspace/docker-sbt-test && \
git clone --depth 1 https://github.com/mogproject/docker-sbt-test.git /workspace/docker-sbt-test \
"
2014-01-11 07:24:53,272 [INFO] Creating test image (local/sbt-test:test-1389425093.27) ...
(略)
2014-01-11 07:25:13,073 [INFO] Compiling...
(略)
2014-01-11 07:25:41,707 [INFO] Getting test class names...
2014-01-11 07:25:48,859 [INFO] Starting sbt 'test-only com.github.mogproject.dockersbttest.example.RedisConnectionSpec1' ...
2014-01-11 07:25:48,859 [INFO] Starting sbt 'test-only com.github.mogproject.dockersbttest.example.RedisConnectionSpec2' ...
2014-01-11 07:25:48,859 [INFO] Starting sbt 'test-only com.github.mogproject.dockersbttest.example.RedisConnectionSpec3' ...
2014-01-11 07:25:48,859 [INFO] Starting sbt 'test-only com.github.mogproject.dockersbttest.example.RedisConnectionSpec4' ...
2014-01-11 07:26:13,257 [INFO] Finished sbt 'test-only com.github.mogproject.dockersbttest.example.RedisConnectionSpec3' ...
Starting redis-server: [  OK  ]
(略)
[info] RedisConnectionSpec3
[info]
[info] test3 should
[info] + insert 100 records and delete 1 record
[info]
[info]
[info] Total for specification RedisConnectionSpec3
[info] Finished in 39 ms
[info] 1 example, 0 failure, 0 error
[info]
[info] Passed: Total 1, Failed 0, Errors 0, Passed 1
[success] Total time: 15 s, completed Jan 11, 2014 2:26:13 AM

2014-01-11 07:26:13,600 [INFO] Finished sbt 'test-only com.github.mogproject.dockersbttest.example.RedisConnectionSpec4' ...
(略)
[info] Passed: Total 1, Failed 0, Errors 0, Passed 1
[success] Total time: 14 s, completed Jan 11, 2014 2:26:13 AM

2014-01-11 07:26:13,911 [INFO] Finished sbt 'test-only com.github.mogproject.dockersbttest.example.RedisConnectionSpec2' ...
(略)
[info] Passed: Total 1, Failed 0, Errors 0, Passed 1
[success] Total time: 14 s, completed Jan 11, 2014 2:26:13 AM

2014-01-11 07:26:14,035 [INFO] Finished sbt 'test-only com.github.mogproject.dockersbttest.example.RedisConnectionSpec1' ...
(略)
[info] Passed: Total 1, Failed 0, Errors 0, Passed 1
[success] Total time: 14 s, completed Jan 11, 2014 2:26:13 AM

2014-01-11 07:26:14,080 [INFO] *** SUMMARY ***
2014-01-11 07:26:14,081 [INFO] com.github.mogproject.dockersbttest.example.RedisConnectionSpec1 -> OK
2014-01-11 07:26:14,081 [INFO] com.github.mogproject.dockersbttest.example.RedisConnectionSpec2 -> OK
2014-01-11 07:26:14,081 [INFO] com.github.mogproject.dockersbttest.example.RedisConnectionSpec3 -> OK
2014-01-11 07:26:14,081 [INFO] com.github.mogproject.dockersbttest.example.RedisConnectionSpec4 -> OK
2014-01-11 07:26:14,081 [INFO] ***************
2014-01-11 07:26:14,081 [INFO] Removing test image (local/sbt-test:test-1389425093.27) ...
(略)

$ docker pull mogproject/shogi-server
$ docker run -d -p 4081:4081 mogproject/shogi-server

# Dockerfile for shogi-server
#
#

# use the centos image provided by dotCloud
FROM centos:6.4

# install packages
RUN yum install -y ruby
RUN yum install -y git

# download shogi-server module
RUN git clone git://git.sourceforge.jp/gitroot/shogi-server/shogi-server.git /opt/shogi-server

# create shogi user and change owner of the directory.
RUN useradd shogi
RUN chown -R shogi /opt/shogi-server

# launch shogi-server when launching the container
ENTRYPOINT ["ruby", "/opt/shogi-server/shogi-server", "event1", "4081"]

# run shogi-server as shogi user
USER shogi

# expose shogi-server port
EXPOSE 4081
$ docker build -t ユーザ名/イメージ名 .
$ docker run -d -p 4081:4081 ユーザ名/イメージ名
$ docker ps
$ docker logs コンテナID
# -*- mode: ruby -*-
# vi: set ft=ruby :

VAGRANTFILE_API_VERSION = "2"

Vagrant.configure(VAGRANTFILE_API_VERSION) do |config|
  config.vm.box = "opscode-centos65"
  config.vm.box_url = "http://opscode-vm-bento.s3.amazonaws.com/vagrant/virtualbox/opscode_centos-6.5_chef-provisionerless.box"

  config.vm.provider :virtualbox do |vb|
    vb.name = "docker1"
    vb.customize ["modifyvm", :id, "--memory", 1024]
  end

  config.vm.network :private_network, ip: "192.168.33.10"

  config.vm.provision :docker do |d|
    d.pull_images "centos:6.4"
  end
end

#!/bin/bash

### Clean.
vagrant destroy --force

### Create VirtualBox image and boot.
vagrant up

### Print status.
vagrant status

[default] VM not created. Moving on...
Bringing machine 'default' up with 'virtualbox' provider...
[default] Importing base box 'opscode-centos65'...
[default] Matching MAC address for NAT networking...
[default] Setting the name of the VM...
[default] Clearing any previously set forwarded ports...
[default] Clearing any previously set network interfaces...
[default] Preparing network interfaces based on configuration...
[default] Forwarding ports...
[default] -- 22 => 2222 (adapter 1)
[default] Running 'pre-boot' VM customizations...
[default] Booting VM...
[default] Waiting for machine to boot. This may take a few minutes...
[default] Machine booted and ready!
[default] Configuring and enabling network interfaces...
[default] Mounting shared folders...
[default] -- /vagrant
[default] Running provisioner: docker...
[default] Installing Docker (latest) onto machine...
[default] Pulling Docker images...
[default] -- Image: centos:6.4
Current machine states:

default                   running (virtualbox)

The VM is running. To stop this VM, you can run `vagrant halt` to
shut it down forcefully, or you can run `vagrant suspend` to simply
suspend the virtual machine. In either case, to restart it again,
simply run `vagrant up`.

Building the OpenGL support module[FAILED]
(Look at /var/log/vboxadd-install.log to find out what went wrong)
Doing non-kernel setup of the Guest Additions[  OK  ]
Installing the Window System drivers[FAILED]
(Could not find the X.Org or XFree86 Window System.)
An error occurred during installation of VirtualBox Guest Additions 4.3.6. Some functionality may not work as intended.
In most cases it is OK that the "Window System drivers" installation failed.

$ vagrant ssh
Last login: Thu Dec  5 05:57:05 2013 from 10.0.2.2
[vagrant@localhost ~]$ docker images
REPOSITORY          TAG                 IMAGE ID            CREATED             VIRTUAL SIZE
centos              6.4                 539c0211cd76        9 months ago        300.6 MB
[vagrant@localhost ~]$ sudo docker run centos:6.4 /bin/cat /etc/redhat-release
CentOS release 6.4 (Final)

-module(shop).
-behaviour(gen_server).
-export([start_link/0]). % convenience call for startup
-export([init/1,
         handle_call/3,
         handle_cast/2,
         handle_info/2,
         terminate/2,
         code_change/3]). % gen_server calls
-define(SERVER, ?MODULE). % macro that just defines this module as server
-record(state, {count}). % simple counter state

%%% convenience method for startup
start_link() ->
        gen_server:start_link({local, ?SERVER}, ?MODULE, [], []).

%%% gen_server callbacks
init([]) ->
        {ok, #state{count=0}}.

handle_call(_Request, _From, State) ->
        Distance = _Request,
        Reply = {ok, buy(Distance)},
        NewState=#state{ count = State#state.count+1 },
        {reply, Reply, NewState}.

handle_cast(_Msg, State) ->
        io:format("So far, calculated ~w prices.~n", [State#state.count]),
        {noreply, State}.

handle_info(_Info, State) ->
        {noreply, State}.

terminate(_Reason, _State) ->
        ok.

code_change(_OldVsn, State, _Extra) ->
        {ok, State}.

%%% Internal functions

buy(Number) -> 100 * Number.

> c(shop)
> shop:start_link().
> gen_server:call(shop, 3).
> gen_server:call(shop, 5).
> gen_server:cast(shop, {}).
> gen_server:call(shop, 7).
> gen_server:cast(shop, {}).

buy(Number) -> 105 * Number.

> c(shop).
> gen_server:call(shop, 7).
> gen_server:cast(shop, {}).

> gen_server:call(shop, apple).
> gen_server:call(shop, 7).

-module(shop_sup).
-behaviour(supervisor).
-export([start_link/0]). % convenience call for startup
-export([init/1]). % supervisor calls
-define(SERVER, ?MODULE). % macro that just defines this module as server

%%% convenience method for startup
start_link() ->
        supervisor:start_link({local, ?SERVER}, ?MODULE, []).

%%% supervisor callback
init([]) ->
        RestartStrategy = one_for_one,
        MaxRestarts = 1, % one restart every
        MaxSecondsBetweenRestarts = 5, % five seconds

        SupFlags = {RestartStrategy, MaxRestarts, MaxSecondsBetweenRestarts},

        Restart = permanent, % or temporary, or transient
        Shutdown = 2000, % milliseconds, could be infinity or brutal_kill
        Type = worker, % could also be supervisor

        Shop = {shop, {shop, start_link, []},
                          Restart, Shutdown, Type, [shop]},

        {ok, {SupFlags, [Shop]}}.

%%% Internal functions (none here)

> c(shop_sup).
> {ok, Pid} = shop_sup:start_link().
> unlink(Pid).
> gen_server:call(shop, 3).
> whereis(shop).
> gen_server:call(shop, apple).    % error
> whereis(shop).
> gen_server:call(shop, 5).

{application,shop,
[{description,"Shopping some fruits"},
{vsn,"0.0.1"},
{modules,[shop, shop_sup]},
{applications,[kernel,stdlib]},
{mod,{shop_app,[]}}]}.

-module(shop_app).
-behaviour(application).
-export([start/2, stop/1]).

start(_Type, _StartArgs) ->
  shop_sup:start_link().

stop(_State) ->
  ok.

> c(shop_app).
> application:load(shop).
> application:loaded_applications().
> application:start(shop, 3).
> application:start(shop).
> gen_server:call(shop, 3).
> whereis(shop).
> gen_server:call(shop, apple).
> whereis(shop).
> gen_server:call(shop, 5).

> try math:sqrt(-1) of
>   Result -> Result
> catch
>   error: Error -> {error, Error}
> end.
> try math:sqrt(2)
> catch
>   error: Error -> {error, Error}
> end.  % ok
> try math:sqrt(-2)
> catch
>   error: Error -> {error, Error}
> end.
> try
>   X = -2,
>   math:sqrt(X)
> of
>   Result -> Result
> catch
>   error: Error -> {error, Error}
> end.

> F = fun(X) -> try math:sqrt(X)
> catch
>   error: Error -> {error, Error}
> after
>   io:format("AFTER CODE~n")
> end
> end.
> F(2).
> F(-2).
> throw(my_exception).
> try throw(my_exception)
> catch
>   error: Error -> {found, Error};
>   throw: Exception -> {caught, Exception}
> end.

> error_logger:info_msg("information~n").
> error_logger:warning_msg("warning~n").
> error_logger:error_msg("error~n").
> error_logger:info_msg("~p~n", []).
> error_logger:info_report("~p~n", []).    % フォーマットエラーの場合の挙動が異なる

> error_logger:logfile({open, "test.log"}).
> error_logger:info_msg("information").
> error_logger:logfile(close).

> c(shop, [debug_info]).
> debugger:start().
> Pid1 = spawn(async_shop,async_shop,[]).
> Pid1 ! {apple, 3}.
> dbg:tracer().
> Pid1 = spawn(async_shop,async_shop,[]).
> dbg:p(Pid1,m).
> Pid1 ! {apple, 3}.
-module(fact).
-export([factorial/1]).

factorial(N) -> factorial(1, N, 1).

factorial(Current, N, Result) when Current =< N -> factorial(Current + 1, N, Result * Current);
factorial(Current, N, Result) -> Result.
> c(fact).
> dbg:tracer().
> dbg:p(all, c).
> dbg:tpl(fact, factorial, []).
> fact:factorial(4).
-record(person, {name, age=20, phone}).

> rr("records.hrl").
> Person1=#person{}.
> Person2=#person{name="Alice", age=16}.
> Person3=#person{name="Bob", phone="123-4567", age=35}.
> #person{phone=P, name=N} = Person3.
> {P, N}.
> Person3 = Person3#person{name="Charlie"}.    % error
> Person4 = Person3#person{name="Charlie"}.
> rf().
> #person{}.
> Person1.
-module(person).
-export([rename/2]).
-include("records.hrl").

rename(#person{name=Name} = Person, NewName) ->
  io:format("Changed name: ~s -> ~s~n", [Name, NewName]),
  Person#person{name=NewName}.
> c(person).
> rr("records.hrl").
> P = #person{name="Alice", age=16, phone="123-4567"}.
> person:rename(P, "Bob").
-module(users).
-export([setup/0]).
-include("records.hrl").

setup() ->
  Table = ets:new(users, [named_table, {keypos, #person.name}]),
  ets:insert(users, #person{ name="Alice", age=16, phone="123-4567"}),
  ets:insert(users, #person{ name="Bob", age=35, phone="000-0000"}),
  ets:insert(users, #person{ name="Charlie", age=66, phone="111-1111"}),
  ets:info(Table).
> c(users).
> users:setup().    % size を確認
> rr("records.hrl").
> ets:tab2list(users).
> tv:start().    % GUI が起動
> ets:i().
> users:setup().
> rr("records.hrl").
> ets:lookup(users, "Alice").
> ets:lookup(users, "Carol").
> Alice = hd(ets:lookup(users, "Alice")).
> ets:insert(users, Alice#person{age=17}).
> ets:lookup(users, "Alice").
-module(users).
-export([setup/0]).
-include("records.hrl").

setup() ->
  mnesia:create_schema([node()]),
  mnesia:start(),
  mnesia:create_table(person, [{attributes, record_info(fields, person)}]),

  F = fun() ->
    mnesia:write(#person{ name="Alice", age=16, phone="123-4567"}),
    mnesia:write(#person{ name="Bob", age=35, phone="000-0000"}),
    mnesia:write(#person{ name="Charlie", age=66, phone="111-1111"})
  end,

  mnesia:transaction(F).
> c(users).
> rr("records.hrl").
> users:setup().
> mnesia:table_info(person, all).
> tv:start().
> mnesia:transaction(fun() -> mnesia:read(person, "Alice") end).
> mnesia:transaction(fun() -> qlc:e(qlc:q( [X || X <- mnesia:table(person)])) end).
> mnesia:transaction(fun() -> qlc:e(qlc:q(
    [X || X <- mnesia:table(person), X#person.age < 40]
  )) end).
> mnesia:transaction(fun() -> qlc:e(qlc:q(
    [ {X#person.name, X#person.age} ||
      X <- mnesia:table(person), X#person.age < 40]
  )) end).

> self().
> self() ! test1.
> Pid = self().
> Pid ! test2.
> flush().
> flush().
> self() ! test1.
> receive X -> X end.
> self() ! 23.
> receive Y -> 2 * Y end.
-module(bounce).
-export([report/0]).

report() ->
  receive
    X -> io:format("Received ~p~n", [X])
  end.

> c(bounce).
> Pid = spawn(bounce, report, []).
> Pid ! 23.
> Pid ! 45.
-module(bounce).
-export([report/0]).

report() ->
  receive
    X -> io:format("Received ~p~n", [X]),
    report()
  end.
> c(bounce).
> Pid = spawn(bounce, report, []).
> Pid ! 23.
> Pid ! message.
-module(bounce).
-export([report/1]).

report(Count) ->
  receive
    X -> io:format("Received #~p: ~p~n", [Count, X]),
    report(Count + 1)
  end.
> c(bounce).
> Pid = spawn(bounce, report, [1]).
> Pid ! test.
> Pid ! 123.
> Pid ! message.

-module(bounce).
-export([report/1]).

report(Count) ->
  NewCount = receive
    X -> io:format("Received #~p: ~p~n", [Count, X]),
    Count + 1
  end,
  report(NewCount).
> Pid1 = spawn(bounce, report, [1]).
> register(bounce, Pid1).
> regs().
> bounce ! hello.
> bounce ! 123.
> bounce2 ! test.    % error
> GetBounce = whereis(bounce).
> unregister(bounce).
> regs().
> whereis(bounce).
> GetBounce ! "Still there?".

-module(fragile).
-export([report/0]).

report() ->
  receive
    X -> io:format("Divided to ~p~n", [X/2]),
    report()
  end.
> c(fragile).
> Pid = spawn(fragile, report, []).
> Pid ! 38.
> Pid ! 0.
> Pid ! one.
> Pid ! 10.
-module(shop).
-export([buy/0]).

buy() ->
  receive
    {From, Item, Number} ->
      From ! {Item, Number, price(Item, Number)},
      buy()
  end.

price(apple, Num)  when Num >= 0 -> 100 * Num;
price(banana, Num) when Num >= 0 -> 200 * Num;
price(_, Num)      when Num >= 0 -> 500 * Num.
price(_, _)                      -> 0.
> c(shop).
> P = spawn(shop, buy, []).
> P ! {self(), apple, 10}.
> P ! {self(), banana, 20}.
> flush().
-module(async_shop).
-export([async_shop/0]).

async_shop() ->
  Shop = spawn(shop, buy, []),
  buy(Shop).

buy(Shop) ->
  receive
    {Item, Number} ->
      Shop ! {self(), Item, Number},
      buy(Shop);
    {Item, Number, Price} ->
      io:format("You bought ~p ~p(s) for ~p Yen.~n", [Number, Item, Price]),
      buy(Shop)
  end.
> c(async_shop).
> P = spawn(async_shop, async_shop, []).
> P ! {apple, 10}.
> P ! {banana, 20}.
> pman:start().
> pman:start().
> P = spawn(async_shop, async_shop, []).
> P ! {apple, one}.
-module(async_shop).
-export([async_shop/0]).

async_shop() ->
  Shop = spawn_link(shop, buy, []),
  buy(Shop).

buy(Shop) ->
  receive
    {Item, Number} ->
      Shop ! {self(), Item, Number},
      buy(Shop);
    {Item, Number, Price} ->
      io:format("You bought ~p ~p(s) for ~p Yen.~n", [Number, Item, Price]),
      buy(Shop)
  end.
> c(async_shop).
> pman:start().
> P = spawn(async_shop, async_shop, []).
> P ! {apple, one}.
-module(async_shop).
-export([async_shop/0]).

async_shop() ->
  process_flag(trap_exit, true),
  Shop = spawn_link(shop, buy, []),
  buy(Shop).

buy(Shop) ->
  receive
    {Item, Number} ->
      Shop ! {self(), Item, Number},
      buy(Shop);
    {'EXIT', Pid, Reason} ->
      io:format("FAILURE: ~p died because of ~p.~n", [Pid, Reason]),
      NewShop = spawn_link(shop, buy, []),
      buy(NewShop);
    {Item, Number, Price} ->
      io:format("You bought ~p ~p(s) for ~p Yen.~n", [Number, Item, Price]),
      buy(Shop)
  end.
> c(async_shop).
> pman:start().
> P = spawn(async_shop, async_shop, []).
> P ! {apple, one}.
> P ! {apple, 10}.
> P ! {banana, two}.
> io:format("h\"e\'l'l\\o\s\127\x4f\trld\n").
> io:format("~p ~p ~p ~w ~s ~c ~tc ~i ~n", [100, true, "yes", "yes", "yes", 88, 16#3042, 200]).
> $1.
> $A.
> $ .
> $あ.
> "erl" ++ "ang" == "erlang"
> string:concat("erl", "ang") =:= "erlang".
> hd("hello").
> hd('hello').    % error (this is an atom)
> length("hello").
> lists:nth(2, "hello").
> io:format("~c~n", [lists:nth(2, "hello")]).
> string:chr("hello", $l).
> string:str("hello", "lo").
> string:substr("hello", 3).
> string:substr("hello", 3, 2).
> string:sub_string("hello", 3, 4).
> string:tokens("this is a token.", " .").
> string:join(["one", "two", "three"], ",").
> string:words("this is a word.").
> string:chars($*, 10).
> string:copies("* ", 10).
> string:strip(" x  \n").
> string:strip(" x  ").
> string:left("x", 10).
> string:right("x", 10).
> string:centre("x", 10).
> lists:reverse("erlang").
> string:to_float("1.1 2 3").
> string:to_float("1 2 3").
> string:to_integer("1 2 3").
> string:to_integer("a1 2 3").
> string:to_lower("Hello World!").
> string:to_upper("Hello World!").
> integer_to_list(123).
> float_to_list(123.45).
> erlang:fun_to_list(fun(X) -> X * 2 end).
> list_to_atom("Hello").

> io:read(">>> ").
>>> [1,2,3].
> io:read(">>> ").
>>> True.    % error
> io:get_chars(">>> ").
>>> 1
> io:get_line(">>> ").
>>> 1 2 3

> [1,X,4,Y] = [1,2,4,8].
> {X, Y}.
> lists:flatten([1,[2,4,8],16]).
> [1,2,4] ++ [8,16].
> lists:append([1,2,4], [8,16]).
> lists:append([[1,2,4], [8,16], [32,64]]).
> lists:seq(1, 10).
> lists:seq($A, $Z).

> [H1 | T1] = [1, 2, 4].
> {H1, T1}.
> [H2 | T2] = [1].
> {H2, T2}.
> [H3 | T3] = [].
> F = (fun ([], _) -> 1; ([Head|Tail], Fun) -> Head * Fun(Tail, Fun) end).
> F([1,2,4,16], F).
> [1|[2,3]].
> [1,2|[3]].
> [1,2|3].
> [[1,2]|[3]].

> T = lists:zip([1,2,3,4,5], [a,b,c,d,e]).
> lists:unzip(T).
> lists:keystore(7,1,[{1,tiger}, {3,bear}],{7,panther}).
> lists:keyreplace(7,1,[{1,tiger}, {3,bear}],{7,panther}).
> lists:keyfind(3,1,[{1,tiger}, {3,bear}, {7,panther}]).
> lists:keyfind(4,1,[{1,tiger}, {3,bear}, {7,panther}]).

> Tripler = fun (Value, Function) -> 3 * Function(Value) end.
> Tripler(6, fun(X)->20*X end).
> X=20.
> F=fun(Value)->X * Value end.
> f(X).
> X.    % 'X' is unbound
> Tripler(6, F).
> Tripler(math:pi(), fun math:cos/1).

> Print = fun(Value) -> io:format("  ~p~n", [Value]) end.
> List = [1,1,2,3,5,8,13].
> lists:foreach(Print, List).
> lists:map(fun(Value) -> Value * Value end, List).
> [Value * Value || Value  lists:filter(fun(Value) -> (Value >= 3) and (Value rem 2 == 1) end, List).
> lists:filter(fun(Value) -> (Value >= 3) and (Value rem 2 == 1) end, List).
> [Value || Value = 3, Value rem 2 == 1].
> [Value || Value  lists:all(fun(Value) -> Value > 0 end, List).
> lists:any(fun(Value) -> Value < 0 end, List).
> lists:partition(fun(Value) -> (Value >= 3) and (Value rem 2 == 1) end, List).
> lists:dropwhile(fun(Value) -> Value =< 3 end, List).
> lists:takewhile(fun(Value) -> Value =< 3 end, List).
> lists:foldl(fun(Value, Accumulator) -> Value - Accumulator end, 0, [1,2,3,4]).
> 4-(3-(2-(1-0))).
> lists:foldr(fun(Value, Accumulator) -> Value - Accumulator end, 0, [1,2,3,4]).
> 1-(2-(3-(4-0))).

1.11.2014

動機

単に実行すると 48秒かかる

parallelExecution を有効にするとテストが通らない

テストデータ以外が含まれていると、やはりテストが通らない

アイデア

動作イメージ

作ってみた

実行結果

注意事項

まとめ

References

1.08.2014

事前準備

遊び方

Dockerfile

Related Posts

1.06.2014

事前準備

環境

母艦の立ち上げ

Vagrantfile

仮想マシンの作成

母艦への接続

References

Related Posts

1.05.2014

CHAPTER 11: Getting Started with OTP

モジュールをサービスとして実行する

スーパーバイザーの実行

アプリケーションとしてパッケージングする

CHAPTER 12: Next Steps Through Erlang

References

Related Posts

1.04.2014

CHAPTER 9: Exceptions, Errors, and Debugging

try .. catch の基本形

after 節の指定

例外の送出

メッセージのロギング

ログファイルへの書き込み

GUI でのデバッグ

コンソールでのデバッグ

CHAPTER10: Storing Structured Data

レコード

Erlang Term Storage (ETS)

Mnesia

References

Related Posts

1.03.2014

CHAPTER 8: Playing with Processes

プロセスIDの確認とメッセージの送受信

モジュールからプロセスを生成する

プロセスの登録

プロセスが異常終了するとき

メッセージのコールバック

関数の中でプロセスを生成する

プロセスの状態を確認する

プロセスどうしのリンク

エラートラップと新しいプロセスの生成

References

Related Posts

CHAPTER 5: Communicating with Humans

文字列リテラル

文字列の操作

ユーザ入力の読み取り

CHAPTER 6: Lists

基本的な操作

head と tail の操作

zip と key-value 操作

CHAPTER 7: Higher-Order Functions and List Comprehensions

単純な高階関数

高階関数を使ってリストを操作する

References

Related Posts

CHAPTER 7:
Higher-Order Functions and List Comprehensions