Tag Archives: erlang

erlangでNabeAtzz

Erlangを覚えようと思って、とりあえずなれるためにNabeAtzzを書いてみました。

日本語の使い方は判らないので、ローマ字でいいや。

-export([ahow/1]).
-export([initlist/1]).
-export([initlist/3]).
-export([nabeatzz/1]).
% 表現
ahow(X)
when (X rem 3 =:= 0 ) ; X div 10 =:= 3  ->
lists:nth( (X div 10)+1, ["","jyu","nijyu","sanjyu","yonjyu"]) ++ lists:nth((X rem 10)+1,["", "ich","ni","san","yon","go","roku","nana","hachi","kyu"]);
ahow(X) -> X.
% 初期の配列を作る
initlist(C) -> initlist(C, 1, []).
initlist(C, X, T)
when C < X -> T;
initlist(C, X, T) -> [X|initlist(C, X+1,T)].
% NabeAtzz
nabeatzz(X) ->
lists:foreach(fun(N) -> io:format("~p~n", [N]) end, lists:map(fun(N) -> ahow(N) end, new:initlist(X))).