2011年9月11日日曜日

Erlang time() ローカル時刻 Sample サンプル string to_upperもね


Rubyのプログラミングの勉強をしている。
そこで参考書内のサンプルを打ち込んでいるが、それをErlangに置き換えてみている。
time関数とstring:to_upper関数を使っていた。サンプルとして載せる。

Erlangでコンパイルすると、warningが発生するが問題なし。
(上にあるif文において、1つ目のガードが必ずfalseになるという警告と、2つ目が必ずtrueなので、3つ目のガードが評価されないという警告が発生する。)

-module('Sample028').
-export([start/0]).

start() ->
    if
6 rem 4 == 0 ->
   S =  "six is a multiple of four.";
6 rem 2 == 0 ->
   S = "six is odd.";
true ->
   S = "six is even."
    end,
    io:format("a0:~p~n",[S]),

    {Hour,_,_} = time(),
 
    if
Hour >= 12 -> T = "good afternoon";
true -> T = "good morning"
    end,
    T1 = string:to_upper(T),
    io:format("a1:~p~n",[T1]).